title: filtro su report

author: Potone

text:
Il giorno martedì 15 novembre 2016 15:25:32 UTC+1, Akery ha scritto:
> Buongiorno,
>
> sto trovando difficoltà ad applicare un filtro su un report, in pratica
> nella condizione where scrivo [testo504]>0 ma continua a visualizzare
> tutti i record.
> testo504 è una casella di testo del report che usa una funzione di
> aggregazione sulla tabella sorgente.
> Come posso risolvere?
> Grazie per l'aiuto
> Akery
>
Ciao
il problema sta nel fatto che il contenuto del controllo [testo504] al momento dell'applicazione del filtro non è ancora stato calcolato.
Potresti utilizzare una query all'interno della quale effettui il raggruppamento ed esegui la funzione di aggregazione, la query sarà l'origine del report a cui potrai applicare il filtro sul risultato della funzione.

Ciao
Mat.


title: Maschera di input

author: Fabio

text:
Salve a TUTTI,
non riesco ad ottenere in un controllo di una  Form la maschera di input che
vorrei, la guida non mi aiuta a sufficienza. Vorrei ottenere di scrivere una
stringa di testo di questo tipo questa che indica una locazione di un
prodotto:
F03-C02-R04-S05B
Dove:
 F - sta per Fila (vorrei che fosse di default e mi permettesse  di inserire
i valori numerici che la indicano)
C - sta per colonna e vorrei sempre e solo inserire i valori numerici
R - sta per rigo e sempre da inserire i valori numerici
S - Sta per scaffale e vorrei sempre inserire i due valori numerici e
facoltativo la lettera alfabetica.
Mi piacerebbe che quando si entra nel controllo il focus andasse a
posizionarsi nel primo valore numerico della fila da inserire ed una volta
inserito con invio tabulasse via via fino alla fine. Non ci riesco. Potete
aiutarmi?
Grazie Fabio


title: Maschera di input

author: Paolo Dal Bosco

text:
"Fabio" <
fab...@libero.it
> ha scritto nel messaggio
news:VYcOg.107460$zy5.1...@twister1.libero.it...

>F03-C02-R04-S05B
devi avere cinque caselle e poi unirle:
es: A, B, C e D
ed il risultato in E
="F" & [A] & "-C" & [B] & "-R" & "-S" & [D]
Ciao
Paolo


title: Maschera di input

text:
"Fabio" <
fab...@libero.it
> ha scritto nel messaggio
news:VYcOg.107460$zy5.1...@twister1.libero.it...

oppure su evento di apertura della maschera:
Me.NomeCasella.InputMask = ">\FAA->\CAA->\RAA->\SAAA"
Ciao
Paolo


title: Maschera di input

text:
> oppure su evento di apertura della maschera:
> Me.NomeCasella.InputMask = ">\FAA->\CAA->\RAA->\SAAA"
> Ciao
> Paolo
Questa soluzione è bellissima e mi piacerebbe molto applicarla, ma ho
provato e sulla maschera mi da il risultato che mi aspettavo, mentre sulla
tabella scrive solamente i numeri che digito e NON le lettere di default
(F - C - R - S) che però mi servono in quanto devo passarle con il tracciato
che esporterò ad un'altra applicazione.
Grazie ancora Fabio


title: Maschera di input

author: Sergio MAZZA

text:
"Fabio" <
fab...@libero.it
> ha scritto nel messaggio
news:wXfOg.108254$_J1.8...@twister2.libero.it...
>
> Questa soluzione è bellissima e mi piacerebbe molto applicarla, ma ho
> provato e sulla maschera mi da il risultato che mi aspettavo, mentre sulla
> tabella scrive solamente i numeri che digito e NON le lettere di default
> (F - C - R - S) che però mi servono in quanto devo passarle con il
> tracciato
> che esporterò ad un'altra applicazione.
> Grazie ancora Fabio
Dall'help in linea (Attivabile con ALT-F11, poi F1) della Proprietà
InputMask (Maschera di input):
'---
La proprietà InputMask può includere fino a tre sezioni separate da punto e
virgola (;).
SezioneDescrizione
PrimaSpecifica
la maschera di input stessa, ad esempio, !(999) 999-9999. Per un l'elenco
dei caratteri disponibili per definire la maschera di input vedere la
tabella riportata oltre.
SecondaSpecifica
se Microsoft Access debba memorizzare al momento dell'immissione dei dati i
caratteri letterali nella tabella. Se viene utilizzato il valore zero (0)
per tale sezione, tutti i caratteri letterali, ad esempio il trattino in una
maschera di input per un numero di telefono, verranno memorizzati con il
valore. Se viene immesso il valore uno (1) o la sezione viene lasciata
vuota, verranno memorizzati solo i caratteri digitati nel controllo.
TerzaSpecifica
il carattere che viene visualizzato al posto dello spazio in cui andrebbe
immesso un carattere nella maschera di input. Per tale sezione è possibile
utilizzare qualsiasi carattere. Per visualizzare una stringa vuota,
utilizzare uno spazio racchiuso tra virgolette (" ").
'---
Ciao.
--
Sergio MAZZA


title: Maschera di input

text:

Ho provato in tutti i modi, o meglio quelli che ho capito, ma nulla.
Ho messo la maschera di input anche sulla tabella, aggiornato la maschera,
sembra che sulla tabella sia scritto anche le lettere, ma quando esporto
trovo sul file di testo che viene prodotto solo i numeri e non mi va bene.
Non so cosa sto sbagliando.
Fabio


title: Maschera di input

text:
"Fabio" <
fab...@libero.it
> ha scritto nel messaggio news:xGAOg.109342$zy5.1...@twister1.libero.it...
> Ho provato in tutti i modi, o meglio quelli che ho capito, ma nulla.
> Ho messo la maschera di input anche sulla tabella, aggiornato la maschera,
> sembra che sulla tabella sia scritto anche le lettere, ma quando esporto
> trovo sul file di testo che viene prodotto solo i numeri e non mi va bene.
> Non so cosa sto sbagliando.
> Fabio
Quali sono questi "...tutti i modi"?
Ciao.
--
Sergio MAZZA


title: Maschera di input

text:
> > Ho provato in tutti i modi, o meglio quelli che ho capito, ma nulla.
> > Ho messo la maschera di input anche sulla tabella, aggiornato la
maschera,
> > sembra che sulla tabella sia scritto anche le lettere, ma quando esporto
> > trovo sul file di testo che viene prodotto solo i numeri e non mi va
bene.
> > Non so cosa sto sbagliando.
> > Fabio
>
>
> Quali sono questi "...tutti i modi"?
>
> Ciao.
> --
> Sergio MAZZA
Autocomposizione sia sulla maschera che sulla tabella, parentesi,
virgolette, ma forse sbaglio proprio il concetto. Ribadisco: vorrei ottenere
una stringa scritta sulla tabella, quindi esportabile del tipo:
F01-C02-R03-S04
dove le sillabe ed i trattini F-C-R-S siano già presenti sul controllo della
maschera dove vado ad imputare i dati, perchè sono costanti, e mi sia
concesso inserire i numeri che variano.
Ragionamento sbagliato?
Grazie Fabio


title: Maschera di input

text:
"Fabio" <
fab...@libero.it
> ha scritto nel messaggio news:LADOg.109668$zy5.1...@twister1.libero.it...
> Autocomposizione sia sulla maschera che sulla tabella, parentesi,
> virgolette, ma forse sbaglio proprio il concetto. Ribadisco: vorrei ottenere
> una stringa scritta sulla tabella, quindi esportabile del tipo:
> F01-C02-R03-S04
> dove le sillabe ed i trattini F-C-R-S siano già presenti sul controllo della
> maschera dove vado ad imputare i dati, perchè sono costanti, e mi sia
> concesso inserire i numeri che variano.
> Ragionamento sbagliato?
> Grazie Fabio
Sì; ragionamento sbagliato.
Nella tabella non ci devi mettere nulla che non siano le specifiche del campo e i suoi valori; le maschere sono i luoghi dove puoi
definire le regole di input/registrazione dei dati.
Partendo da questo semplice concetto e riprendendo il suggerimento di Paolo + la coda finale ti esce fuori la soluzione.
Quella di inserire nell'evento "su apertura" della maschera il codice:
Me!nomeCasellaDiTesto.InputMask = ">\FAA->\CAA->\RAA->\SAAA;0"
Se leggevi l'help in linea ti saresti accorto che il secondo paramentro (delimitato da punto e virgola) indica la possibilità o meno
di salvare i caratteri della inputMask definita, nel campo.
Quindi lo zero fa questo...
Ciao.
--
Sergio MAZZA


title: Maschera di input

text:
> Sì; ragionamento sbagliato.
> Nella tabella non ci devi mettere nulla che non siano le specifiche del
campo e i suoi valori; le maschere sono i luoghi dove puoi
> definire le regole di input/registrazione dei dati.
> Partendo da questo semplice concetto e riprendendo il suggerimento di
Paolo + la coda finale ti esce fuori la soluzione.
> Quella di inserire nell'evento "su apertura" della maschera il codice:
> Me!nomeCasellaDiTesto.InputMask = ">\FAA->\CAA->\RAA->\SAAA;0"
>
> Se leggevi l'help in linea ti saresti accorto che il secondo paramentro
(delimitato da punto e virgola) indica la possibilità o meno
> di salvare i caratteri della inputMask definita, nel campo.
> Quindi lo zero fa questo...
>
> Ciao.
> --
> Sergio MAZZA
Perfetto funziona.
Vi prego però di credere che la guida l’avevo letta, non ho afferrato come
usare lo zero, ma vi assicuro che ci ho provato.
Grazie ancora a Te e Paolo per l’aiuto.
Fabio
>


title: Maschera di input

text:
"Fabio" <
fab...@libero.it
> ha scritto nel messaggio news:HZPOg.110155$zy5.1...@twister1.libero.it...
> Perfetto funziona.
>
> Vi prego però di credere che la guida l’avevo letta, non ho afferrato come
> usare lo zero, ma vi assicuro che ci ho provato.
La guida in linea, questa incompresa...
> Grazie ancora a Te e Paolo per l’aiuto.
>
> Fabio
Ciao.
--
Sergio MAZZA


title: Reset Contatore

author: Claudio Gatti

text:
Ho creato l'impostazione di un data base con una chiave primaria ed un
contatore. Ho inserito durante una prova vari record per vedere se tutto
funzionava a dovere poi li ho cancellati tutti. Adesso devo inserire i dati
"veri"...ed il contatore non parte piů da uno...č possibile resettare e
farlo ripartire da zero o devo creare un nuovo data base?
Grazie per l'aiuto
Claudio


title: Reset Contatore

author: Gianfry

text:
Claudio Gatti <
claud...@libero.it
> wrote in message
u_Tu7.19097$0Y2.2...@news.infostrada.it...
| Ho creato l'impostazione di un data base con una chiave primaria ed un
| contatore. Ho inserito durante una prova vari record per vedere se tutto
| funzionava a dovere poi li ho cancellati tutti. Adesso devo inserire i
dati
| "veri"...ed il contatore non parte più da uno...è possibile resettare e
| farlo ripartire da zero o devo creare un nuovo data base?
| Grazie per l'aiuto
| Claudio
|
Se hai già eliminato tutti irecords, basta compattare il database
ciao
|


title: Reset Contatore

text:
...scusa l'ignoranza ma cosa vuole dire "compattare il data base?"...e come
si fa?
Grazie
--
Claudio
"Gianfry" <
gianf...@vardanega.com
> ha scritto nel messaggio
news:9ph3ps$asm$1...@lacerta.tiscalinet.it...



title: Reset Contatore

author: ggac

text:
"Claudio Gatti" <
claud...@libero.it
> ha scritto nel messaggio
news:TZUu7.19326$0Y2.2...@news.infostrada.it...
> ...scusa l'ignoranza ma cosa vuole dire "compattare il data base?"...e
come
> si fa?
> Grazie
Dal Menu STRUMENTI--->Utilità db-------->Compatta e Ripristina Database
ciow


title: Reset Contatore

text:
Menù: Strumenti / Utilità database / Compatta ripristina database
Claudio Gatti <
claud...@libero.it
> wrote in message
TZUu7.19326$0Y2.2...@news.infostrada.it...



title: Reset Contatore

text:
GRAZIE A TUTTI per l'aiuto!
Un saluto!
Claudio
"Gianfry" <
gianf...@vardanega.com
> ha scritto nel messaggio
news:9ph91o$ceg$1...@lacerta.tiscalinet.it...



title: Access report & VB

author: Strappato Valentino

text:
Salve
Programmo in VB6 e per la prima volta ho usato access per realizzare query e
report.
Tramite VB creo un oggetto msaccess9 ed uso il report creato all'interno del
DB.
Il problema sorge quando non devo stampare tutti i record della tabella, ma
devo filtrare il report stesso.
Come posso passare un parametro (query) al report e mandare in stampa solo
quelli interessati ?
Ho anche pensato di riempire una tabella temporanea con SOLO i record da
stampare e pulirla alla fine, ma la soluzione mi "piace poco"....
grazie


title: Access report & VB

author: Sib dal portatile

text:
"Strappato Valentino" <
ma...@strappato.cjb.net
> ha scritto nel messaggio
> Salve
> Programmo in VB6 e per la prima volta ho usato access per realizzare query
e
> report.
>
> Tramite VB creo un oggetto msaccess9 ed uso il report creato all'interno
del
> DB.
> Il problema sorge quando non devo stampare tutti i record della tabella,
ma
> devo filtrare il report stesso.
> Come posso passare un parametro (query) al report e mandare in stampa solo
> quelli interessati ?
Se sbirci vedrai che il report ha una proprieta' che si chiama Filter.
Se lo apri da codice con il comando DoCmd.OpenReport vedrai che fra le altre
cose puoi definire come filtrare il report al momento.
Sib


