Eseguire una routine per ogni record di una maschera.

Question

Buongiorno, 

una domanda semplice semmplice

ho una maschera chiamata MAIN con origine dati una tabella NOMI

creo un pulsante Esegui e voglio associare a questo pulsante un ciclo ( per esempio For...Next)

All' evento click del pulsante Esegui (vorrei un aiuto in VBA)

dovrebbe eseguire un codice VBA contenuto in un'altra Sub chiamata P.es. "Code01" per ogni record della maschera MAIN, dal primo all'ultimo.

Grazie mille!

Siete come sempre gentilissimi!

Answer 1

Ciao,

nella routine OnClick puoi richiamare la routine Code01()

Dim myRst as Recordset

Set myRst=Me.RecordSetClone

Myrst.MoveFirst

Do While Not myRst.Eof

     Code01()

     myRst.MoveNext

Loop

Set myRSt=Nothing

Il problema è : come fai riferimento al recordset myRst o ai suoi campi nella Sub Code01?

Mimmo

Answer 2

Il problema è : come fai riferimento al recordset myRst o ai suoi campi nella Sub Code01?

Provo di completare il suggerimento di Mimmo.

Se ho capito bene e se il contenuto del campo è una stringa (dal campo NOMI mi aspetto una stringa):

Dim myRst as Recordset

Set myRst=Me.RecordSetClone

Myrst.MoveFirst

Do While Not myRst.Eof

     Code01(qui metti il riferimento al campo che stai ciclando)

     myRst.MoveNext

Loop

Set myRSt=Nothing

---

La Sub Code01 andrebbe modificata così:

Public Sub Code01(ByVal sNome As String)

     'all'interno della routine puoi utilizzare sNome    

End Sub

Answer 3

Ciao ottimo consiglio,

la sub Code01 utilizza i riferimenti sulle caselle di testo della maschera MAIN sul record corrente,

pertanto dovrei 

1. o modificare la sub Code01 mettendo i riferimenti sul recordset caricato;
2. modificare la routine che mi hai consigliato in modo da dargli questi comandi per esempio:

   Apri la maschera MAIN

   Posizionati sul primo record

   Esegui la Sub Code01

   Vai al record successivo

   Loop

Che mi consigli?

Grazie mille Ciao!!!!