Fin de fichero eof
¿Cómo puedo en access repetir un procedimiento mientras existan registros en un formulario filtrado?
No me acepta la expresión
DO WHILE NOT EOF() ¿En access tiene otro formato? GRACIAS
No me acepta la expresión
DO WHILE NOT EOF() ¿En access tiene otro formato? GRACIAS
1 Respuesta
Respuesta de caggarcia
1
Confío en que este ejemplo te valga:
Dim dbs As Database
Dim Rst As Recordset
Dim Crit1 As String
Set Rst = dbs.OpenRecordset("00_CALC_STOCK", dbOpenDynaset)
Crit1 = "[ID_PROD]<>0"
Rst.FindFirst Crit1
'LA PARTE QUE TE INTERESA
Do Until Rst.NoMatch
msgbox "Hola"
Rst.FindNext Crit1
Loop
Rst.Close
Set dbs = Nothing
Dim dbs As Database
Dim Rst As Recordset
Dim Crit1 As String
Set Rst = dbs.OpenRecordset("00_CALC_STOCK", dbOpenDynaset)
Crit1 = "[ID_PROD]<>0"
Rst.FindFirst Crit1
'LA PARTE QUE TE INTERESA
Do Until Rst.NoMatch
msgbox "Hola"
Rst.FindNext Crit1
Loop
Rst.Close
Set dbs = Nothing