title: Access report & VB

author: Adriano

text:
Secondo me puoi usare una tabella con un campo testo
che conterra' la stringa SQL che fungera' da  origine dati per il record
esempio
su apertura report
me.recordsource=dlookup("Sql_Report","Tbl_SqlReport")
come ti pare ?
cosi' da vb6 ti fai una function che ti aggiorna il campo della tabella e
tutto diventa abbastanza trasparente
se  poi non ti piace puoi appoggiarti ad un file di testo.... come i CFG dei
dei programmi grossi !
ciao ciao
spero di averti dato un'idea!
"Sib dal portatile" <
sibN...@iol.it
> ha scritto nel messaggio
news:zIgW7.364910$sq5.17...@news.infostrada.it...



title: Access report & VB

author: Emyr

text:


è sufficiente che utilizzi una idonea stringa SQL nell'origine dai del
report (utilizza WHERE e HAVING)
Saluti.
Emanuele.


title: Access report & VB

author: Beppe

text:
Io vorrei fare cosě (ho lo stesso problema del post iniziale), mi puoi
cortesemente postare un esempio.
Io ho provato cosě :
Set objAccess = CreateObject("Access.Application")
my_sql = "SELECT * FROM TABELLA WHERE ...."
objAccess.DoCmd.OpenReport ilReport
ilReport.RecordSource = my_sql
dove sbaglio
Ciao Beppe
"Emyr" <
fan...@lavoro.com
> ha scritto nel messaggio
news:0n9j2uofm7hhnlqbb...@4ax.com...
> On Tue, 25 Dec 2001 23:28:36 GMT, "Strappato Valentino"
> <
ma...@strappato.cjb.net
> wrote:
>
> >Salve
> >Programmo in VB6 e per la prima volta ho usato access per realizzare
query e
> >report.
> >
> >Tramite VB creo un oggetto msaccess9 ed uso il report creato all'interno
del
> >DB.
> >Il problema sorge quando non devo stampare tutti i record della tabella,
ma
> >devo filtrare il report stesso.
> >Come posso passare un parametro (query) al report e mandare in stampa
solo
> >quelli interessati ?
> >
> >Ho anche pensato di riempire una tabella temporanea con SOLO i record da
> >stampare e pulirla alla fine, ma la soluzione mi "piace poco"....
>
>
> č sufficiente che utilizzi una idonea stringa SQL nell'origine dai del



title: Access report & VB

text:
Grazie per il suggerimento, lo proverò al + presto (adesso sono in
ferie...), ma mi viene in mente un'altra cosa: al momento di distribuire la
mia applicazione, se non voglio far acquistare Access al cliente, posso
distribuire "liberamente" i files di runtime di access durante
l'installazione ?
grazie
PS Vi farò sapere se la cosa funziona...
ed auguri a tutti
"Sib dal portatile" <
sibN...@iol.it
> ha scritto nel messaggio
news:zIgW7.364910$sq5.17...@news.infostrada.it...



title: Access report & VB

text:
Nonostante sia in ferie, ho provato a filtrare il report e ci sono riuscito
con questo codice:
-----------------------
nella form:
Option Explicit
Dim ac As AccessObject
Private Sub Form_Load()
Dim ac
Set ac = New Access.Application
ac.Application.OpenCurrentDatabase (App.Path & "\viewcoll.mdb")
ac.DoCmd.OpenReport "Main1", , , "FamiglieProdotto='GIL'"
ac.CloseCurrentDatabase
Set ac = Nothing
End Sub
--------------------------------------------
sei abbastanza bravo da capire quali campi devi sostituire per usarlo nel
tuo DB con la tua clausula Where....
.... ma faccio anche una domanda:
    e se volessi avere l'anteprima ? (ma non vorrei approfittare di voi !!)
ciao
"Beppe" <
gbe...@nospamfreemail.it
> ha scritto nel messaggio
news:a0ldeh$fot$1...@pegasus.tiscalinet.it...



title: Access report & VB

text:
On Sun, 30 Dec 2001 17:12:44 GMT, "Strappato Valentino"
<
ma...@strappato.cjb.net
> wrote:
CUT
>
>.... ma faccio anche una domanda:
>    e se volessi avere l'anteprima ? (ma non vorrei approfittare di voi !!)
>
nei parametri dell'openreport imposta la variabile acviewpreview
vedi help di openreport
Saluti.
Emanuele.


title: Access report & VB

text:
"Strappato Valentino" <
ma...@strappato.cjb.net
> ha scritto nel messaggio
> Grazie per il suggerimento, lo proverò al + presto (adesso sono in
> ferie...), ma mi viene in mente un'altra cosa: al momento di distribuire
la
> mia applicazione, se non voglio far acquistare Access al cliente, posso
> distribuire "liberamente" i files di runtime di access durante
> l'installazione ?
Solo se hai acquistato la versione ODE di office che ti da la possibilità
tecnica e il diritto di distribuire il run-time.
Auguri anche a te.
Sib
--
----------------------------------------------------
la mia home:
http://digilander.iol.it/syb
----------------------------------------------------
il sito comune di it.comp.database.access:
http://www.sitocomune.com
----------------------------------------------------
4000 anni fa', il saggio egizio Ptahhotep scrisse:
"... perche' non esistono saggi per nascita."
------------------------------------------------------
Saturiamo ECHELON:
bin laden saddam attentato medio oriente


title: CONTEGGIO RECORD - URGENTISSIMO!

author: Daniele Meante

text:
Dunque vediamo se ho capito bene..........
la tabella è questa:
Col1	Col2	Col3
1	2	12
0	12	456
2	0	0
0	0	0
2	4	5
4	5	6
12	2	0
1	1	1
2	2	2
3	3	2
Serve funzione :
Public Function NColNoZero(Colonna As String) As Long
On Error Resume Next
Dim dbs As Database
Dim str  As String
Dim Tot As Variant
Dim qdef As DAO.Recordset
Set dbs = CurrentDb
str = "SELECT Count(Tabella." & Colonna & ") AS Valore" & _
" FROM Tabella" & _
" WHERE (((Tabella." & Colonna & ") Not Like 0))"
Set qdef = CurrentDb.OpenRecordset(str)
qdef.MoveFirst
Valore = qdef!Valore
qdef.Close
NColNoZero = Valore
End Function
ecco la query:
SELECT NColNoZero("col1") AS [N-Col1], NColNoZero("col2") AS [N-Col2],
NColNoZero("col3") AS [N-Col3], Sum([Tabella]![Col1]) AS [S-Col1],
Sum([Tabella]![Col2]) AS [S-Col2], Sum([Tabella]![Col3]) AS [S-Col3],
Sum([Tabella]![Col1])+Sum([Tabella]![Col2])+Sum([Tabella]![Col3]) AS
[S-Generale],
(100*(Sum([Tabella]![Col1])))/(Sum([Tabella]![Col1])+Sum([Tabella]![Col2])+Sum([Tabella]![Col3]))
AS [%Col1],
(100*(Sum([Tabella]![Col2])))/(Sum([Tabella]![Col1])+Sum([Tabella]![Col2])+Sum([Tabella]![Col3]))
AS [%Col2],
(100*(Sum([Tabella]![Col3])))/(Sum([Tabella]![Col1])+Sum([Tabella]![Col2])+Sum([Tabella]![Col3]))
AS [%Col3]
FROM Tabella
GROUP BY NColNoZero("col1"), NColNoZero("col2"), NColNoZero("col3");
Spero ti serva
Ciao
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Problema con access

author: Haqmoz

text:
Ho creato un db che contiene delle tabelle e delle query eseguibili in
remoto.
Tutto sembra funzionare, ma accade che alcune query non riescono ad essere
eseguite quando viene chiamata una funzione (tipicamente Left o right).
Questo accade sul db con estensione mdb e mde. Oggi ho provato a importare
il tutto in un database con estensione mda e stranamente funziona....
Qualcuno riesce a spiegarmi l'arcano????
Ciao e grazie


title: Problema con access

text:
Ho avuto un problema simile con A97
Sul mio PC tutto OK, ma quando portavo il FE (un mdb aperto) dall'utente mi
dava *funzione non riconosciuta* su alcune funzioni semplicissime.
Il problema stava nei riferimenti.
Il programma infatti accedeva ad Excel via OLE e sul mio PC avevo Excel97 e
quindi erano settati i riferimenti alla libreria Microsoft Excel 8.0 object,
l'altro PC aveva Excel 2000 e doveva essere settata la lib. Excel 9.0.
Insomma, tutte le volte che porto una nuova versione a quell'utente, adesso,
vado a togliere i rif. a Excel 8.0, esco, rientro, e imposto quelli a Excel
9.0.
Forse chi ha installato office su quel PC ha fatto un po' di casino (infatti
c'e' Access97 e tutto il resto di office2000) sta' di fatto che cosi'
facendo il problema si risolve e non ho indagato oltre.
Ciao
Marco
---
il mio vero indirizzo e-mail e' senza la "y"
---
--
Posted from
smtp1.libero.it
 [193.70.192.51]
via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: confronto date in una query

author: Ivan da casa

text:
Riapro un 3D che credevo risolto ...
Vorrei trovare le registrazioni presenti in data odierna.
Non riesco a far funzionare la query generata da questa istruzione
    sSQL = "SELECT * FROM tPresenze WHERE Int(orario) = " & Int(Now)
poichè mi restituisce sempre 0 records.
Il campo orario contiene una data completa gg/mm/aaaa hh:nn
Se scandisco il recordset e faccio il confronto,
'-------------
sSQL = "SELECT * FROM tPresenze"
Set rs = CurrentDb.OpenRecordset(sSQL, dbOpenDynaset)
rs.MoveLast:  rs.MoveFirst
For r = 1 To rs.RecordCount
        Debug.Print  orario, Int(orario),
        If Int(orario) = Int(Now) Then Debug.Print "combacia" Else _
                Debug.Print "non combacia"
        rs.MoveNext
Next r
'--------------
 questo risulta positivo, ma la prima query continua a non darmi alcun
recordset.
;) un aiutino ?!
Ivan
PS
-so che nelle query, le date vanno indicate in formato americano... forse il
problema è questo?
-quando guardo il valore di Int(orario), nella finestra di debug, leggo una
data (es 07/04/2006), ma quello non è un numero?


title: confronto date in una query

author: ces

text:
Ivan da casa ha scritto:
> Riapro un 3D che credevo risolto ...
> Vorrei trovare le registrazioni presenti in data odierna.
> Non riesco a far funzionare la query generata da questa istruzione
>     sSQL = "SELECT * FROM tPresenze WHERE Int(orario) = " & Int(Now)
> poichč mi restituisce sempre 0 records.
> Il campo orario contiene una data completa gg/mm/aaaa hh:nn
> Se scandisco il recordset e faccio il confronto,
> '-------------
> sSQL = "SELECT * FROM tPresenze"
> Set rs = CurrentDb.OpenRecordset(sSQL, dbOpenDynaset)
> rs.MoveLast:  rs.MoveFirst
> For r = 1 To rs.RecordCount
>         Debug.Print  orario, Int(orario),
>         If Int(orario) = Int(Now) Then Debug.Print "combacia" Else _
>                 Debug.Print "non combacia"
>         rs.MoveNext
> Next r
> '--------------
>  questo risulta positivo, ma la prima query continua a non darmi alcun
> recordset.
> ;) un aiutino ?!
> Ivan
> PS
> -so che nelle query, le date vanno indicate in formato americano... forse il
> problema č questo?
> -quando guardo il valore di Int(orario), nella finestra di debug, leggo una
> data (es 07/04/2006), ma quello non č un numero?
usa la funzione format su entrambe le date facendo cosě:
cdate(format([dt_interessata];"gg/mm/aaaa"))
ciao
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: confronto date in una query

text:
[cut]
> usa la funzione format su entrambe le date facendo cosě:
> cdate(format([dt_interessata];"gg/mm/aaaa"))
>
> ciao
ho provato in tutti i modi
    sSQL = "SELECT * FROM tPresenze WHERE
cdate(Format([orario],'gg/mm/aaaa')) like '" & CDate(Format([Now],
"dd/mm/yyyy")) & "'"
oppure
    sSQL = "SELECT * FROM tPresenze WHERE
cdate(Format([orario],'gg/mm/aaaa')) = " & CDate(Format([Now],
"dd/mm/yyyy"))
ma mi da sempre:
Tipo di dati non corrispondenti nell'espressione criterio
E comunque anche la precedente versione mi restituiva due date che
'sembrano' identiche, ma solo la query non le riconosce....
grazie    Ivan


title: confronto date in una query

text:
Ivan da casa ha scritto:
> [cut]



> oppure

> ma mi da sempre:


> grazie    Ivan
scusami non avevo visto che creavi l'sql cosě devi mettere dd/mm/yyyy
ovunque
comunque ti consiglio di provare la soluzione direttamente in una query
prima di creare l'sql
prova ad esempio a vedere cosa fa questa sql:
SELECT Format(Now(),"dd/mm/yyyy") AS no_data,
CDate(Format(Now(),"dd/mm/yyyy")) AS si_data;
da qui dovresti capire come funziona il tutto



title: Calcolo date tra record

author: MarcoGi

