Newsgroup: it.comp.appl.access
Titolo: accodare dati di una query  ad una tabella tramite modulo

Salve ho una query "Qgencom1" di selezione (con il campo [Cuff] con ordine
Crecente) che mi consente di estrarre tutti i dati da una tabella
"temporanea", in quanto, dopo aver fatto girare la routine verrà svuotata
per far posto a nuovi dati.
Con una seconda query "Qgencom2" mi seleziono solo i dati
(Criterio:Dfirst("Cuff","Qgencom1)) affinchè tramite il modulo sottostante
ad ogni step accodo i dati in un'altra tabella.
Public Function Gencom()
Dim Tco As String, Nco As String, Nuf As String, Dco As Date, C As Double, A
As Double, IDc As Integer, s As QueryDef
Tco = Forms!Principale!AutatX
Nco = IIf(Mid(DMax("Ncom", "QTcom"), 3, 4) = (Right(Date, 4)), Tco &
Format(Right(Date, 4)) & Format((Right(DMax("Ncom", "QTcom"), 4) + 1),
"0000"), Tco & Format(Right(Date, 4)) & "0001")
Dco = Date
Nuf = DFirst("Cuff", "Qgencom2")
For C = DCount("Cuff", "Qgencom2") To 1 Step -1
DoCmd.SetWarnings False
DoCmd.RunSQL "INSERT INTO Cntcatti(Ncom,Dcom)VALUES ('" & Nco & "','" & Dco
& "')"
[QTcom].Requery
IDc = DFirst("IDco", "QTcom", "Ncom = Nco") '
For A = DCount("Cuff", "Qgencom3") To 1 Step -1
DoCmd.RunSQL "INSERT INTO Detcatti ( Nprg)VALUES ('" & IDc & "')"
DoCmd.RunSQL "INSERT INTO Detcatti ( Nprg, Uten, IDcar, Impc, Tyca, Grpc,
Ccon, " & _
"Cofi, Anad, Indd, Comd, Anaa, Indt, Comt, Cges, Cuff, Nprc, Dprc, Tyat,
[Note] )" & _
"SELECT Qgencom1.Nprg, Qgencom1.Uten, Qgencom1.IDcar, Qgencom1.Impc,
Qgencom1.Tyca, " & _
"Qgencom1.Grpc, Qgencom1.Ccon, Qgencom1.Cofi, Qgencom1.Anad, Qgencom1.Indd,
Qgencom1.Comd, " & _
"Qgencom1.Anaa, Qgencom1.Indt, Qgencom1.Comt, Qgencom1.Cges, Qgencom1.Cuff,
Qgencom1.Nprc, " & _
"Qgencom1.Dprc, Qgencom1.Tyat, Qgencom1.Note""FROM Qgencom1 WHERE
(((Qgencom1.Cuff) = DFirst("Cuff", "Qgencom1"))));"
DoCmd.SetWarnings True
Next A
Next C
End Function
alla riga IDc = DFirst("IDco", "QTcom", "Ncom = Nco") dopo aver cliccato su
Esegui viene visualizzato il messaggio Errore run-time '64479' - impossibile
trovare il nome 'Nco'
alla riga ("Cuff", "Qgencom1"))));" viene evidenziato Cuff e visualizzato il
messaggio [Previsto: fine istruzione]
ho provato ad inserire varie parentesi ma nisba.
scusate se sono stato un pò lungo e forse poco chiaro
grazie per l'aiuto
michele
n.b. ho omesso l'istruzione che mi cancella i dati ad ogni step di C
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 (((Qgencom1.Cuff) = DFirst("Cuff", "Qgencom1"))));"
o al più
"Qgencom1.Dprc, Qgencom1.Tyat, Qgencom1.Note " & _
"FROM Qgencom1 WHERE (((Qgencom1.Cuff) = DFirst("Cuff", "Qgencom1"))));"
Ciao
Roberto


grazie per la risposta ma il 1° problema grazie al tuo spunto l'ho risolto
così:
IDc = DFirst("IDco", "QTcom", "Ncom = '" & Nco & "'")
per il 2° pur rimediando all'errore di sintassi ho ancora un msg di errore:
Errore di compilazione:
Previsto: fine istruzione
e si posiziona su "Cuff"
sono disorientato


 ha scritto nel messaggio 
news:82Z53Z88Z30Y11...@usenet.libero.it...

Per il primo punto ha fatto bene (presumo che sia un campo testo) ma attento 
che se nella stringa compaiono apici il codice va in errore.
L'errore ti viene incontro...vuol dire che c'è ancora qualcosa che non va 
nella scrittura del codice.
Ricontrolla che non ci siano altri errori simili nella scrittura
Ciao
Roberto 


Si scusa ho commesso un errore di trascrizione
IDc = DFirst("IDco", "QTcom", "Ncom = '" & Nco & "')
cosě dovrebbe andare meglio.
a dire il vero la seconda parte del codice l'ho ottenuta copiando
l'SQL specifico --> Pass-through della query che intendevo eseguire
mi rendo cono che č un errore di sintassi ma non trovo la soluzione.
sigh!


 ha scritto nel messaggio 
news:82Z61Z44Z18Y1...@usenet.libero.it...

Non sempre il copia-incolla funziona...anzi c'č sempre da aggiustare sempre 
qualche virgola o apice...
comunque se non ci dovessi saltar fuori puoi sempre richiamare la query con 
il comando docmd
il tutto inserito tra
docmd.setwarning false
docmd.setwarnings true
per evitare messaggi
Ciao
Roberto