attachment terlampir , lihat form1 Best regard Erwin Sugiawan
----- Pesan Asli ---- Dari: epilambret <[email protected]> Kepada: [email protected] Terkirim: Rab, 28 April, 2010 20:58:41 Judul: [belajar-access] Re: get userlevel msh belum berhasil..(untuk menampilkan nilai jabatan nya) -- mohon di hapus yg tidak perlu skalian di luruskan :) inputlogin = UCase(Nz(userLogin, "")) 'Jika Login kosong, agar diisi If Len(Trim(inputlogin)) < 1 Then MsgBox "Masukkan User Name !", vbCritical:: userLogin.SetFocus:: Exit Sub 'mencari data login name dan password dari tbPasswd inputpass = UCase(Nz(password, "")) loginkriteria = "(UCASE([NamaUser])= '" & inputlogin & "')" getpass = UCase(DLookup("[Pass]", "tbPasswd", loginkriteria)) getjabatan = UCase(DLookup("[jabatan]", "tbPasswd", loginlevel)) 'levelkriteria = "(UCASE([jabatan])= '" & inputlogin & "')" 'getlevel = UCase(DLookup("[jabatan]", "tbPasswd", levelkriteria)) 'jika nama tidak ada dlm tabel atau password dan nama tidak cocok If IsNull(getpass) Then MsgBox "User Name Tidak terdaftar", vbCritical, "Maaf":: userLogin.SetFocus:: Exit Sub If (Trim(getpass) <> Trim(inputpass)) Then MsgBox "User Name dan Password tidak cocok", vbCritical:: password.SetFocus:: Exit Sub Else 'Login berhasil MsgBox "Selamat, Login Berhasil", vbInformation, "Login Sukes" 'mendefinisikan nama login dan levelnya V_loginName = userLogin V_loginLevel = DLookup("[jabatan]", "tbPasswd", loginlevel) DoCmd.close acForm, "Frmlogin", acSaveNo End If (code di copast dari web nya bang djmunmun) thks PS: untuk bang erwin sugiawan .. gunakan query dan parameter recordset dan querydef saya blom ngerti bisa di kasih contoh plz? terima kasih.. --- In [email protected], Haer Talib <haerta...@...> wrote: > > 1. Mungkin Exit Sub di atas if(trim(... itu kelupaan dihapus ya... ok, > kita abaikan, karena ini harus dihapus > > 2. Remark pada v_loginlevel juga kelupaan dihapus ya? > > Coba jadiin spt ini: V_loginLevel = DLookup("[jabatan]", > "tbPasswd", loginkriteria) > > Dicobi, > Haer > > > > On Wed, Apr 28, 2010 at 9:53 AM, epilambret <epilamb...@...> wrote: > > inputlogin = UCase(Nz(userLogin, "")) > > > > inputpass = UCase(Nz(password, "")) > > loginkriteria = "(UCASE([NamaUser])= '" & inputlogin & "')" > > getpass = UCase(DLookup("[Pass]", "tbPasswd", loginkriteria)) > > > > Exit Sub > > If (Trim(getpass) <> Trim(inputpass)) Then > > Exit Sub > > Else > > > > V_loginName = userLogin > > 'V_loginLevel = DLookup("[jabatan]", "tbPasswd") > > DoCmd.close acForm, "Frmlogin", acSaveNo > > End If > > > > saya ingin menampilkan level login (jabatan) dari tbPasswd sesuai dengan > > kriteria login. sudah coba2 tapi blom berhasil.. > > > > > > mohon pencerahan > > terima kasih > > > > > > > > ------------------------------------ > > > > SPAM IS PROHIBITEDYahoo! Groups Links > > > > > > > > > > > > -- > > Jadikan www.gapura.web.id sebagai homepage browser anda. > => Akses ke website favorit tinggal klik aja. (Lihat dulu deh). > ------------------------------------ SPAM IS PROHIBITEDYahoo! Groups Links