text:
Non ho ancora risolto il mio problema!
Devo calcolare la differenza di data nella casella "INTERVALLO" tra il campo
"DATA" del record 2 e lo stesso campo "DATA" del precedente record 1.
Ringrazio chi ha già risposto al precedente messaggio (che non ho salvato) e
chiunque altro abbia suggerimenti, consigli, siti da consultare o
quant'altro, purchè ESTREMAMENTE dettagliato.
Anticipatamente ringrazio e saluto
Bye bye


title: Calcolo date tra record

author: access

text:
"MarcoGi" <
magi...@tin.it
> ha scritto nel messaggio
news:46268aae$0$37201$4faf...@reader3.news.tin.it...

Private sub NomeCasellaIntervallo_gotfocus()
Dim TheDate As Date    ' Dichiara le variabili.
Dim Msg
TheDate = NomePrimoControllo
NomeCasellaIntervallo = "" & DateDiff("d", NomeSecondoControllo, TheDate) '
nel controllo "NomeCasellaIntervallo" vengono indicati i giorni
End Sub
Ciao


title: Calcolo date tra record

author: ciroteo ®

text:
"MarcoGi" <
magi...@tin.it
> ha scritto nel messaggio
news:46268aae$0$37201$4faf...@reader3.news.tin.it...

o ti riferisci alla chiave primaria del record precedente se è in ordine di
chiave, oppure devi agigungere un campo (intervallo) che valorizzi dopo aver
ciclato attraverso un recordset ordinato secondo le tue esigenze che si
sposta
al record precedente poi al corrente lo valorizza e si sposta avanti di due
per poi ricominciare.
la faccio breve e un po' confusa perchè è un tantino complessa.
devi stabilire il flusso del recordset.
se non hai capito (cosa assolutamente plausibile) forse ho in giro un
vecchio codice che fa questo...
intanto che lo cerco prova a rifletter su quanto ti ho accennato.
M


title: Calcolo date tra record

text:
"ciroteo ®" <ciroteo(nospam)@
libero.it
> ha scritto nel messaggio
news:46272c56$0$36444$4faf...@reader5.news.tin.it...

da adattare:
Dim rst As DAO.Recordset
Me!posizione = ""
Set rst = Me.RecordsetClone
DoCmd.GoToRecord , , acFirst
DoCmd.GoToRecord , , acNext
rst.MoveFirst
rst.MoveNext
Do Until rst.EOF
    rst.MovePrevious ' controlla sintassi
    Me!posizione = rst!ora_fine
    DoCmd.GoToRecord , , acNext
    rst.MoveNext
    rst.MoveNext 'così va avanti di 2 altrimenti resta sempre li
    If IsNull(Me.data_prestazione) Then Exit Do
    Loop
Set rst = Nothing


title: Calcolo date tra record

author: Roberto dal portatile

text:
"MarcoGi" <
magi...@tin.it
> ha scritto nel messaggio
news:46268aae$0$37201$4faf...@reader3.news.tin.it...

Se il tuo problema è far riferimento in una query al valore di un campo del
record precedente o seguente, vai al seguente link:
http://support.microsoft.com/kb/101081/en-us
C'è anche la traduzione dell'articolo in italiano, ma te la sconsiglio visto
che è praticamente incomprensibile.
> Bye bye
--
Roberto
-----------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
-----------------------------------------------


title: Calcolo date tra record

author: Bruno - S95

text:
"access" <
pr...@exsample.it
> ha scritto nel messaggio
news:DHwVh.10798$R_5.3...@twister1.libero.it...

================================
Ciao, vorrei sapere se con un'altra funzione, in una maschera tabellare,
posso effettuare calcoli matematici o trigonometrici fra un record x e
quello precedente o successivo.
Eventualmente fosse si, puoi aiutarmi con l'espressione da scrivere ? Non ho
grande dimestichezza con Access, perlomenno a certi livelli.
Mille grazie... Bruno


title: Calcolo date tra record

text:
"Bruno - S95" <
mus...@virgilio.it
> ha scritto nel messaggio
news:4644e059$0$36446$4faf...@reader5.news.tin.it...

Vedi mia risposta al tuo messaggio precedente.
>
> Mille grazie...
Prego
> Bruno



title: Calcolo date tra record

text:
"MarcoGi" <
magi...@tin.it
> ha scritto nel messaggio
news:46268aae$0$37201$4faf...@reader3.news.tin.it...

