2010/4/28 epilambret <[email protected]> > 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*)) <<== > harusnya: *loginkriteria* > > '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 > > > >
-- Jadikan www.gapura.web.id sebagai homepage browser anda. => Akses ke website favorit tinggal klik aja. (Lihat dulu deh).
