SABER SE RECORDSET ESTA ABERTO NO DAO

VBSHAR 27/08/2010 10:28:42
#351453
Bom dia pessoal

Álguém sabe se há alguma forma de saber se o recordset esta aberto no DAO?

exemplo

  
if rs.xxx=true then
    msgbox [Ô]Aberto[Ô]
else
   msgbox [Ô]fechado[Ô]
end if


existe alguma propriedade que aponte isto?
MARCOSLING 27/08/2010 11:03:29
#351460
vc pode verificar se o objeto foi criado

if rs Is Nothing then
[ô]fechado
else
[ô]aberto
end if
VBSHAR 27/08/2010 13:56:10
#351488
Não funcionou, tive de criar uma função

 
Function Testa_RS(x As Recordset)
Dim N As Long
    
   On Error GoTo testa_ro_Error

    Testa_RS=True
    N = x.RecordCount
    
   On Error GoTo 0
   Exit Sub

testa_ro_Error:
    If Err = 3420 Then
        Testa_RS=False
    End If
    Exit Sub
End Sub
Tópico encerrado , respostas não são mais permitidas
Voltar