____________________
Ciao, io ho usato la seguente formula che ho inserito in una casella
nascosta nella maschera; mi legge il valore del record precedente e mi
permette così di effettuare il calcolo in un'altro controllo utilizzando
DateDiff() '.
.
=IIf(DLookUp("[LatGG]";"[T:planing]";"[WPT]=Forms![MascheraDlookUP]![WPT]+1")
Is
Null;0;DLookUp("[LatGG]";"[T:planing]";"[WPT]=Forms![MascheraDlookUP]![WPT]+1")
Spero possa aiutarti
Bruno
Vedi anche...
Using DLookup()
NOTE: This technique assumes you have a table with an ID field of a Number
data type, and the ID values are not missing any number in sequential order.
If your table does not meet these criteria, then you should use the "Using
Code" method described later in this article.
You can use the following sample DLookup() expressions to obtain values from
a field in the previous or next record of a form, a report, or a query.
Back to the top
In a Form:
To obtain a value from a field in the previous record, type the following
line for the text box's ControlSource property:
=DLookUp("[Field]","Table","[ID]=Forms![Form1]![ID]-1")
To obtain a value from a field in the next record, type the following line
for the text box's ControlSource property:
=DLookUp("[Field]","Table","[ID]=Forms![Form1]![ID]+1")
Back to the top
In a Report:
To obtain a value from a field in the previous record, type the following
line for the text box's ControlSource property:
=DLookUp("[Field]","Table","[ID]=Reports![Report1]![ID]-1")
To obtain a value from a field in the next record, type the following line
for the text box's ControlSource property:
=DLookUp("[Field]","Table","[ID]=Reports![Report1]![ID]+1")
Back to the top
In a Query:
To obtain a value from a field in the previous record, type the following
line in the Field row of the query grid:
Expr1: DLookUp("[Field1]","Table1","[ID]=" & [ID]-1)
To obtain a value from a field in the next record, type the following line
in the Field row of the query grid:
Expr1: DLookUp("[Field1]","Table1","[ID]=" & [ID]+1)
NOTE: In these sample expressions, the "-1" and "+1" indicate the previous
and next records. When the current record is the first record in the
recordset, the "-1" returns a Null value because there is no previous
record. Likewise, when the current record is the last record in the
recordset, the "+1" returns a Null. If you want to return a value from a
record other than the next or previous one, you can specify a different
number, for example, "-3" for the third previous record.


title: da Excel ad Access

author: Giovanni

text:
Vorrei convertire da Excel in Access una procedura che mi consenta,
immettendo nome e cognome, titolo di studio, conoscenze informatiche
possedute dai partecipanti, di avere l'informazione immediata a quale corso
debbano essere iscritti secondo la tabella sottostante:
                                Conoscenze informatiche
Titolo_studio        nulle     basse           media
diploma                 base      intermedio     avanzato
laurea                    base      intermedio     avanzato
lic.elem                  base      intermedio     intermedio
lic.media                base      intermedio     intermedio
In Excel, usando la funzione INDICE e CONFRONTA ho creato l'automatismo, ma
in Access come è possibile crearla nella maschera che chiamerò "anagrafica".
Grazie per qualsiasi aiuto/suggerimento  e scusate della domanda sicuramente
banale per Voi.
Giovanni


title: da Excel ad Access

author: Roberto dal portabile

text:
"Giovanni" <
g.bi...@infinito.it
> ha scritto nel messaggio
news:YNbd7.6374$6F5....@news1.tin.it...

Se la tabella di cui hai indicato la struttura ed i contenuti si chiama
Tabella1.
Se nella tua maschera il controllo in cui digiti il titolo di studio si
chiama Titolo.
Se nella tua maschera il controllo in cui digiti le conoscenze informatiche
si chiama Conoscenze.
Se il controllo della tua maschera dove vuoi visualizzare il corso da fare è
una casella di testo non associata chiamata Corso.
Nell'origine controllo della casella non associata Corso scrivi:
=DLookUp(IIf([Conoscenze]="nulle";"[nulle]";IIf([Conoscenze]="basse";"[basse
]";"[media]"));"Tabella1";"Titolo_Studio=" & Chr$(34) & [Titolo] & Chr$(34))
Se invece Corso è una casella di testo associata, a fronte dell'evento "Dopo
aggiornamento" del controllo Conoscenze genera la seguente riga di codice
VBA:
Me!Corso = DLookup(IIf([Conoscenze] = "nulle", _
"[nulle]", IIf([Conoscenze] = "basse", "[basse]", _
"[media]")), "Tabella1", "Titolo_Studio=" _
& Chr$(34) & [Titolo] & Chr$(34))
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: da Excel ad Access

text:
"Roberto dal portabile" <
r.ma...@libero.it
> ha scritto nel messaggio
news:lLdd7.8055$2L.2...@news.infostrada.it...
>
> "Giovanni" <
g.bi...@infinito.it
> ha scritto nel messaggio
> news:YNbd7.6374$6F5....@news1.tin.it...
> > Vorrei convertire da Excel in Access una procedura che mi consenta,
> > immettendo nome e cognome, titolo di studio, conoscenze informatiche
> > possedute dai partecipanti, di avere l'informazione immediata a quale
> corso
> > debbano essere iscritti secondo la tabella sottostante:
> >
> >                                 Conoscenze informatiche
> > Titolo_studio        nulle     basse           media
> >
> > diploma                 base      intermedio     avanzato
> > laurea                    base      intermedio     avanzato
> > lic.elem                  base      intermedio     intermedio
> > lic.media                base      intermedio     intermedio
> >
> > In Excel, usando la funzione INDICE e CONFRONTA ho creato l'automatismo,
> ma
> > in Access come č possibile crearla nella maschera che chiamerň
> "anagrafica".
> >
> > Grazie per qualsiasi aiuto/suggerimento  e scusate della domanda
> sicuramente
> > banale per Voi.
> > Giovanni
> >
>
> Se la tabella di cui hai indicato la struttura ed i contenuti si chiama
> Tabella1.
> Se nella tua maschera il controllo in cui digiti il titolo di studio si
> chiama Titolo.
> Se nella tua maschera il controllo in cui digiti le conoscenze
informatiche
> si chiama Conoscenze.
> Se il controllo della tua maschera dove vuoi visualizzare il corso da fare
č
> una casella di testo non associata chiamata Corso.
>
> Nell'origine controllo della casella non associata Corso scrivi:
>
>
=DLookUp(IIf([Conoscenze]="nulle";"[nulle]";IIf([Conoscenze]="basse";"[basse
> ]";"[media]"));"Tabella1";"Titolo_Studio=" & Chr$(34) & [Titolo] &
Chr$(34))
>
> Se invece Corso č una casella di testo associata, a fronte dell'evento
"Dopo
> aggiornamento" del controllo Conoscenze genera la seguente riga di codice
> VBA:
>
> Me!Corso = DLookup(IIf([Conoscenze] = "nulle", _
> "[nulle]", IIf([Conoscenze] = "basse", "[basse]", _
> "[media]")), "Tabella1", "Titolo_Studio=" _
> & Chr$(34) & [Titolo] & Chr$(34))
>
> --
>
> Roberto
>
Il codice VBA da generare a fronte dell'evento "Dopo aggiornamento" del
controllo Conoscenze puoi anche semplificarlo cosě:
Me!Corso = DLookup(Me!Conoscenze, "Tabella1", _
"Titolo_Studio=" & Chr$(34) & [Titolo] & Chr$(34))
--



title: da Excel ad Access

text:
Roberto,
ringrazio dei tuoi suggerimenti, tuttavia sono ancora inchiodato.
Ho solo una tabella chiamata Anagrafica, con la relativa maschera con i
seguenti campi
CognomeNome
Titolo      (casella combinata in maschera contenente
"diploma-laurea-lic.elem-lic.media)
Conoscenze (casella combinata in maschera contenente "nulle - basse - media)
Corso            (casella di testo),  oppure....
 A fronte della combinazione "diploma-nulle" nella casella di testo Corso
dovrebbe apparire "base",
A fronte della combinazione "lic.media-media" nella casella di testo Corso
dovrebbe apparire "intermedio",
e cosi via, secondo lo schema di prima.
Dov'è che sbaglio nell'applicare il tuo aiuto? Grazie ancora
Giovanni


title: da Excel ad Access

text:
"Giovanni" <
g.bi...@infinito.it
> ha scritto nel messaggio
news:Qffd7.7003$6F5....@news1.tin.it...

Il primo presupposto perché le cose funzionino è che nel tuo database esista
una tabella chiamata Tabella1 che abbia la seguente struttura:
Tabella1
----------
Titolo_Studio        Testo e chiave primaria
nulle                      Testo
basse                    Testo
media                    Testo
Tale tabella deve contenere i dati così come li hai indicati nel tuo primo
messaggio.
Nella tua maschera la casella combinata Titolo deve avere una sola colonna,
deve avere la proprietà "Tipo origine riga" inpostata a Elenco valori, la
proprietà Origine riga deve contenere:
"diploma";"laurea";"lic.elem";"lic.media"
Nella tua maschera la casella combinata Conoscenze deve avere una sola
colonna, deve avere la proprietà "Tipo origine riga" inpostata a Elenco
valori, la proprietà Origine riga deve contenere:
"nulle";"basse";"media"
A fronte dell'evento "Dopo aggiornamento" della casella combinata Conoscenza
genera il seguente codice VBA:
Me!Corso = DLookup(Me!Conoscenze, "Tabella1", _
"Titolo_Studio=" & Chr$(34) & [Titolo] & Chr$(34))
Ho provato e mi funziona tutto.
A te cosa non funziona?



title: da Excel ad Access

text:
Grazie Roberto,
sei stato veramente chiaro ed esauriente. Ora mi funziona tutto.
Gli errori che ho commesso erano:
- non ho impostato la chiave primaria alla voce Titolo_Studio della tabella1
- due inesattenze nel digitare le parole media  / medie e lic.elem / lic.
elem
Grazie ancora.
Giovanni


title: Disattivo l'ordinamento... e la query si blocca!

author: MegaMax

text:
Problema: ho una query, da codice attivo un certo ordinamento, tutto ok;
quando lo disattivo la query si blocca e non viene piů aggiornata.
Descrizione:
Ho una maschera A, con un controllo A.C che viene usato nei parametri della
query Q per filtrare i risultati.
Nella maschera A ho una sottomaschera continua S che visualizza i dati
estratti da Q
Naturalmente sull'evento "dopo aggiornamento" di A.C effettuo una requery di
S.
Sulla maschera A ho in interruttore, che esegue il seguente codice (ad ogni
aggiornamento)
Private Sub OrdNumScat_AfterUpdate()
If Me.OrdNumScat = True Then
  Me.SubMask.Form.OrderBy = "Maga.Mag"
  Me.SubMask.Form.OrderByOn = True
  Me.SubMask.Form.Requery
  Me.Requery
Else
  Me.SubMask.Form.OrderByOn = False
  Me.SubMask.Form.OrderBy = ""
  Me.SubMask.Form.Requery
  Me.Requery
End If
End Sub
Che attiva e disattiva un particolare ordinamento dei dati.
La query Q ha un suo ordinamento di base, ho visto che questo viene ignorato
quando impongo il mio, e ripreso quando disattivo il mio. (e va bene)
Il problema:
apro ma laschera, e filtro dei dati con A.C... tutto ok
attivo l'ordinamento particolare... cambio A.C per filtrare altri dati....
tutto ok
DISATTIVO l'ordinamento particolare, cambio A.C per filtrare altri dati....
NON VA PIU'; il risultato della query Q non si aggiorna piů e resta bloccato
a quando ho disattivato l'ordinamento particolare.
Perchč?
Ho provato di tutto.... requery, refresh, repaint, recalc... su A.S , su
A....  nulla.
Note strane:
quando tutto funge impongo A.C per non visualizzare nessun record, e
naturalemnte se da debug faccio
    debug.print  forms.A.S.count           ottengo un bello 0
attivo e disattivo l'ordinamento particolare, cosě la query si blocca
poi cambio A.C in un vodo che SO che dovrebbero apparire dei record,
ovviamente non appare nulla....
MA se ca debug faccio
    debug.print  forms.A.S.count
ottengo il numero dei record che dovrebbero apparire.... solo che a schermo
non vedo niente!
Chi sa come baypassare questo problema?
Grazie a tutti, Max


text:
Aiuto mamma che bestialità che ho scritto.... ho sbagliato proprietà!
Si vede che stanotte ho dormito poco....
Chiedo venia :-)
> Note strane:
> quando tutto funge impongo A.C per non visualizzare nessun record, e
> naturalemnte se da debug faccio
>
>     debug.print  forms.A.S.count           ottengo un bello 0
>
> attivo e disattivo l'ordinamento particolare, così la query si blocca



title: Creare report con gruppi separati

author: angrin

text:
Ciao a tutti.
Ho creato un report in cui impostato un determinato campo (numero faldone)
per il raggruppamento. Come posso fare affinch� il report cambi pagina al
cambiare di ogni campo?
Esempio: vorrei che in un foglio ci siano tutti i dati relativi al campo
"numero faldone 1", mentre un altro con "numero faldone 2".
Grazie a tutti qunati vorranno aiutarmi.
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Creare report con gruppi separati

author: Karl Donaubauer

text:
angrin wrote:
> Ho creato un report in cui impostato un determinato campo (numero
> faldone) per il raggruppamento. Come posso fare affinch� il report
> cambi pagina al cambiare di ogni campo?
> Esempio: vorrei che in un foglio ci siano tutti i dati relativi al
> campo "numero faldone 1", mentre un altro con "numero faldone 2".
Nel dialogo "Ordinamento e ragruppamento" imposta la propriet�
"Pi� di pagina (gruppo)" del gruppo a S�.
Nelle propriet� del nuovo pi� imposta la propriet�
"Interruzione pagina" a "Dopo sezione".
Se non vuoi vedere il pi� puoi impostare la sua altezza a 0.
--
cu
Karl
*********
Access FAQ:
www.donkarl.com/it


title: richiesta parametri query

author: stefano pomelli

text:
non riesco a risolvere questo problema:
in una maschera (Maschera ordini ) ho inserito due caselle di testo
formattate come date.
Devo inserire la data di inizio e di termine di una fatturazione.
Dopo l'inserimento lancio una query parametrica che mi restituisce gli
ordini compresi tra  le due date.
Nei criteri della query nel campo data ho inserito:
BETWEEN FORMS![MASCHERAORDINI]![DATAINIZIO] AND
FORMS![MASCHERAORDINI]![DATAFINE]
I controlli li ho chiamati datainizio e data fine
Il problema e' che dopo aver inserito la prima data non riesco in nessun
modo a passare
alla seconda casella di testo perchè la query va in esecuzione sia con invio
o con TAB o con il mouse
senza aspettare la data fine.
Non vorrei usare le maschere automatiche della query parametrica , ma vorrei
appunto appoggiarmi a due caselle di testo.
Preciso che i controlli sono formattati correntemente .
Infiniti ringraziamenti in anticipo
ciao
Stefano


title: richiesta parametri query

author: luca

text:
"stefano pomelli" <
stepo...@infinito.it
> ha scritto nel
...
Allora : secondo me , dovresti lanciare la query solo dopo aver inserito le
due date , e questo lo fai solamente se apri un'altra maschera basata sulla
query, mi spiego : sequenza:
1) apertura maschera di selezione dati che contiene le caselle di testo
quali date
2) clik su un pulsante di esecuzione quesry
3) apertura di una maschera che recupera quei dati ( puoi anche creare una
sottomaschera)
tutto qui. In effetti se le maschera principale aspetta 2 parametri, e'
possibile che appena uno dei due sia selezionato, la query vada in
esecuzione.
Ciao . Luca


title: report con files .pdf

author: Luca

text:
Devo inserire in un report di Access97 alcune pagine in formato PDF:
esistono filtri o ActiveX a tal proposito?
Ho provato a convertirle in WMF ma vorrei evitare conversioni a cascata...


title: report con files .pdf

author: Gianni

text:
On Tue, 5 Nov 2002 00:24:04 +0100, "Luca" <
luca....@tiscalinet.it
>
wrote:
Sono interessato anch'io ciao.



title: report con files .pdf

author: All Eyez On me

text:
"Luca" <
luca....@tiscalinet.it
> ha scritto nel messaggio
news:aq6vii$1a0$1...@lacerta.tiscalinet.it...
> Devo inserire in un report di Access97 alcune pagine in formato PDF:
> esistono filtri o ActiveX a tal proposito?
> Ho provato a convertirle in WMF ma vorrei evitare conversioni a cascata...
>
>
So che usando l'ocx che si installa assieme acrobat reader puoi visualizzare
pdf nelle maschere...prova anche nei report.
AEOM


title: Talvolta le soluzioni più semplici sono le più difficili da individuare

author: Naponet

text: Re al non ci arrivo proprio, grazie a tutti


title: Criteri in DLookUp

author: Alberto S.

text:
Mi riferisco ad un post di Soup, al quale abbiamo risposto sia io che
Roberto. Ora Soup dice di aver risolto, e riporta il codice finale.
Prima di dirgli che questo codice non può funzionare, per scrupolo,
l'ho provato ... e funziona ... anche se la formazione della stringa-
criterio cozza contro tutto quello che io credevo di sapere sulla
concatenazione delle stringhe.
C'è qualcuno che sa dare una spiegazione o un commento?
questo è il codice che ho copiincollato:
Private Sub ZIP2_Exit(Cancel As Integer)
Dim txtState As String
Dim txtCity As String
txtState = DLookup("State", "tblZipCode", "ZipCode =[Zip2] ")
txtCity = DLookup("City", "tblZipCode", "ZipCode =[Zip2] ")
If (Not IsNull(txtState)) Then Me![STATE2] = txtState
If (Not IsNull(txtCity)) Then Me![CITY2] = txtCity
End Sub
Grazie, ciao.
--
   Alberto
No alla guerra


title: Criteri in DLookUp

author: Antonio Biso

text:
"Alberto S." <
sartori.SPA...@tin.it
> ha scritto nel messaggio
news:4t1h8vsh655tjr5q1...@4ax.com...
> Mi riferisco ad un post di Soup, al quale abbiamo risposto sia io che
> Roberto. Ora Soup dice di aver risolto, e riporta il codice finale.
> Prima di dirgli che questo codice non può funzionare, per scrupolo,
> l'ho provato ... e funziona ... anche se la formazione della stringa-
> criterio cozza contro tutto quello che io credevo di sapere sulla
> concatenazione delle stringhe.
>
> C'è qualcuno che sa dare una spiegazione o un commento?
Sì: perchè non hai agganciato il tutto allo stesso thread, invece di aprirne
un altro?!!?
Antonio


title: Criteri in DLookUp

text:
[cut]
>Sě: perchč non hai agganciato il tutto allo stesso thread, invece di aprirne
>un altro?!!?
>
>Antonio
Eddai Anto' ...
la domanda che pongo io č diversa, e poi hai visto che razza di
oggetto ha il thread a cui mi riferisco?!? (thanks for the help)
Ciao :)



title: Criteri in DLookUp

text:
"Alberto S." <
sartori.SPA...@tin.it
> ha scritto nel messaggio
news:hmpj8vkg8bh5kfvar...@4ax.com...
> [cut]
> >Sě: perchč non hai agganciato il tutto allo stesso thread, invece di
aprirne
> >un altro?!!?
> >
> >Antonio
>
> Eddai Anto' ...
> la domanda che pongo io č diversa, e poi hai visto che razza di
> oggetto ha il thread a cui mi riferisco?!? (thanks for the help)
La domanda magari era diversa, ma scaturisce da tutte le considerazioni,
tentativi e soluzioni proposte nell'intero thread, che quindi viene perso...
Io per esempio, non avendo seguito quel thread, non potevo seguire neanche
questo...
Comunque...
Antonio


title: Criteri in DLookUp

text:
[cut]
>La domanda magari era diversa, ma scaturisce da tutte le considerazioni,
>tentativi e soluzioni proposte nell'intero thread, che quindi viene perso...
>Io per esempio, non avendo seguito quel thread, non potevo seguire neanche
>questo...
>Comunque...
>
>Antonio
Giustamente dici di non aver seguito il thread, quindi se hai la bontà
di dedicarmi un po' di tempo ...
- 27/3/2003, h 11.12 apertura thread, mia risposta agganciata
- 28/3/2003, h 9.36 apertura di un altro thread in cui riporta la mia
risposta e da ulteriori informazioni, mia risposta agganciata
- 29/3/2003 h 12.43 Soup apre un terzo thread in cui fornisce
ulteriori (diversi elementi), mia risposta e risposta di Roberto
(anzi, risposta di Roberto e poi risposta mia - che essendo off line
non me ne ero accorto)
- 31/3/2003 h 10.00 e 31/3/2003 h 10.05 apertura di due ulteriori
thread - fortemente cuttati - in cui Soup dice che ora la routine
funziona e riporta il codice che ha usato; nome dei due ultimi thread:
'Now it works (fill fields automatically)' e 'thanks for the help'.
Prova a vedere: l'unico modo per avere le informazioni che tu ritieni
necessarie è andarsi a scovare tutti e quattro (o se vuoi cinque) i
thread.
Inoltre, come ho detto, io mi ero fatto un database di prova con una
maschera ed una tabella con solo gli oggetti - campi e controlli - che
si rilevano dalla sub che ho postato e con solo la sub che ho postato
e questa sub funziona (porca pupazza!) e io non capisco perché. Ora la
situazione sarebbe stata diversa se io avessi fatto da solo un tale
database e avessi chiesto aiuto, dal momento che 'mi funzionava'?
Ora, stante l'estrema difficoltà di ricostruire la storia visto che la
stessa è spalmata su diversi thread, vista l'assoluta inadeguatezza
dei subject, visto che le poche righe in cui ho riassunto la domanda
riportano completamente lo stato del problema che ho riscontrato nel
mio db di prova, io sono convinto di aver agevolato chiunque avesse
voluto ripondere o solo leggere e che altrettanto non sarebbe stato se
mi fossi agganciato ad uno degli ultimi due thread.
Vabbe' Antonio .... buona Pasqua in anticipo ... ciao.
Comunque ti sono ugualmente grato perché grazie alla tua dissertazione
di qualche giorno fa sugli ingegneri mi sono potuto fare una scorta di
argomenti per alcuni mesi.



title: Criteri in DLookUp

text:
"Alberto S." <
sartori.SPA...@tin.it
> ha scritto nel messaggio
news:sedm8v0lko1d5ditl...@4ax.com...
> [cut]
> >La domanda magari era diversa, ma scaturisce da tutte le considerazioni,
> >tentativi e soluzioni proposte nell'intero thread, che quindi viene
perso...
> >Io per esempio, non avendo seguito quel thread, non potevo seguire
neanche
> >questo...
> >Comunque...
> >
> >Antonio
>
> Ora, stante l'estrema difficoltà di ricostruire la storia visto che la
> stessa è spalmata su diversi thread, vista l'assoluta inadeguatezza
> dei subject, visto che le poche righe in cui ho riassunto la domanda
> riportano completamente lo stato del problema che ho riscontrato nel
> mio db di prova, io sono convinto di aver agevolato chiunque avesse
> voluto ripondere o solo leggere e che altrettanto non sarebbe stato se
> mi fossi agganciato ad uno degli ultimi due thread.
Messa così TU hai agito correttamente.
Ma capisci allora che se invece si fosse fatto dall'inizio come si cerca di
predicare (invano) di non aprire nuovi thread invece dei 72 spalmati come si
è fatto, sarebbe stato molto meglio?!?!
Antonio


title: Criteri in DLookUp

text:
[cut]
>> Ora, stante l'estrema difficoltà di ricostruire la storia visto che la
>> stessa è spalmata su diversi thread, vista l'assoluta inadeguatezza
>> dei subject, visto che le poche righe in cui ho riassunto la domanda
>> riportano completamente lo stato del problema che ho riscontrato nel
>> mio db di prova, io sono convinto di aver agevolato chiunque avesse
>> voluto ripondere o solo leggere e che altrettanto non sarebbe stato se
>> mi fossi agganciato ad uno degli ultimi due thread.
>
>Messa così TU hai agito correttamente.
>Ma capisci allora che se invece si fosse fatto dall'inizio come si cerca di
>predicare (invano) di non aprire nuovi thread invece dei 72 spalmati come si
>è fatto, sarebbe stato molto meglio?!?!
>
>Antonio
Assolutissimamente d'accordo. Posso solo dirti che, col mio povero
inglese e purtroppo senza la tua incredibile verve, ho per questo
motivo di volta in volta un po' cazziato il caro Soup.
Ri-ciao :-)



