Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Set db = CurrentDb()
- Set rs = db.OpenRecordset("Select Status_anggota from Tbl_anggota Where Kode_anggota='" & Text2 & "'")
- If rs.RecordCount = "Active" Then
- MsgBox "Status is active", vbInformation
- Else
- MsgBox "Status is not active", vbInformation
- End If
Add Comment
Please, Sign In to add comment