[Attachment(s) from hari yanto included below]
Bismillahirrohmanirrohim...,
Untuk membuat aplikasi multiuser, 1 ms Acces bisa diakses bareng-bareng. Agar ada pengakuan data masing-masing user dan untuk menghindari tumpang tindih antar user, lebih baik menggunakan tabel temporer untuk masing-masing user.
Gambarannya begini. Misal user A, mengakses data pokok, saat itu juga dibuatkan tabel temporer (bisa memakai pembeda MacAdress atau nama komputer) ==> melihat dan mengambil pada data pokok ==> memasukkan data ke tabel temporer ==> taruh tabel temporer ke recordsource form.
Dengan begitu, data yang di lihat user sebatas data di tampilan monitor komputernya sendiri. Kalau dia update atau delete, kita tangkap dengan memberi event dan mengirimkan pula ke data pokok.
Terlampir adalah contohnya.
Semoga bisa membantu dan memberi semangat.
Hariyanto (Surabaya)
From: "aries2607@yahoo.com" <aries2607@yahoo.com>
To: belajar-access@yahoogroups.com
Sent: Sunday, 8 September 2013, 19:22
Subject: [belajar-access] RE: fungsi IF untuk login berbeda
--- In belajar-access@yahoogroups.com, <har_i20002000@...> wrote:
Untuk membuat aplikasi multiuser, 1 ms Acces bisa diakses bareng-bareng. Agar ada pengakuan data masing-masing user dan untuk menghindari tumpang tindih antar user, lebih baik menggunakan tabel temporer untuk masing-masing user.
Gambarannya begini. Misal user A, mengakses data pokok, saat itu juga dibuatkan tabel temporer (bisa memakai pembeda MacAdress atau nama komputer) ==> melihat dan mengambil pada data pokok ==> memasukkan data ke tabel temporer ==> taruh tabel temporer ke recordsource form.
Dengan begitu, data yang di lihat user sebatas data di tampilan monitor komputernya sendiri. Kalau dia update atau delete, kita tangkap dengan memberi event dan mengirimkan pula ke data pokok.
Terlampir adalah contohnya.
Semoga bisa membantu dan memberi semangat.
Hariyanto (Surabaya)
From: "aries2607@yahoo.com" <aries2607@yahoo.com>
To: belajar-access@yahoogroups.com
Sent: Sunday, 8 September 2013, 19:22
Subject: [belajar-access] RE: fungsi IF untuk login berbeda
halo..
saya sudah bisa membuat untuk login page dengan menggunakan level.
Sekarang saya ingin bertanya bagaimana cara nya supaya project yang saya buat bisa di akses multi user?
mungkin bisa di bilang standalone tetapi multi user.
disini saya tidak menggunakan sql.
Terima kasih.
--- In belajar-access@yahoogroups.com, <har_i20002000@...> wrote:
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@..." <aries2607@...>
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@..." <aries2607@...>
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.
__._,_.___
Attachment(s) from hari yanto
1 of 1 File(s)
| Reply via web post | Reply to sender | Reply to group | Start a New Topic | Messages in this topic (5) |
SPAM IS PROHIBITED
.
__,_._,___
Tidak ada komentar:
Posting Komentar