Evento OnAsyncQueryFinish da chamada GetAsyncADORecordset()

#1

Boa noite.

Como faço para tratar qualquer informação quando a consulta retorna (vazio).

Exemplo:
Sub [Soma_peças_T1_OnAsyncQueryFinish](Recordset, Error)

‘REPASSA OS VALOR PARA A VARIÁVEL DE TELA’
IF error <> true then
Set RS = Recordset
RS.MoveFirst()
For i=1 to RS.Recordcount
Parent.Item(“Produção_T_1”).Value = Cdbl(RS.Fields(“QUANTIDADE”).Value)
RS.MoveNext()
Next
‘ZERA A VARIÁVEL PARA GARANTIR O INÍCIO DO PROCEDIMENTO DE ATUALIZAÇÃO’
Parent.Item(“Dispara_Atualizações”).Value = 2
ELSE
Parent.Item(“Produção_T_1”).Value = “0”
‘ZERA A VARIÁVEL PARA GARANTIR O INÍCIO DO PROCEDIMENTO DE ATUALIZAÇÃO’
Parent.Item(“Dispara_Atualizações”).Value = 2
END IF

’ caso for vazio faça’
Parent.Item(“Dispara_Atualizações”).Value = 9

End Sub

Obrigado;

#2 
Sub [Soma_peças_T1_OnAsyncQueryFinish](Recordset, Error)   
    If ( Not Error ) Then
    	With Recordset
	    	If (.RecordCount > 0) Then
	    		Do Until .EOF
	    			Parent.Item("Produção_T_1").Value = CDbl(.Fields("QUANTIDADE").Value)	    			
	    			.MoveNext
	  			Loop
	  			' Zera a variável para garantir o início do procedimento de atualização
        		Parent.Item("Dispara_Atualizações").Value = 2
	    	Else
	    		' Consulta vazia
	    		Parent.Item("Dispara_Atualizações").Value = 9
	    	End If
	    End With
    Else
    	' Zera a variável para garantir o início do procedimento de atualização
    	Parent.Item("Produção_T_1").Value = "0"
        Parent.Item("Dispara_Atualizações").Value = 2
    End If
End Sub
2 Likes
#3

Obrigado Leandro, funcionou perfeitamente.