MS ACCESS MAILING LIST: Bls: [belajar-access] Bagaimana Cara Buat login Level

Wednesday, May 4, 2011

Bls: [belajar-access] Bagaimana Cara Buat login Level

DoCmd.OpenForm "menu utama", acNormal --> dianggap sukses password nya dan terbuka form menu utama

1. di cek di masing2 menu tersebut dg anggapan sudah ada group level dari masing2 user
misal : admin , kasir , staf dst

If Group = "Kasir" then ' hanya 1 group level
Menu penjualan terbuka
else
MsgBox "Maaf , anda tidak punya akses untuk menu ini ",64 , "Message"
endif

If Group = "admin" Or Group = "Kasir" then
Menu abc terbuka
else
MsgBox" tidak ada akses untuk ini"
endif

2. yang di nomor satu itu berlaku kalau cuma untuk akses terbatas gimana kalau nanti diminta detail per-nama dg akses berbeda2 ? gak bisakan kalau pakai cara tsb karena ribet...
buat aja tabel hak akses

trus buat modul mis :

Public Function CekHakAksesMenu(IDMenu As Integer) As Integer

    A = DLookup("IDM", "tabelMenuHakakses", "IDM=" & IDMenu)
    If IsNull(A) Or (A = Empty) Then
        CekHakAksesMenu = 0
        MsgBox " Maaf , anda tidak memiliki akses untuk menu tersebut ! ", 64, "Message"
    Else
        CekHakAksesMenu = 1
    End If
End Function

trus di masing2 menu panggil pengecekan tsb dg isian :

' x itu di tentukan sesuai isi field dari tabel yg kita buat untuk menu hak akses
If CekHakAksesMenu(x) = 1 Then
        stDocName = "rptDataPasienTreatment"
        DoCmd.OpenReport stDocName, acPreview
End If

Salam,
~ Sioon ~

--- Pada Rab, 4/5/11, Trisna M Andri <andritm_trisia@yahoo.co.id> menulis:

Dari: Trisna M Andri <andritm_trisia@yahoo.co.id>
Judul: [belajar-access] Bagaimana Cara Buat login Level
Kepada: belajar-access@yahoogroups.com
Tanggal: Rabu, 4 Mei, 2011, 2:36 AM

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