Início
Robervaldo 5/5/2017, 14:49Bom dia, preciso pegar alguns dados do record set a partir de uma consulta, e dando uma pesquisada pelo fórum eu achei o seguinte código:
Blz, ele funciona perfeitamente, porém as vezes a consulta volta mais de um dado, e mesmo assim ele só diz q tem um quando eu uso o rs.RecordCount, alguem sabe o q é?
- Código:
Dim DB As DAO.Database
Dim rs As DAO.Recordset
Dim qdf As DAO.QueryDef
Dim prm As DAO.
Set DB = CurrentDb
Set qdf = DB.QueryDefs("byRGI")
'Preenche os parâmetros da consulta
For Each prm In qdf.Parameters
prm.value = Eval(prm.Name)
Next prm
Set rs = qdf.OpenRecordset
Blz, ele funciona perfeitamente, porém as vezes a consulta volta mais de um dado, e mesmo assim ele só diz q tem um quando eu uso o rs.RecordCount, alguem sabe o q é?
