Boa tarde a todos,
Uma ajuda por favor:
Porque o código abaixo só me retorna a última linha?
Uma ajuda por favor:
Porque o código abaixo só me retorna a última linha?
- Código:
(...)
Dim MySearch As Variant
sSQL = "SELECT xxxxxxxxxxxxxxxx);"
Set dbs = CurrentDb
Set Rst = dbs.OpenRecordset(sSQL, dbOpenSnapshot)
Rst.MoveFirst
Do While Not Rst.EOF
MySearch = Array(Rst!NomeProf & vbCrLf)
Rst.MoveNext
Loop
(...)
Última edição por zcarloslopes em 22/5/2020, 10:04, editado 1 vez(es)