| Kalau saya lebih suka tak buat terpisah ..., oh ya lampirannya mas gak bisa dilihat.
Salam,
~ Sioon ~
--- Pada Kam, 5/5/11, Trisna M Andri <andritm_trisia@yahoo.co.id> menulis:
Dari: Trisna M Andri <andritm_trisia@yahoo.co.id>
Judul: RE: [belajar-access] Bagaimana Cara Buat login Level
Kepada: belajar-access@yahoogroups.com
Tanggal: Kamis, 5 Mei, 2011, 2:11 AM
Bang sioon, buat modulnya terpisah atau jadi satu sama modul login ? thx From: belajar-access@yahoogroups.com [mailto:belajar-access@yahoogroups.com] On Behalf Of Sioon Mandra
Sent: Wednesday, May 04, 2011 3:30 PM
To: belajar-access@yahoogroups.com
Subject: 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 | |
No comments:
Post a Comment