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 <[email protected]> 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).