title: Replicazione di dati (Non ho idea di come fare)

text:
Chiedo help forse è facile ma non ci riesco
ho due tabella (tab1, tab2) con i seguenti campi a,b,c in entrambe le
tabelle.
Voglio fare in modo che inserendo il valore nel campo a/b/c di tab1, venga
aggiornato con lo stesso valore il campo a/b/c  di tab2.
Es.
Tab1
a = 10
b = 12
c = 13
Mi devo comparire in tab2
a = 10
b= 12
c= 13
Ho provato a fare tutto questo mettendo in relazione tab1 con tab2 a->a b->b
c->c  applica integrità referenziale ..... ma niente mi da errore dicendo
nessun indice trovato per il campo della tabella primaria a cui si fa
riferimento (cosa vuole dire ???? )
Grazie


author: Alessandro Cara

text:
.-) wrote:
> Chiedo help forse è facile ma non ci riesco
> ho due tabella (tab1, tab2) con i seguenti campi a,b,c in entrambe le
> tabelle.
> Voglio fare in modo che inserendo il valore nel campo a/b/c di tab1, venga
> aggiornato con lo stesso valore il campo a/b/c  di tab2.
[cut]
> Ho provato a fare tutto questo mettendo in relazione tab1 con tab2 a->a b->b
> c->c  applica integrità referenziale ..... ma niente mi da errore dicendo
> nessun indice trovato per il campo della tabella primaria a cui si fa
> riferimento (cosa vuole dire ???? )
la integrita' referenziale non ti popola "automaticamente" la tabella 2
chiave primaria: si va su struttura tabella si selezionano uno o piu'
campi e si usa il bottone con la "chiavetta".
Chiave primaria: significa che non possono esserci 2 record con lo
stesso valore e che il/i campo/i dedicati non possono contenere un "non
valore" (null)
Per implementare la integrita' referenziale c'e' necessita' di impostare
le chiavi primarie
--
a.cara


title: Ordinamento Msk

author: Porello

text:
Ciao a tutti
ho un problema, ho una maschera dove inserisco i carichi di magazzino,
vorrei che all'apertura della stessa i record si ordinassero in base ad un
campo della maschera stessa chiamato datacarico.
Ho provato ad usare la proprieta' della Msk ordina per, ma senza risultati.
Ciao


title: Ordinamento Msk

author: Fabio

text:
"Porello" <
por...@tiscali.it
> ha scritto nel messaggio
news:alicld$bv1$1...@lacerta.tiscalinet.it...

Nell'Evento SuCaricamento
me.orderby="[datacarico]"
me.orderbyon=true
Ciao, FABIO


title: Ordinamento Msk

text:
"Porello" <
por...@tiscali.it
> ha scritto nel messaggio
news:alicld$bv1$1...@lacerta.tiscalinet.it...

Metti, come origine record della maschera, invece che la tabella, una query
sulla tabella, che ti dia tutti i campi ma mettendo come ordinamento il
campo che dici tu
Antonio


title: Ordinamento Msk

text:
"Porello" <
por...@tiscali.it
> ha scritto nel messaggio
news:alicld$bv1$1...@lacerta.tiscalinet.it...

Se non erro su origine record della maschera, generatore sql, li
puoi selezione su che campo ordinare.
--
@---]---- Debora -----[----@


title: Ordinamento Msk

author: Roberto da casa

text:
"Porello" <
por...@tiscali.it
> ha scritto nel messaggio
news:alicld$bv1$1...@lacerta.tiscalinet.it...

Innanzitutto nelle maschere ci sono i controlli e non i campi che invece
sono contenuti nelle tabelle e nelle query, quindi datacarico è un controllo
e non un campo della maschera.
Prova generando il seguente codice VBA a fronte dell'evento "Su caricamento"
della tua maschera:
Private Sub Form_Load()
Me!datacarico.SetFocus
DoCmd.RunCommand acCmdSortAscending
End Sub
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Ordinamento Msk

text:
"Fabio" <
nospam_fa...@tin.it
> ha scritto nel messaggio
news:tN2f9.1337$6O4....@twister1.libero.it...

Grazie mille ho risolto
CIao Porello


title: campo contatore calcolato in una query

author: Dario Ventura

text:
Ho due tabelle collegate da un terza tabella in una relazione molti a molti:
Fatture - Articoli2Fatture - Articoli
Intendo ottenere un oggetto query con la numerazione degli articoli
all'interno di ciascuna fattura (non mi interessa numerare solo nel report):
contatore* 	fattura		articolo
1		1		23AX222
2		1		24PP222
3		1		24PP220
1		2		23AX222
2		2		24PP222
Non avendo un apposito campo contatore, la numerazione probabilmente
dovrebbe essere fatta da una funzione (č simile a quella di un post
precedente):
Public Function Contatore(codice As String) As Integer
If prevcod = codice Then
	num = num + 1
Else
	num = 1
End If
prevcod = codice
Contatore = num
End Function
*prevcod e num sono variabili pubbliche
Ecco la query:
SELECT azzera() AS Azzera, Contatore([Fatture_Id]) AS Contatore,
Articoli2Fatture.Fatture_Id,
Articoli2Fatture.Articoli_Codice
FROM Articoli2Fatture
GROUP BY azzera(), Articoli2Fatture.Prescrizioni_Numero,
Articoli2Fatture.Articoli_Codice;
La funzione azzera(), invocata all'inizio, azzera le variabili num e
prevcod.
Mi chiedo se ci sia un modo piů "pulito" per poter ottenere lo stesso
risultato.
Grazie,
--
Dario Ventura


title: campo contatore calcolato in una query

author: giorgio rancati

text:
"Dario Ventura" <
dar...@liber.it
> ha scritto nel messaggio
news:Dttec.60432$rM4.2...@news4.tin.it...
> Ho due tabelle collegate da un terza tabella in una relazione molti a
molti:
>
> Fatture - Articoli2Fatture - Articoli
>
> Intendo ottenere un oggetto query con la numerazione degli articoli
> all'interno di ciascuna fattura (non mi interessa numerare solo nel
report):
>
> contatore* fattura articolo
> 1 1 23AX222
> 2 1 24PP222
> 3 1 24PP220
> 1 2 23AX222
> 2 2 24PP222
[CUT]
Per ottenere un'oggetto query potresti fare cosě
-----------------------------
SELECT Count(1) AS Contatore,
               F.Fattura, F.Articolo
FROM    Fat AS F
    INNER JOIN Fat AS F2
             ON  F.Articolo >= F2.Articolo
             AND  F.Fattura = F2.Fattura
GROUP BY F.Fattura,F.Articolo
ORDER BY F.Fattura,F.Articolo
------------------------------
Nb. utilizzando una funzione di aggregazione il recordset č in sola lettura,
per fatture con articoli ripetuti utilizzare in aggiunta un campo che
identifica in modo univoco il record.
Ciao Giorgio


title: repliche parziali e sincronia

author: Luc --

text:
Non ho capito bene come ottenere una replica parziale del mio db.
Esiste la possibilità di farlo in autocomposizione?
Inoltre è possibile (e come) sincronizzare in modo unilaterale?
Vorrei cioè fare in modo che solo il mio db venisse aggionato con i dati
raccolti da un portatile e non entrambi.
Grazie
_________________________________________________________________________
Get Your Private, Free E-mail from MSN Hotmail at
http://www.hotmail.com
.
--
Posted from [195.62.170.252] by way of
f95.law3.hotmail.com
 [209.185.241.95]
via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: repliche parziali e sincronia

author: mauri

text:
Riposto il messaggio poichè sono stato contattato in proposito da
qualcuno di cui per un problema di posta elettronica ho perso
l'indirizzo.
Ringrazio
Cordiali Saluti


title: repliche parziali e sincronia

text:
SCUSA HO SBAGLIATO A POSTARE.
ciao


title: repliche parziali e sincronia

text:
Riposto il messaggio poichè sono stato contattato in proposito da
qualcuno del NG, di cui per un problema di posta elettronica ho perso



title: Stampa unione

author: Davide

text:
Buongiorno a tutti,
ma qualcuno sa come evitare il famigerato messaggio in apertura di un
documento stampa unione che dice "Se si apre questo documento verrà eseguito
il seguente comando SQL..etc,etc.."?
Se non è una impostazione di Word anche codice VBA dato che lo apro da lì,
grazie anticipate!
P.S.: pregherei di astenersi da commentini inutili chiunque non sappia
rispondere, anche solo per rispetto di chi ne sa di meno e vuole imparare
qualcosa di più a riguardo, dato che ritengo che lo scopo di questo gruppo
di discussione sia proprio questo. Al momento che ne saprò abbastanza mi
renderò utile anche io, grazie per l'attenzione, no flame please.


title: Stampa unione

author: Sergio MAZZA

text:
"Davide" <
d.or...@studiocode.com
> ha scritto nel messaggio news:dn6dip$17u$1...@balena.cs.interbusiness.it...
> Buongiorno a tutti,
> ma qualcuno sa come evitare il famigerato messaggio in apertura di un documento stampa unione che dice "Se si apre questo
> documento verrà eseguito il seguente comando SQL..etc,etc.."?
> Se non è una impostazione di Word anche codice VBA dato che lo apro da lì, grazie anticipate!
Devi indicare come metodo di apertura dati il DDE non ODBC.
> P.S.: pregherei di astenersi da commentini inutili chiunque non sappia rispondere, anche solo per rispetto di chi ne sa di meno e
> vuole imparare qualcosa di più a riguardo, dato che ritengo che lo scopo di questo gruppo di discussione sia proprio questo. Al
> momento che ne saprò abbastanza mi renderò utile anche io, grazie per l'attenzione, no flame please.
Ah! Mannaggia se lo sapevo non rispondevo; vabbé sarà per la prossima volta...
Ciao.
--
Sergio MAZZA


title: Stampa unione

text:
"Sergio MAZZA" <
sergi...@tiscali.it
> ha scritto nel messaggio
news:dn6fi8$se4$1...@area.cu.mi.it...

Nono, non era assolutamente riferito a te :)
Anzi, grazie per la risposta.


title: database proverbi

author: Nicolas

text:
qualcuno sa se in rete esiste un database di proverbi italiani liberamente
utilizzabile?
grazie.


title: calcolare gg lavorativi nelle queries

author: Sandro

text:
Lo so che l'argomento ultimamente è stato trattato più volte.
Il demo di Enrico Virginio intitolata "Sommare giorni lavorativi ad una
data funziona eccome se funziona in una maschera.
io sto provando a farla funzionare in una query e non ci riesco :
datainiziale	giorni	datafinale	dovrei ottenere
12/01/2005	5	16/01/2005	18/01/2005
13/01/2005	4	16/01/2005	18/01/2005
26/01/2005	2	29/01/2005	27/01/2005
15/01/2005	3	17/01/2005	19/01/2005
flaggando true il check del considera I° giorno
questo è quello che ottengo applicando la funzione in questo modo :
datafinale:
[datainiziale]+contalavorativi([datainiziale];([datainiziale]+[giorni]);Vero)
l'sql è codesto :
SELECT Tabella1.datainiziale, Tabella1.giorni,
[datainiziale]+contalavorativi([datainiziale],([datainiziale]+[giorni]),True)
AS datafinale
FROM Tabella1;
Secondo me funziona bene nelle maschere in quanto sull'evento click c'è
questo :
Do Until 1 = 2
     If ContaLavorativi(DataInizio, DataFine, True) = Giorni_ver Then
         Exit Do
     End If
     DataFine = DataFine + 1
