Newsgroup: it.comp.appl.access
Titolo: per Roberto da casa.....ti va di aiutarmi ???

Ciao Roberto mi chiamo Enrico (norica č l' azienda per cui lavoro..), e ieri
avevo postato un problema sui Cicli (ricordi....) la risposta che mi hai
dato č proprio quella che stavo cercando...solo che.....purtroppo non ho
ancora esperienza in fatto di DAO, Recordset ecc.ecc., quindi ho le idee
moolto confuse !!! (e gli help non mi servono a un gran che..)
Vista l' urgenza del mio problema e se non ti rompo... ti andrebbe di
aiutarmi ???
Magari via e-mail cosě facciamo piů rapidamente...
Grazie in anticipo
Enrico
-- 
Posted from 
smtp4.libero.it
 [193.70.192.54] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG


--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://members.xoom.it/it_db_access/
---------------------------------------------

Allora ho una Tabella che si chiama "Insert" utilizzata per inserire dati
relativi a spedizioni ed una form chiamata anch'essa "Insert" utile all'
inserimento degli stessi dati.
Nella maschera form c'è il campo Peso che sulla routine Sub Peso
After_Update () esegue un certo numero di query utili alla generazione del
prezzo e di altri parametri e tramite funzioni DLookup va ad inserire i
valori nei realtivi campi della maschera es.:
Dim VarTariffa As Variant
VarTariffa = DLookup("[Totale]", "QueryPesoTassato_Tariffa")
Me!Tariffa = VarTariffa
Dim varImpo As Variant
varImpo = DLookup("[Imponibile]", "Imponibile")
Me!Imponibile = varImpo
Dim varIva As Variant
varIva = DLookup("[Iva]", "Iva")
Me!Iva = varIva
Dim varTot As Variant
varTot = DLookup("[Totale]", "Totale")
Me!TotaleLit = varTot
e fin qua ci siamo...
Ora come ti avevo già accennato ho bisogno di creare tramite recordset la
possibilità di :
- per un dato periodo ed un dato cliente, aprire per ogni record della
tabella la maschera insert ,di rieffettuare la routine Peso After_Update (e
aggiornare così le tariffe..) e chiudere la maschera...
Io sto provando così:
Dim dbs as Database
Dim rst as Recordset
Set rst = dbs.OpenRecordset ("Insert")
Do Until rst.EOF
DoCmd.OpenForm ("Insert")
- qui vorrei fargli eseguire la routine Sub Peso After_Update-
DoCmd.Close
rst.MoveNext
Loop
Close Recordset
Però non funziona !!!! Mi fa solo un gran casino e va all ' infinito !!!
grazie
Enrico
-- 
Posted from 
smtp1.libero.it
 [193.70.192.51] 


 ha scritto nel messaggio
news:000301c08ad0$fd334440$3200000a@server...

Presupposti:
-------------
1) La tua routine che hai sopra postato è correttamente funzionante (non
sono entrato troppo in merito).
2) La tua tabella contiene i campi CodCli, DataSped, CampoDaModificare
Creati una maschera (Maschera1) non associata ad alcun oggetto; inserisci in
Maschera1 tre caselle di testo non associate chiamate rispettivamente
CodiceCliente, DataDa e DataA; inserisci in Maschera1 anche un pulsante di
comando.
A fronte dell'evento "Su clic" del pulsante di comando genera il seguente
codice VBA:
Dim db As Database
Set db = CurrentDb()
Dim rst As Recordset
Set rst = db.OpenRecordset("Insert")
rst.MoveFirst
Do Until rst.EOF
rst.Edit
If rst!CodCli = Me!CodiceCliente Then
    If rst!DataSped >= Me!DataDa Then
        If rst!DataSped <= Me!DataA Then
            ' qui scrivi la tua routine per effettuare i tuoi calcoli
            ' ed il risultato mettilo in rst!CampoDaModificare
            rst.Update
        End If
    End If
End If
rst.MoveNext
Loop
rst.Close
Set rst = Nothing
db.Close
Set db = Nothing
Apri Maschera1, digita il codice del cliente e le date del periodo, pigia il
pulsante di comando.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------