Coba pake ini :
Private Sub Command4_Click()
inputlogin = UCase(Nz(txt_userLogin, ""))
'Jika Login kosong, agar diisi
If Len(Trim(inputlogin)) < 1 Then MsgBox "Masukkan User Name !",
vbCritical, "PERHATIAN !!!":: txt_userLogin.SetFocus:: Exit Sub
'mencari data login name dan password dari tabl_user
inputpass = UCase(Nz(txt_userPass, ""))
loginkriteria = "(UCASE([UserName])= '" & inputlogin & "')"
getpass = UCase(DLookup("[Password]", "tbl_user", loginkriteria))
'jika nama tidak ada dlm tabel atau password dan nama tidak cocok
If IsNull(getpass) Then MsgBox "User Name Tidak terdaftar",
vbCritical, "PERHATIAN !!!":: txt_userLogin.SetFocus:: Exit Sub
If (Trim(getpass) <> Trim(inputpass)) Then
MsgBox "User Name dan Password tidak cocok" & Chr(13) &
"Perhatikan Penggunaan Huruf Besar dan Huruf Kecil", vbCritical,
"PERHATIAN !!!":: PassInput.SetFocus:: Exit Sub
Else
'Login berhasil
MsgBox "Selamat, Login Berhasil", vbInformation
'mendefinisikan nama login dan levelnya
V_loginName = txt_userLogin
V_loginLevel = DLookup("[level]", "tbl_user", loginkriteria)
V_AccessLevel = DLookup("[accesslevel]", "tbl_user", loginkriteria)
DoCmd.Close acForm, "Frmlogin", acSavePrompt
DoCmd.OpenForm "Frm_utama", acNormal
End If
End Sub
Buat modul MODUL sebagai berikut :
Option Compare Database
'untuk memunculkan nama user
Public V_loginName As String
Public V_UserName As String
Public V_AccessLevel As String
Public Function Get_UserName() As String
Get_UserName = V_UserName
End Function
Public Function get_AccessLevel() As String
get_AccessLevel = V_AccessLevel
End Function
On 4/28/10, epilambret <[email protected]> wrote:
> 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).
>>
>
>
>
--
Ahmad Qomaruddin
Sulang Rembang
email : [email protected]
blog : ud13en.blogspot.com