Loop
perche si "looppa" finchè contalavorativi non è uguale a giorni_ver,
conteggio che non viene effettuato in caso di festivo con la variabile
conto.
Non capisco come scrivere queste istruzioni nella function quando si
necessita di utilizzarla nelle queries e non nelle maschere.
Sperando di non avere preso un abbaglio, e di ottenere un aiuto, saluto
tutti e ringrazio per l'attenzione.


title: calcolare gg lavorativi nelle queries

text:
"Sandro" <
sandro...@tin.it
> ha scritto nel messaggio
news:kGyLd.801851$35.31...@news4.tin.it...

La tua diagnosi è giusta: senza ciclo Do ... Loop non tirerai fuori un ragno
dal buco.
Quindi devi scriverti una funzione che contenga tale ciclo, memorizzare tale
funzione in un modulo del tuo database ed infine richiamare tale funzione
dalla tua query: naturalmente dovrai memorizzare in un modulo del tuo
database anche al altre funzioni così come è stato fatto per l'esempio
pubblicato nel  SitoComune.
Vedrai che così avrai il risultato corretto.
--
Roberto
-----------------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
----------------------------------------------------


title: calcolare gg lavorativi nelle queries

text:
[cut]
>
> La tua diagnosi è giusta: senza ciclo Do ... Loop non tirerai fuori un ragno
> dal buco.
> Quindi devi scriverti una funzione che contenga tale ciclo, memorizzare tale
> funzione in un modulo del tuo database ed infine richiamare tale funzione
> dalla tua query: naturalmente dovrai memorizzare in un modulo del tuo
> database anche al altre funzioni così come è stato fatto per l'esempio
> pubblicato nel  SitoComune.
> Vedrai che così avrai il risultato corretto.
Devo dire che non ci sarei arrivato. Grazie.Effettivamente creando
un'altra function il problema si risolve.
Adesso Roby ti sottopongo un'altra domanda.
ho una tabella T_ciclo_lavoro che è la tabella di raccordo tra
T_articoli e T_fasi_lavoro (relazione molti a molti).
Nella T_ciclo_lavoro sono presenti oltre alla due chiavi esterne della
due tabelle anche un campo tempo che è il tempo per effettuare la fase
di lavoro e il macchinario.
componendo una query ottengo mettendo insieme anche altre tabelle la
data di inizio lavorazione e la data di fine lavorazione (con la
function che mi hai suggerito di creare), per ogni ordine.
il problema è che nell'esplosione della query la data di inizio è la
data di inizio di tutte le fasi di lavorazione, uguale per tutte le
fasi, io vorrei che fosse considerata come data di inizio della fase
successiva, la data finale della fase precedente. vorrei ottenere questo :
es.	data inizio	data fine
fase 1	12/01/2005	17/01/2005
fase 2	17/01/2005	19/01/2005
fase 3	19/01/2005	25/01/2005
fase 4	25/01/2005	26/01/2005
...
fase n	26/01/2005
invece ottengo questo :
es.	data inizio	data fine
fase 1	12/01/2005	17/01/2005
fase 2	12/01/2005	19/01/2005
fase 3	12/01/2005	25/01/2005
fase 4	12/01/2005	26/01/2005
...
fase n	12/01/2005
in pratica la data di fine lavorazione per ogni fase per ora la calcolo
solo tenendo conto del tempo necessario per effettuare quella fase dalla
data iniziale vorrei invece tenere conto della data finale della
lavorazione precedente.
Aspetto speranzoso. Ci ho messo una vita ad arrivare fino qua !
Ciao, grazie.


title: calcolare gg lavorativi nelle queries

text:
"Sandro" <
sandro...@tin.it
> ha scritto nel messaggio
news:xGRLd.808121$35.31...@news4.tin.it...

Se non ho capito male tu vuoi, in una query, definire un campo calcoato
basandosi sul valore di un campo dl record precedente.
Se le cose stanno così trovi la soluzione a questo link:
http://support.microsoft.com/kb/q101081/
Delle soluzioni che ti vengono proposte in quell'articolo ti consiglio di
usare quelle realizzate con delle funzioni VBA e non quelle basate sulla
funzione DLookup.



title: calcolare gg lavorativi nelle queries

text:
[cut]
> Se non ho capito male tu vuoi, in una query, definire un campo calcoato
> basandosi sul valore di un campo dl record precedente.
> Se le cose stanno così trovi la soluzione a questo link:
>
>
http://support.microsoft.com/kb/q101081/
>
> Delle soluzioni che ti vengono proposte in quell'articolo ti consiglio di
> usare quelle realizzate con delle funzioni VBA e non quelle basate sulla
> funzione DLookup.
>
> --
> Roberto
Ciao Roby, l'esigenza è proprio questa e cercherò di adattare una delle
function proposte.
Ancora un'altra cosa:
se il tempo lo calcolo in gioni di lavoro è ok, ma pensandoci bene, potrebbe
non essere sufficiente, perchè mi sevirebbe gestire anche l'ora di inzio e
di fine lavorazione e la relativa data.
Se in un giorno lavorativo l'orario di lavoro è 08.00-12.00 e 13.30-17.30
e il tempo per effettuare una lavorazione è ad es. 8 ore e 20 minuti, è
possibile ottenere che se la data di inizio lavorazione è il 02/02/2005 alle
ore 8, la data di fine lavoro è il 03/02/2005 alle ore 8.20 ??
Questo deve valere anche se la data di inizo lavoro è 17.00 del 02/02/2005 e
il tempo lavoro è 3 ore la data di fine lavorazione è 03/02/2005 alle ore
10.30.
mmmm, la vedo dura !!
Grazie, ciao.


title: calcolare gg lavorativi nelle queries

text:
"Sandro" <
sandro...@tin.it
> ha scritto nel messaggio
news:m23Md.484920$b5.22...@news3.tin.it...

Certamente non potrai più cavartela con una semplice differenza tra date; io
convertirei la durata in minuti (considerando che una giornata lavorativa
contiene 480 minuti, o ancora meglio una mezza giornata lavorativa è
composta da 240 minuti), quindi anche con l'ausilia delle funzioni DateAdd e
DateDiff metti insieme un algoritmo di calcolo che tenga conto delle pause
di lavorazione all'inizio, in mezzo ed alla fine della giornata.
Comunque sono d'accordo con te che è concettualmente più complesso delle
procedure adottate sino ad ora.
>
> Grazie, ciao.



title: calcolare gg lavorativi nelle queries

text:
[cut]
> Certamente non potrai più cavartela con una semplice differenza tra date;
io
> convertirei la durata in minuti (considerando che una giornata lavorativa
> contiene 480 minuti, o ancora meglio una mezza giornata lavorativa è
> composta da 240 minuti), quindi anche con l'ausilia delle funzioni DateAdd
e
> DateDiff metti insieme un algoritmo di calcolo che tenga conto delle pause
> di lavorazione all'inizio, in mezzo ed alla fine della giornata.
> Comunque sono d'accordo con te che è concettualmente più complesso delle
> procedure adottate sino ad ora.
Roby, ciao.
Mi hai dato un'altra dritta strepitosa perchè pur sapendo dell'estistenza
delle due sopra citate funzioni ignoravo il fatto che si potessero sommare
ore e minuti a una variabile data/ora, anche se, se ci penso bene è anche
ovvio.
Soprattutto per pensare di sfruttare i minuti ...
Così con la funzione creta grazie al suggerimento di ieri, quella creata con
il suggerimento di oggi, interagendo con le funzioni contalavorativi e
Pasqua ho ottenuto un risultato insperato : quello di ottenere oltre che
alla data effettiva lavorativa della fine produzione di una lavorazione
anche l'ora e i minuti.!!!
Per questo è un risultato eccezionale per l'utilità che mi dà.
Magari te la mando al SC come aggiornamento del demo che già c'è !!
No, sto scherazando, ai più non aggiungerebbe nulla di estremamente
significativo, il demo è a posto così come lo avete presentato.
Ti ringrazio, a presto, CIAO!


title: calcolare gg lavorativi nelle queries

text:
"Sandro" <
sandro...@tin.it
> ha scritto nel messaggio
news:ZecMd.488146$b5.23...@news3.tin.it...

Scusa Sandro, ma io riterrei abbastanza interessante pubblicare una nuova
FAQ contenente quanto hai realizzato: penso che sarebbe utile a molti.
Se ti decidi di inviare una demo al Sito Comune, ti sarei grato se lo
facessi anche con un databse in formato Access 97.



title: calcolare gg lavorativi nelle queries

text:
"Roberto da casa" <
r.masso...@libero.it
> ha scritto nel messaggio
news:cItMd.14543$QG6.2...@twister2.libero.it...

Ciao Roberto,
ok, la mando insieme ad altre due utility che ho realizzato molto semplici
ma efficaci in vers. A97,A00,A03, alla faccia di quel simpatico
frequentatore che lamentava la non presenza di demo nelle ultime versioni
...
Prima però ti richiedo ancora un'ultima consulenza che è tutto il giorno che
invanamente mi sforzo a risolvere.
Ho visto il tuo demo che crea una somma progressiva in una query utilizzando
un function personalizzata in VBA.
Non so se sia corretto applicarla nel caso in cui sono io, oppure se come
già mi hai consigliato il link della Ms di ieri o l'altro ieri.
In pratica mi trovo ad ottenere con la function la data finale e ora finale
di una lavorazione partendo dalla data di inizio lavorazione.
Ciò non capisco è come posso ottenere una query con data in progressione
"sui generis" di quella che hai presentato nel demo.
in pratica se con una macchinario mi trovo in questa situazione :
        data inizio     tempo impiegato(minuti)        data e ora finale
        19/05/04          500                                    20/05/2004
ore 08.20.00
alle 08.20.00 del 20.05.2004 potrei incominciare un'altra lavorazione
(teoricamente)  e quindi ottenre
        20/05/04 ore08.20.00         500                   22/05/2004 ore
08.20.00
e cosi via ....
in pratica la data e ora della lavorazione precedente deve essere la data e
ora di inzio della lavorazione successiva a cui sommare il tempo della
lavorazione attuale.
Altro bel dilemma mi sa! (Spero di essere stato chiaro.)
Dovrei, con una function del record corrente che sto calcolando, risalire
alla data e ora finale del record precedente farla diventare la data
iniziale, e poi da qui sommare il tempo della lavorazione che sto facendo.
E' la strada da fare ? Se no come posso risolvere ?
Ciao, grazie ancora.


title: calcolare gg lavorativi nelle queries

text:
"Sandro" <
sandro...@tin.it
> ha scritto nel messaggio
news:EwuMd.492318$b5.23...@news3.tin.it...

Quello che ti ho consigliato serve sicuramente a far riferimento in una
query al valore di un campo del record precedente o seguente.
Resta il fatto che potresti anche affrontare e risolvere il problema senza
una query ma registrando i risultati in una tabella temporanea aprendo un
recordset sulla tabella che contiene i dati e scorrendo in sequenza tutti
record del recordset (quindi della tabella) e per ogni record determinare
sia la data e l'ora di inizio (risultato del calcolo del record precedente
che avrai memorizzato in una variabile) e sia la data e l'ora di fine,
memorizzando il tutto in una tabella temporanea, al limite con una query di
accodamento.
Ti resta solo da stabilire come determinerai la data e l'ora del primo
record del recordset, visto che per lui non esiste il record precedente.



title: calcolare gg lavorativi nelle queries

author: Andrea Pettenon

text:
Il giorno martedì 1 febbraio 2005 21:31:25 UTC+1, Sandro ha scritto:
> [cut]
> >
> > La tua diagnosi è giusta: senza ciclo Do ... Loop non tirerai fuori un ragno
> > dal buco.
> > Quindi devi scriverti una funzione che contenga tale ciclo, memorizzare tale
> > funzione in un modulo del tuo database ed infine richiamare tale funzione
> > dalla tua query: naturalmente dovrai memorizzare in un modulo del tuo
> > database anche al altre funzioni così come è stato fatto per l'esempio
> > pubblicato nel  SitoComune.
> > Vedrai che così avrai il risultato corretto.
>
> Devo dire che non ci sarei arrivato. Grazie.Effettivamente creando
> un'altra function il problema si risolve.

Come hai scritto questa function?
Come hai scritto nella query la chiamata a questa function per ottenere la data finale da query?

Grazie se riesci a recuperare quello che avevi fatto per la tua problematica, che si adatta perfettamente alla mia.

Andrea


title: Re: Sommare i totali in un report

author: Valerio Valentini

