[belajar-access] Bagaimana Cara Buat login Level

Halo smua master access, saya sudah membuat form login (sederhana),tapi saya ingin agar user yang login bisa akses menu sesuai dengan level masing-masing, bagaimana caranya? Dimana saya perlu menambahkan suatu kondisi? Saya mohon bantuannya,sebelumnya saya ucapkan terima kasih.

 

Berikut ini saya sertakan code yang suah saya buat:

 

Public Sub cmdlogin_Click()

Dim sql As String

Dim rs As Object

 

If Txtuser.Value <> “” And Txtpword.Value <> “” Then

 

sql = "select * from tuser where userid='" & Txtuser & "' and pword='" & Txtpword.Value & "'"

 

Me.RecordSource = sql

Set rs = Me.RecordsetClone

If Not rs.EOF Then

MsgBox "login sukses", vbInformation, "Jendela Pesan"

 

DoCmd.Close acForm, "login"

DoCmd.OpenForm "menu utama", acNormal

 

Else

MsgBox "Id dan password tidak sesuai", vbExclamation, "Jendela Pesan"

 

End If

 

Else

 

MsgBox "Isikan data dengan lengkap terlebih dahulu", vbInformation + vbOKOnly, "Jendela Pesan"

 

End If

End Sub

 

Private Sub cmdexit_Click()

DoCmd.Quit

 

End Sub

 

 

__._,_.___

SPAM IS PROHIBITED

Your email settings: Individual Email|Traditional
Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Daily Digest | Switch to Fully Featured
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe

__,_._,___