VBA MS Access : Memeriksa Keberadaan Recordset dan Record

Option Compare Database

Private Sub Command17_Click()

Dim rs As DAO.Recordset

Dim db As Database

Set db = CurrentDb

Set rs = CurrentDb.OpenRecordset("dataUsia")

If rs.RecordCount <> 0 Then

Debug.Print "ada records"

End If

If (rs.EOF = False) Or (rs.BOF = False) Then

Debug.Print "ada recordset"

End If


rs.Close

Set rs = Nothing

Set db = Nothing


End Sub