text:
"Marco" <
emmebiTOGLIE...@tiscali.it
> ha scritto nel messaggio
news:m5Uad.119824$35.59...@news4.tin.it...
> Salve, vi sottopongo il mio problema perchè sto impazzendo:
>
> ho fatto un piccolo gestionale che funziona benissimo e, fra le varie
> cose,
> ho creato le mie query che generano report.
>
> Una di queste query mi genera un report che, schematicamente risulta così:
>
> Cod articolo-->Rimanenze finali(espresse in quantità)-->Valore rimanenze
> (espresso in valuta)
>
> Quindi ho (scrivo qui ora cifre a caso, solo per fare l'esempio):
>
> Art.1-->10-->510
> Art.2-->18-->650
> Art.3-->24-->802
>
> Ora io vorrei riuscire a creare un report che mi faccia la somma di
> 510+650+802 e che mi dia un unico valore totale, cosicchè io possa avere
> il
> valore totale del mio magazzino espresso in un unico numero, fermo
> restando
> che il report di cui sopra deve restare intatto.
>
> Io mi rendo conto che probabilmente mi sto perdendo in un bicchier
> d'acqua,
> visto che sono riuscito a realizzare il resto, ma proprio non ci riesco...
>
> Qualcuno, per favore, mi può aiutare a risolvere questo problema che per
> me
> è apparentemente irrisolvibile?
>
> Grazie e scusate la banalità della mia domanda, ma non ne esco.
>
>
A Piè di pagina Report metti un campo calcolato =Somma([NomeCampo]).
Ciao Valerio


title: Re: Sommare i totali in un report

author: Mimmo

text:
On Tue, 12 Oct 2004 17:01:06 GMT, "Marco"
<
emmebiTOGLIE...@tiscali.it
> wrote:
>Salve, vi sottopongo il mio problema perchè sto impazzendo:
>
>ho fatto un piccolo gestionale che funziona benissimo e, fra le varie cose,
>ho creato le mie query che generano report.
>
>Una di queste query mi genera un report che, schematicamente risulta così:
>
>Cod articolo-->Rimanenze finali(espresse in quantità)-->Valore rimanenze
>(espresso in valuta)
>
>Quindi ho (scrivo qui ora cifre a caso, solo per fare l'esempio):
>
>Art.1-->10-->510
>Art.2-->18-->650
>Art.3-->24-->802
>
>Ora io vorrei riuscire a creare un report che mi faccia la somma di
>510+650+802 e che mi dia un unico valore totale, cosicchè io possa avere il
>valore totale del mio magazzino espresso in un unico numero, fermo restando
>che il report di cui sopra deve restare intatto.
>
>Io mi rendo conto che probabilmente mi sto perdendo in un bicchier d'acqua,
>visto che sono riuscito a realizzare il resto, ma proprio non ci riesco...
>
>Qualcuno, per favore, mi può aiutare a risolvere questo problema che per me
>è apparentemente irrisolvibile?
>
>Grazie e scusate la banalità della mia domanda, ma non ne esco.
>
Ma non ti manca il campo [Prezzo Prodotto]? Come fai a calcolare il
valore di ciascuna rimanenza?
Tuttavia la cosa è semplice: nel piè di pagina del report metti una
casella di testo la cui origine dati sia:
=Somma([Campo da sommare])
o meglio
=Somma([Quantità]*[Prezzo prodotto])
Ciao
Mimmo


title: Re: Sommare i totali in un report

author: Marco

text:
> Ma non ti manca il campo [Prezzo Prodotto]? Come fai a calcolare il
> valore di ciascuna rimanenza?
No no, non mi manca il campo [Prezzo Prodotto], infatti io ho esattamente
per ogni rigo il valore corretto di ciascuna rimanenza.
Io lo so che  incredibile, ma è dopo che mi impallo clamorosamente...non
riesco a fargli fare il totale di ogni pagina:-(
> Tuttavia la cosa è semplice: nel piè di pagina del report metti una
> casella di testo la cui origine dati sia:
> =Somma([Campo da sommare])
>
> o meglio
> =Somma([Quantità]*[Prezzo prodotto])
>
> Ciao
> Mimmo
>
Ora provo di nuovo, se non funziona tornerò a chiedere lumi...sto
impazzendo:-S
Comunque grazie, perchè siete gentilissimi nell'aiutarmi, davvero.


title: Re: Sommare i totali in un report

text:
Niente da fare...mi da #Errore.
Direi che sono fuso e disperato a questo punto


title: Re: Sommare i totali in un report

text:
> A Piè di pagina Report metti un campo calcolato =Somma([NomeCampo]).
>
> Ciao Valerio
>
Grazie per la risposta
Scusa però, ma devo ormai essere proprio esaurito...ma non funziona: a ogni
piè di pagina (ce ne sono parecchie) mi da come totale solo l'ultima valore
di ogni pagina.
Dove sbaglio? Scusa, ma penso di essere bollito.


title: Re: Sommare i totali in un report

author: Alessandro

text:
"Marco" <
emmebiTOGLIE...@tiscali.it
> ha scritto nel messaggio
news:mBVad.26709$b5.13...@news3.tin.it...

Ciao Marco,
secondo mè l'errore che commetti è che metti la somma nel piè di pagina non
del report ma della singola pagina o al massimo della sezione, devi mettere
la somma nel piè di pagina corretto.
In fase di bollitura avanzata io agirei in questo modo:
- metto la funzione in tutti i piè di pagina che ho
- controllo in anteprima che alla fine del report ci sia i risultato che mi
aspetto
- ne toglo uno alla volta e capisco dove è quello giusto
- vado a riposare
Ciao Alessandro


title: Re: Sommare i totali in un report

text:
> Ciao Marco,
> secondo mè l'errore che commetti è che metti la somma nel piè di pagina
non
> del report ma della singola pagina o al massimo della sezione, devi
mettere
> la somma nel piè di pagina corretto.
> In fase di bollitura avanzata io agirei in questo modo:
> - metto la funzione in tutti i piè di pagina che ho
> - controllo in anteprima che alla fine del report ci sia i risultato che
mi
> aspetto
> - ne toglo uno alla volta e capisco dove è quello giusto
> - vado a riposare
>
> Ciao Alessandro
>
>
Alessandro, sei un genio! In effetti ho fatto come mi hai suggerito tu e
ovviamente funziona!
Sbagliavo il piè di pagina e ovviamente non poteva funzionare.
Non so come ringraziarti!
Fra i vari consigli che mi hai dato, ho fatto mio anche quello di andare a
riposare...stamattina infatti ho risolto in un minuto.
Ancora grazie di cuore.:-)


title: errori...

author: Mike Dens

text:
ciao..ho questo problema: ho creato una routine che tramite unsa serie di
domande mi dovrebbe permettere di esportare una tabella ed eventualmente
eliminare tutti i record. Per farla breve una volta deciso di esportare e
liminare la tabella si apre la finestra Importa/Esporta, dopo di che viene
eseguita una query di eliminazione. Il problema e' questo: quando riposndo no
alla domanda della query e quindi annullo l'operazione, la routine invece di
andare a leggere l'errore ( On Error GoTo) esce e non mostra il messaggio che
io ho deciso di far vedere in caso di risposta negativa.Inserisco il codice che
mi da problemi:
If Response = vbYes Then    ' L'utente sceglie il pulsante Sě.
            MyString = "Sě" ' Esegue un'azione.
                On Error GoTo Export_Err
                    DoCmd.RunCommand acCmdSaveAs

                       	--->On Error GoTo Query_Err <---
                            DoCmd.OpenQuery "Query di Eliminazione", acNormal,
acReadOnly

        Else ' L'utente sceglie il pulsante No.
            MyString = "No" ' Esegue un'azione.
                On Error GoTo Export_Err
                    DoCmd.RunCommand acCmdSaveAs
                    MsgBox "Archivi Esportati. Clicca OK.", vbExclamation,
"ESPORTAZIONE CONCLUSA"

        End If
Query_Exit:
    Exit Sub
Query_Err:
    MsgBox "Operazione Annullata"
    Resume Query_Exit

Export_Exit:
    Exit Sub
Export_Err:
    MsgBox "Operazione Annullata"
    Resume Export_Exit
Grazie e ciao
Mike
--
Posted from
epid-28-dns.ifc.cnr.it
 [146.48.71.90]
via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: errori...

author: Antonio Biso

text:
Mike Dens <
ra...@tiscalinet.it
> wrote in message
ca02607c2e8defd021...@mygate.mailgate.org...
> ciao..ho questo problema: ho creato una routine che tramite unsa serie di
> domande mi dovrebbe permettere di esportare una tabella ed eventualmente
> eliminare tutti i record. Per farla breve una volta deciso di esportare e
> liminare la tabella si apre la finestra Importa/Esporta, dopo di che viene
> eseguita una query di eliminazione. Il problema e' questo: quando riposndo
no
> alla domanda della query e quindi annullo l'operazione, la routine invece
di
> andare a leggere l'errore ( On Error GoTo) esce e non mostra il messaggio
che
Scusa, ma di quale errore parli?!?!?!
Se annulli l'operazione premendo no, perchč si dovrebbe generare un
errore?!?
Forse fai confusione sul concetto di errore di access, intercettato da on
error...
Antonio


title: errori...

text:
> Scusa, ma di quale errore parli?!?!?!
> Se annulli l'operazione premendo no, perchč si dovrebbe generare un
> errore?!?
> Forse fai confusione sul concetto di errore di access, intercettato da on
> error...
>
> Antonio
-------------------------------------
Hai ragione...mi sono espresso male, (in effetti non mastico niente di
programmazione e mi capita di usare termini inappropriati nel costesto o come
in questo caso di usarli in maniera inappropriata!! :-) ) Io parlo di errore
poichč la routine non fa quel che voglio io, e cioč che quando rispondo no
all'avvio della query di aggiornamento questa mi mostri il mio messaggio
"Operazione Annullata" e non come accade che esca e non dica niente!!!
spero di essere stato piů chiaro.grazie
mike



title: errori...

text:
Mike Dens <
ra...@tiscalinet.it
> wrote in message
06f881274eafd14b52...@mygate.mailgate.org...
>
> > Scusa, ma di quale errore parli?!?!?!
> > Se annulli l'operazione premendo no, perchč si dovrebbe generare un
> > errore?!?
> > Forse fai confusione sul concetto di errore di access, intercettato da
on
> > error...
> >
> > Antonio
> -------------------------------------
>
> Hai ragione...mi sono espresso male, (in effetti non mastico niente di
> programmazione e mi capita di usare termini inappropriati nel costesto o
come
> in questo caso di usarli in maniera inappropriata!! :-) ) Io parlo di
errore
> poichč la routine non fa quel che voglio io, e cioč che quando rispondo no
> all'avvio della query di aggiornamento questa mi mostri il mio messaggio
> "Operazione Annullata" e non come accade che esca e non dica niente!!!
> spero di essere stato piů chiaro.grazie
Insomma...
ma scusa eh?
msg = "La voi fa 'sta query di aggiornamento?!?"
risposta = msgbox (msg, vbyes+vbno)
if risposta = vbno then
  msgbox "Query non eseguita!"
else
  docmd.openquery "tua query"
  msgbox "Query eseguita"
end if
no eh?
Antonio


title: Urgente...esportare in excel con filtro

