Bismillahirrohmanirrohim...,
Menurut saya, lebih baik kita buat manajemen user sendiri. Katakanlah, pada tabel tUser ditambahi field level. Untuk admin misal nilai 1, user 2, keuangan 3. Nah, ketika memanggil tabel tUser, kita ambil nilai level itu, dan mengarahkan ke form yang sesuai.
Scriptnya bisa diubah menjadi :
Set rs = db.OpenRecordset("select * from tUser where uName ='" & txtuser & _
"' and uPwd ='" & txtpwd & "'", dbOpenDynaset)
If rs.RecordCount > 0 Then
if rs.fields("level")=1 then
DoCmd.OpenForm "formsaya"
else if rs.fields("level")=2 then
DoCmd.OpenForm "user"
else if rs.fields("level")=2 then
DoCmd.OpenForm "keuangan"
end if
pesan = MsgBox("Login Sukses", vbOKOnly, "Sukses")
Semoga bisa membantu dan memberi semangat.
Hariyanto (Surabaya)
From: "aries2607@yahoo.com" <aries2607@yahoo.com>
To: belajar-access@yahoogroups.com
Sent: Friday, 6 September 2013, 0:24
Subject: [belajar-access] fungsi IF untuk login berbeda
Menurut saya, lebih baik kita buat manajemen user sendiri. Katakanlah, pada tabel tUser ditambahi field level. Untuk admin misal nilai 1, user 2, keuangan 3. Nah, ketika memanggil tabel tUser, kita ambil nilai level itu, dan mengarahkan ke form yang sesuai.
Scriptnya bisa diubah menjadi :
Set rs = db.OpenRecordset("select * from tUser where uName ='" & txtuser & _
"' and uPwd ='" & txtpwd & "'", dbOpenDynaset)
If rs.RecordCount > 0 Then
if rs.fields("level")=1 then
DoCmd.OpenForm "formsaya"
else if rs.fields("level")=2 then
DoCmd.OpenForm "user"
else if rs.fields("level")=2 then
DoCmd.OpenForm "keuangan"
end if
pesan = MsgBox("Login Sukses", vbOKOnly, "Sukses")
Semoga bisa membantu dan memberi semangat.
Hariyanto (Surabaya)
From: "aries2607@yahoo.com" <aries2607@yahoo.com>
To: belajar-access@yahoogroups.com
Sent: Friday, 6 September 2013, 0:24
Subject: [belajar-access] fungsi IF untuk login berbeda
Halo.. saya mempunyai script untuk form login seperti berikut :
Private Sub cmdlogin_Click()
Dim db As Database
Dim rs As Recordset
Set db = CurrentDb()
Set rs = db.OpenRecordset("select * from tUser where uName ='" & txtuser & _
"' and uPwd ='" & txtpwd & "'", dbOpenDynaset)
If rs.RecordCount > 0 Then
pesan = MsgBox("Login Sukses", vbOKOnly, "Sukses")
DoCmd.OpenForm "formsaya"
Else
pesan = MsgBox("Login Gagal, masukan userid dan password", vbOKOnly, "Gagal")
End If
End Sub
pertanyaan nya bagaimana jika saya ingin melakukan login dengan lvl access yang berbeda? misal user a jika login akan muncul form a dan user b jika login akan muncul form b.
Mohon bantuannya.
Terima kasih.
Private Sub cmdlogin_Click()
Dim db As Database
Dim rs As Recordset
Set db = CurrentDb()
Set rs = db.OpenRecordset("select * from tUser where uName ='" & txtuser & _
"' and uPwd ='" & txtpwd & "'", dbOpenDynaset)
If rs.RecordCount > 0 Then
pesan = MsgBox("Login Sukses", vbOKOnly, "Sukses")
DoCmd.OpenForm "formsaya"
Else
pesan = MsgBox("Login Gagal, masukan userid dan password", vbOKOnly, "Gagal")
End If
End Sub
pertanyaan nya bagaimana jika saya ingin melakukan login dengan lvl access yang berbeda? misal user a jika login akan muncul form a dan user b jika login akan muncul form b.
Mohon bantuannya.
Terima kasih.
__._,_.___
| Reply via web post | Reply to sender | Reply to group | Start a New Topic | Messages in this topic (2) |
SPAM IS PROHIBITED
.
__,_._,___
Tidak ada komentar:
Posting Komentar