[belajar-access] fungsi IF untuk login berbeda

 

Halo.. saya mempunyai script untuk form login seperti berikut :

Private Sub cmdlogin_Click()
Dim db As Database
Dim rs As Recordset
Set db = CurrentDb()
Set rs = db.OpenRecordset("select * from tUser where uName ='" & txtuser & _
"' and uPwd ='" & txtpwd & "'", dbOpenDynaset)
If rs.RecordCount > 0 Then
pesan = MsgBox("Login Sukses", vbOKOnly, "Sukses")

DoCmd.OpenForm "formsaya"

Else
pesan = MsgBox("Login Gagal, masukan userid dan password", vbOKOnly, "Gagal")
End If
End Sub

pertanyaan nya bagaimana jika saya ingin melakukan login dengan lvl access yang berbeda? misal user a jika login akan muncul form a dan user b jika login akan muncul form b.
Mohon bantuannya.

Terima kasih.

__._,_.___

Reply via web post

Reply to sender

Reply to group

Start a New Topic

Messages in this topic (1)

Recent Activity:

• New Members 5

Visit Your Group

SPAM IS PROHIBITED

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use • Send us Feedback

.

__,_._,___