text:
Salve a tutti, riposto un'aiuto urgentissimo.
Ho bisogno di esportare urgentemente 2 tabelle con filtraggio su di
una di queste.
Cercando una soluzione nel ng ho trovato un codice che fa al caso mio,
ma non so come far estrapolare da due tabelle invece di una. Mi date
un consiglio di come fare? Dovrei consegnare il consolidato dei soci
al piu' presto possibile.
Riporto sotto il codice che ho trovato e adattato per le mie esigenze,
dategli un'occhiata e fatemi sapere come posso fare per il mio
problema.
-------------------------------------------------------------
Private Sub ESPORTA_Click()
Dim excApp As Object
    Dim excDoc As Object
    Dim blOpen As Boolean
    Dim rst As Recordset
    Dim n As Integer
   On Error Resume Next
    blOpen = True
    Set excApp = GetObject(, "Excel.Application")
    If Err.Number = 429 Then
        Set excApp = CreateObject("Excel.Application")
        blOpen = False
        Err.Number = 0
            End If
    On Error GoTo gestErrori
    Set excDoc = excApp.Workbooks.Open("C:\Documents and Settings
\Bifulco1\Desktop\SOCI\CONSOLIDATO 2011\CONSOLIDATO.xlsx")
    excApp.Visible = True
    'Apro il recordset
    Set rst = CurrentDb.OpenRecordset("ESPORTA_EXCELQuery")
    'contatore righe ESPORTA_EXCELQuery
    n = 1
   'Copia tutti i record di ESPORTA_EXCELQuery nel file excel
    With rst
    .MoveFirst ' mi sposto su primo record
    While Not .EOF
    n = n + 1
    excDoc.Worksheets(1).Cells(n, 1) = !GruppoDi  'Cells(Riga,Colonna)
    excDoc.Worksheets(1).Cells(n, 2) = !COGNOME
    excDoc.Worksheets(1).Cells(n, 3) = !NOME
    excDoc.Worksheets(1).Cells(n, 4) = !LuogoNascita
    excDoc.Worksheets(1).Cells(n, 5) = !DataNascita
    excDoc.Worksheets(1).Cells(n, 6) = !CompCri
    excDoc.Worksheets(1).Cells(n, 7) = !DataVer    'qui deve riportare
la data filtrata del 1° anno cioe' 2009
    excDoc.Worksheets(1).Cells(n, 8) = !DataVer    'qui deve riportare
la data filtrata del 2° anno cioe' 2010
    excDoc.Worksheets(1).Cells(n, 9) = !DataVer    'qui deve riportare
la data filtrata del 3° anno cioe' 2011
    .MoveNext 'passa al prossimo record
    Wend
    End With
   rst.Close
   Set rst = Nothing
    If Not blOpen Then
        excDoc.Close savechanges:=True
        excApp.Application.Quit
    End If
esci:
    Set excDoc = Nothing
    Set excApp = Nothing
    Exit Sub
gestErrori:
    MsgBox Err.Number & " - " & Err.Description
    GoTo esci
End Sub
--------------------------------------
sono riuscito ad esportare quello che mi serve in excel, ma non so
come filtrare DataVer.
Come vedete nel codice invece di inserire una tabella, ho inserito una
query, perche' i dati da esportare si trovano su due tabelle. Solo che
ho un problema, non so come filtrare il campo DataVer ed ed esportare
il filtraggio su tre colonne del file excel.
Nella query ho inserito una tabella con i primi 6 campi, e dalla
seconda tabella ho prelevato solo il campo DataVer che si trovano le
date dei pagamenti dei soci.
Ora io avrei bisogno di filtrare questo campo esportando solo un range
di date, e riportarle su tre colonne del file excel.
esempio:
----------------
  DataVer
----------------
24/06/2005
19/01/2006
19/01/2007
13/01/2009
26/01/2010
15/02/2011
----------------
Questi sono i dati presenti nel campo DataVer per ogni socio.
Dovrei filtrare questo unico campo estrapolando solo tre date e
riportarlo nel file excel, una data per ogni colonna.
Spero di non aver fatto un casino per farmi capire.
Vi ringrazio dell'aiuto.


title: Urgente...esportare in excel con filtro

author: Nicoletta

text:

>      MsgBox Err.Number&  " - "&  Err.Description

Non so se ho capito cosa intendi, ma provo:
     While Not .EOF
     	n = n + 1
	'metti qui il controllo generale sulla data
	if !dataver between dAnnoInizio and dAnnoFine then 'ovviamente devi definire le variabile del range interessato oppure usi le costanti con year(!dataver)
    		 excDoc.Worksheets(1).Cells(n, 1) = !GruppoDi  'Cells(Riga,Colonna)
     		excDoc.Worksheets(1).Cells(n, 2) = !COGNOME
     		excDoc.Worksheets(1).Cells(n, 3) = !NOME
     		excDoc.Worksheets(1).Cells(n, 4) = !LuogoNascita
     		excDoc.Worksheets(1).Cells(n, 5) = !DataNascita
     		excDoc.Worksheets(1).Cells(n, 6) = !CompCri
		select case year(!dataver)
			case 2009
		    		excDoc.Worksheets(1).Cells(n, 7) = !DataVer    'qui deve riportare
			case 2010
		    		excDoc.Worksheets(1).Cells(n, 8) = !DataVer    'qui deve riportare
			case 2011
		    		excDoc.Worksheets(1).Cells(n, 9) = !DataVer    'qui deve riportare
		end select
	endif
     	.MoveNext 'passa al prossimo record
     Wend
Nicoletta


title: Urgente...esportare in excel con filtro

text:

Grazie della tua risposta, ho inserito il codice mi da questo errore
su between: Errore di compilazione: Previsto: Then oppure Goto.
Ho provato a leggere l'help, ma non sono riuscito a risolvere il
problema, mi dici cosa devo cambiare o inserire?
Ti ringrazio.


title: Urgente...esportare in excel con filtro

author: Popi - TheBadHabits

text:
On 23 Giu, 08:25, "..:: GiGhEn ::.." <
gighe...@gmail.com
> wrote:
> On 22 Giu, 22:36, Nicoletta <
s...@s.it
> wrote:
> >         'metti qui il controllo generale sulla data
> >         if !dataver between dAnnoInizio and dAnnoFine then 'ovviamente devi definire le variabile del range interessato oppure usi le costanti con year(!dataver)
>
> Grazie della tua risposta, ho inserito il codice mi da questo errore
> su between: Errore di compilazione: Previsto: Then oppure Goto.
> Ho provato a leggere l'help, ma non sono riuscito a risolvere il
> problema, mi dici cosa devo cambiare o inserire?
AFAIK l'operatore "between" non esiste in VBA, bensi' in SQL ;)
Popi


title: Urgente...esportare in excel con filtro

text:

E cosa puoi consigliarmi tu?


title: Urgente...esportare in excel con filtro

text:

> E cosa puoi consigliarmi tu?
Di dirci com'e' fatta la query ESPORTA_EXCELQuery e la struttura delle
tabelle, tanto per cominciare.
Ad esempio: se la query estrae N righe per socio, in cui ogni riga
contiene gli stessi dati tranne la data e' un conto.
Se, invece, hai messo in piedi una query che estrae una sola riga per
socio con N colonne contenenti le diverse date la cosa si fa un
tantino diversa.
In pratica, a seconda delle strutture dati potrebbe essere conveniente
modificare:
- la query per farle estrarre direttamente le 3 date ultime,
- la routine per estrarre separatamente i dati dei soci e dei
pagamenti.
Popi
Popi


title: Urgente...esportare in excel con filtro

author: leblanc

text:

Ciao,
apri la query "ESPORTA_EXCELQuery in visualizzazione SQL, copia tutte
le istruzioni  e incollale prima di aprire il recordset aggiungendo il
filtro per le date;
in pratica:
Dim strsql as string
strsql = "Select.... (prime righe istruzione sql  escluso From + uno
spazio bianco) " _
            &" FROM ....... (origine tabelle e links +uno spazio
bianco) " _
            &"WHERE  qui metti il filtro per anno between ... and ...
come indicato da Nicoletta + spazio bianco se ci sono ulteriori
istruzioni altrimenti chiudi semplicemente le virgolette"
Set rst = CurrentDb.OpenRecordset(strsql)
etc.
Buona fortuna


title: Urgente...esportare in excel con filtro

text:

certo che s�, penso a sql e scrivo gli if...... :-)
sostituisci con !dataver >= dAnnoInizio and !dataver <= dAnnoFine then
Nicoletta


title: Urgente...esportare in excel con filtro

text:

Ciao, le query sono queste:
Esporta:
SELECT [SOCI GENERALE].GruppoDi, [SOCI GENERALE].Cognome, [SOCI
GENERALE].Nome, [SOCI GENERALE].LuogoNascita, [SOCI
GENERALE].DataNascita, [SOCI GENERALE].CompCri, PAGAMENTI.DataVer, *
FROM [SOCI GENERALE] INNER JOIN PAGAMENTI ON [SOCI GENERALE].ID =
PAGAMENTI.IdSoc
WHERE (((PAGAMENTI.DataVer) Between [FORMS]![CONSOLIDATO]![Dalla Data]
And [FORMS]![CONSOLIDATO]![Alla Data]));
SOCI GENERALE Query:
SELECT [SOCI GENERALE].ID, [SOCI GENERALE].COGNOME, [SOCI
GENERALE].NOME, [SOCI GENERALE].SESSO, [SOCI GENERALE].DataNascita,
[SOCI GENERALE].LuogoNascita, [SOCI GENERALE].CodFisc, [SOCI
GENERALE].INDIRIZZO, [SOCI GENERALE].CITTA, [SOCI GENERALE].CAP, [SOCI
GENERALE].PROV, [SOCI GENERALE].EMAIL, [SOCI GENERALE].TelDom, [SOCI
GENERALE].TelCell, [SOCI GENERALE].LINGUE, [SOCI GENERALE].TipoPat,
[SOCI GENERALE].BREVETTI, [SOCI GENERALE].CompCri, [SOCI
GENERALE].GruppoDi, [SOCI GENERALE].NTess, [SOCI GENERALE].DataTess,
[SOCI GENERALE].AnnoIscr, [SOCI GENERALE].DataEsame, [SOCI
GENERALE].TitoloStudio, [SOCI GENERALE].NOTE, [SOCI
GENERALE].DataRegScheda
FROM [SOCI GENERALE]
ORDER BY [SOCI GENERALE].ID, [SOCI GENERALE].COGNOME, [SOCI
GENERALE].NOME;
La struttura delle tabelle sono composte in questo modo:
Una tabella SOCI GENERALE con i dati anagrafici dei soci.
Una tabella PAGAMENTI con i dati dei pagamenti
Una maschera DETTAGLI SOCIO come origine record la query SOCI GENERALE
Query
Una sottomaschera PAGAMENTI nella maschera DETTAGLI SOCIO
ecco questa è la struttura del db.
Ora quello che mi servirebbe fare, esportare solo da alcuni campi
dalla tabella SOCI GENERALE (vedi query ESPORTA)
e le date di pagamento dalla tabella PAGAMENTI.
Ovviamente ad ogni socio deve corrispondere la sua data di pagamento.
Essendo che nella tabella pagamenti c'e' solo un campo "DataVer" con
inserite date differenti tra loro.
Esempio: ogni socio fa il pagamento ogni anno e viene inserita la data
del pagamento, nella sua scheda personale mi escono tutti pagamenti
effettuati nei divesi anni.
Ora ho bisogno di estrapolare (oltre ad alcuni campi del db) anche gli
ultimi tre anni di pagamento e riportarli in un foglio excel, ogni
anno nella sua colonna.
esempio da esportare nel foglio excel.
Gruppo di | Cognome | Nome | luogo di nascita | Data di Nascita |
Componente CRI | Anno 2009 | Anno 2010 | Anno 2011|
Ti ringrazio in anticipo della tua disponibilità.
Se riesci a risolvermi il problema, avrei risolto un enorme lavoro che
ora faccio ancora a mano.


title: Urgente...esportare in excel con filtro

text:

Ciao,
per ottenere il risultato voluto, io modificherei il codice  in questa
maniera:
.....
dim strsql as string
strsql="SELECT [SOCI GENERALE].ID, [SOCI GENERALE].GruppoDi, [SOCI
GENERALE].Cognome, [SOCI
GENERALE].Nome, [SOCI GENERALE].LuogoNascita, [SOCI
GENERALE].DataNascita, [SOCI GENERALE].CompCri, PAGAMENTI.DataVer, * "
_
&" FROM [SOCI GENERALE] LEFT JOIN PAGAMENTI ON [SOCI GENERALE].ID =
PAGAMENTI.IdSoc " _
&" WHERE (((Right(PAGAMENTI.DataVer,4) Between '"& Right([FORMS]!
[CONSOLIDATO]![Dalla Data],4)
&"' And '" & RIGHT([FORMS]![CONSOLIDATO]![Alla Data],4) &"')) " _
&" ORDER BY   [SOCI GENERALE].Cognome, [SOCI
GENERALE].Nome,PAGAMENTI.DataVer"
'***  L'istruzione SQL seleziona tutti i soci, che abbiano o non
abbiano effettuato versamenti tra le date indicate nel form.
Naturalmente ci saranno più records per ogni socio ,'ordinamento è per
Cognome,Nome e data pagamento del socio ma può essere modificato a
piacere cercando però di avere sempre un ordinamento che tenga vicini
gli id socio
Dim MyIDSocio as long     '***** ritenendo che l'ID delle tabell soci
sia un camo long dichiaro un campo MyIDSocio per evitare di aver nel
foglio di excel più righe con il nome dello stesso socio
myIDsocio=0
 Set rst = CurrentDb.OpenRecordset(strsql)
    'contatore righe ESPORTA_EXCELQuery
    n = 1
   'Copia tutti i record di ESPORTA_EXCELQuery nel file excel
    rst.MoveFirst ' mi sposto su primo record
    DO Until rst.EOF
   if  MyIDSocio=rst!ID then goto ScriveData
    n = n + 1
    excDoc.Worksheets(1).Cells(n, 1) =rst!GruppoDi
'Cells(Riga,Colonna)
    excDoc.Worksheets(1).Cells(n, 2) = rst!COGNOME
    excDoc.Worksheets(1).Cells(n, 3) = rst!NOME
    excDoc.Worksheets(1).Cells(n, 4) = rst!LuogoNascita
    excDoc.Worksheets(1).Cells(n, 5) = rst!DataNascita
    excDoc.Worksheets(1).Cells(n, 6) = rst!CompCri
ScriveData:
   if Right(rst!DataVer,4) =RIGHT([FORMS]![CONSOLIDATO]![Alla Data],4)
- 2  'qui filtra la data del 1° anno cioe' 2009
        excDoc.Worksheets(1).Cells(n, 7) = rst!DataVer
    end if
    if Right(rst!DataVer,4) =RIGHT([FORMS]![CONSOLIDATO]![Alla Data],
4) - 1 ''qui  filtra la data del 2° anno cioe' 2010
        excDoc.Worksheets(1).Cells(n, 8) = rst!DataVer
    End if
     if Right(rst!DataVer,4) =RIGHT([FORMS]![CONSOLIDATO]![Alla Data],
4)
         excDoc.Worksheets(1).Cells(n, 9) = rst!DataVer    'qui filtra
la data del 3° anno cioe' 2011
     End If
MyIDSocio=rst!ID
    rst.MoveNext 'passa al prossimo record
   loop
   rst.Close
   Set rst = Nothing
........................
Penso che debba funzionare.
Ciao


title: Urgente...esportare in excel con filtro

text:

Ciao, grazie di avermi risposto stavo controllando in continuazione se
qualcuno  avesse risposto.
Scusami della molta poca esperienza in campo, ma il primo codice e' un
sql che devo copiare al posto del mio Esporta?
Il secondo va nella query SOCIO GENERALE?
Il terzo va collegato al pulsante Esporta?
Perche' dopo aver copiato ed incollato il tuo codice sql nella mia sql
Esporta mi da questo errore:
Istruzione SQL non valida. Prevista
'DELETE','INSERT','PROCEDURE','SELECT' o 'UPDATE'.
Lo stesso errore me lo da anche con la query di SOCI GENERALE.
Sul codice da applicare al pulsante per la conversione mi da questo
errore:
"errore di compilazione  errore di sintassi" suquesta riga
   if Right(rst!DataVer,4) =RIGHT([FORMS]![CONSOLIDATO]![Alla Data],4)
La verita' non so dove mettere le mani.
Me lo potersti spiegare piu' maccheronicamente?
Scusa dell'incompetenza
Grazie.