Bingung juga memahami permintaannya :)
Coba cek code anda:
'cek apakah bagian benar
If DLookup("fungsi", "tblUser", "[username]='" & Me.username.Value &
"'") = "01" Then
'tutup logon form and buka database
DoCmd.Close acForm, "Login", acSaveNo
DoCmd.OpenForm "Pembukaan"
Bisa ganti dengan (kira2 begini, kalau ada MDB nya sih bisa langsung test):
tUserName = Me.username
'tutup logon form and buka database
DoCmd.Close acForm, "Login", acSaveNo
'cek apakah bagian benar
tBag = Nz(DLookup("fungsi", "tblUser", "[username]='" & tUserName & "'"),
"")
Select Case tBag
Case "01"
DoCmd.OpenForm "Pembukaan_01"
Case "02"
DoCmd.OpenForm "Pembukaan_02"
Case "03"
DoCmd.OpenForm "Pembukaan_03"
Case "04"
DoCmd.OpenForm "Pembukaan_04"
Case Else
MsgBox "Anda tidak punya hak atas database ini.", vbCritical, "Access
Terbatas!"
Application.Quit
End Select
Smoga bener :)
Haer
On Fri, Feb 6, 2009 at 8:10 AM, hanhan hudaya <[email protected]>wrote:
> Bang Haer, Bang Aksan, Mas Eddy, Bang Opi, Mas Karno dan suhu-suhu access
> lainnya…..
>
> 1. Saya sudah buat tabel "tbluser" yang berisi field "user_id",
> "username", dan "fungsi".
> 2. Saya sudah buat form "login", berikut kodenya yang saya ambil di
> internet.
> 3. Saya sudah buat form Saya sudah buat form "pembukaan admin" untuk
> tampilan apabila fungsi "01".
> 4. Saya sudah buat form "pembukaan" untuk tampilan apabila fungsi "02".
> 5. Saya sudah buat form "pembukaan input" untuk tampilan apabila fungsi
> "03".
>
> Semua design dan kode sudah saya sertakan dalam file attachment.
>
> Yang saya inginkan adalah mohon bantuan kodenya ketika fungsinya "01" form
> yang muncul adalah "pembukaan admin", apabila fungsinya "02" form yang
> muncul adalah "pembukaan", dan fungsinya "03" form yang muncul adalah
>
> Terima kasih atas bantuannya.
>
> Wassalam
>
>
>
> Hanhan
>
>
>
>
>
--
[Haer Talib]
MVP Office Access
Meet me at www.RumahAccess.com
=>
