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).
>
