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

Wah thx bgt bang sioon, ntar ane coba dl deh..

 

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

__._,_.___

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

__,_._,___