Descrição:
Como obter o número de registros que foram retornados por uma consulta?
Solução:
Para isto, utilize a propriedade RecordCount do RecordSet.
Abaixo segue um exemplo de script, executado em um botão de uma tela, que mostra o número de registros retornados pela consulta “ConsultaBusca”:
Dim BuscaID
Set Busca = Screen.Item("ConsultaBusca")
BuscaID = Screen.Item("SetPointBusca").Value
Busca.SetVariableValue "CID", BuscaID
Busca.Execute(TRUE)
Set RS = Busca.GetADORecordset()
MsgBox RS.RecordCount
Anexos:
