RE: [belajar-access] FORM Password

mau sambung dgn pertanyaan nich... bisakah kita mengetahui siapa saja yg telah merubah data pada form. berdasarkan password saat user login. terima kasih Saehu --- On Mon, 1/17/11, hasimnurhsm@yahoo.com <hasimnurhsm@yahoo.com> wrote: From: hasimnurhsm@yahoo.com <hasimnurhsm@yahoo.com> Subject: RE: [belajar-access] FORM Password To: belajar-access@yahoogroups.com Date: Monday, January 17, 2011, 2:26 PM kl tujuannya hanya sekedar untuk membuat password diform disaat dibuka dan pengetikan password hide misal (****), menggunakkan logika yg sudah dibahas oleh rekan2 sebelumnya, mungkin bisa digabung dengan trik yang ada link ini:http://www.access-programmers.co.uk/forums/showthread.php?s=a4a4a2f1f2ad194cc7c9b5e5a0eda6f5&t=176711 kebetulan ada sample mdb yg bisa didwonload maaf kl masih salah. Nurhasim --- On Thu, 13/1/11, Access Wizards <accesswizards@gmail.com> wrote: From: Access Wizards <accesswizards@gmail.com> Subject: RE: [belajar-access] FORM Password To: belajar-access@yahoogroups.com Received: Thursday, 13 January, 2011, 11:54 PM   Buat table t_user, form : Login, formTertentu_customLogin seperti picture. Pada property sheet textbox txtpassword input mask = password agar pada saat pengisian password dari teks menjadi "******"   Pasang event ini pada button Okey dan Cancel   Option Compare Database   Private Sub Cancel_Click()  DoCmd.Close acForm, "login", acSaveNo  DoCmd.Close acForm, "FormTertentu_CustomLogin", acSaveNo End Sub   Private Sub okey_Click() inputlogin = (Nz(txtUsername, "")) 'pesan jika Login kosong If Len(Trim(inputlogin)) < 1 Then 'di sini masih ada kesalahan seharusnya input pass = baru load MsgBox "Masukin dong om User Name nya...", vbCritical, "Warning":: txtUsername.SetFocus:: Exit Sub   'mencari data login name dan password dari t_user inputpass = (Nz(txtpassword, "")) loginkriteria = "((txtUserName)= '" & inputlogin & "')" getpass = UCase(DLookup("Password", "t_user", loginkriteria))   'jika nama tidak ada dlm tabel atau password dan nama tidak cocok If IsNull(getpass) Then MsgBox "User Name Tidak terdaftar", vbCritical, "Warning":: txtUsername.SetFocus:: Exit Sub If (Trim(getpass) <> Trim(inputpass)) Then MsgBox "User Name dan atau Password tidak cocok", vbCritical, "Warning":: txtpassword.SetFocus:: Exit Sub Else     'pesan jika Login berhasil     MsgBox "Good Job i like it, Login Anda Berhasil", vbInformation, "Konfirmasi"       DoCmd.Close acForm, "login", acSaveNo     DoCmd.OpenForm "FormTertentu_CustomLogin", acNormal End If End Sub       Best Regards, AccessWizards   From: belajar-access@yahoogroups.com [mailto:belajar-access@yahoogroups.com] On Behalf Of Mansur Widayat Sent: 14 January 2011 10:23 To: belajar-access@yahoogroups.com Subject: Re: [belajar-access] FORM Password     Pada waktu pengisian password di kotak dialog, format textbox nya kok berbentuk text mas, klo misalnya format text nya di ganti format password gimana script nya mas? ----- Original Message ----- From: "Aksan Kurdin" <aksan.kurdin@gmail.com> To: <belajar-access@yahoogroups.com> Sent: Thursday, January 13, 2011 4:00 PM Subject: Re: [belajar-access] FORM Password > Dear Mansur W > Tampaknya, form itu kalau dibuka harus lewat password kah ? > sederhananya, anda sisipkan pertanyaan password di event open form, > misal seperti: > > password_entry = inputbox ("Password","Password") > if password_entry <> "Mansyur S" then > cancel = -1 > exit sub > endif > > > maksud script itu, saat form dibuka, event on open di panggil. script > akan menanyakan password melalui input box standar windows. jika user > tidak mengisi dengan password yang benar "Mansyur S", maka open event di > cancel. Form gak jadi dibuka. > > aksan kurdin > > ps. tidak di tes di access, please correct tuh code dulu ya .... > > On 1/13/2011 3:35 PM, Mansur Widayat wrote: >> >> hehehehe, mungkin akan jadi penerusnya Mansyur S kali he,,, >> >> Trus Script nya gimana mas agar buka form tsb dengan password khusus. >> >> ----- Original Message ----- >> From: "Access Wizards" <accesswizards@gmail.com >> <mailto:accesswizards%40gmail.com>> >> To: <belajar-access@yahoogroups.com >> <mailto:belajar-access%40yahoogroups.com>> >> Sent: Thursday, January 13, 2011 2:36 PM >> Subject: RE: [belajar-access] FORM Password >> >> > Selamat siang, >> > >> > >> > >> > Saya ingin menjawab, mungkin skenarionya begini mas Mansur... ( inget >> > Masyur >> > S jadinya)... >> > >> > 1. Buat form login (isikan username dan password) >> > >> > 2. Membuka Form tertentu tersebut, Load form pertama kali adalah >> > "Form >> > Login" ini, jika isian benar maka Form tertentu akan terbuka, jika >> > salah >> > ulang 3 kali, masih salah juga close form misalnya. >> > >> > >> > >> > >> > >> > Best Regards, >> > >> > AccessWizards >> > >> > >> > >> > From: belajar-access@yahoogroups.com >> <mailto:belajar-access%40yahoogroups.com> >> > [mailto:belajar-access@yahoogroups.com >> <mailto:belajar-access%40yahoogroups.com>] >> > On Behalf Of Mansur Widayat >> > Sent: 13 January 2011 12:00 >> > To: belajar-access@yahoogroups.com >> <mailto:belajar-access%40yahoogroups.com> >> > Subject: [belajar-access] FORM Password >> > >> > >> > >> > >> > >> > Assalamualaikum wr wb. >> > >> > Saya ingin bertanya, gimana caranya memberi password pada form >> > tertentu? >> > >> > >> > >> > >> >> > >