Setelah Googling akhirnya ketemu seperti dibawah :
Dim str_hak As String
Dim str_id As Long
str_id = DMax("id", "login")
str_hak = DLookup("[grup]", "login", "[id] ="& str_id)
If str_hak = "user" Then
Const conSnapshot = 2
Me.RecordsetType = conSnapshot
Else
End If
End Sub
Jadi cara penulisan criterianya sbb : "[id] ="& str_id
Sumber: http://support.microsoft.com/kb/285866/id-id
Semoga bermanfaat
BambangMahfudin
--- In belajar-access@yahoogroups.com, "Bambang Mahfudin" wrote:
>
> Bp Moderator & Accessers,
>
> Mohon petunjuk, saya membuat form dengan RecordsetType defaultnya adalah Dynaset.
> Saya berharap RecordsetType berubah menjadi Snapshot berdasarkan tabel login
> Apabila login sebagai grup "User" maka RecordsetType=Snapshot,
> Tapi apabila login sebagai grup "Admin" RecordsetType=Dynaset.
>
> Saya buatkan coding sbb:
>
> Private Sub Form_Open(Cancel As Integer)
>
> Dim str_hak As String
> Dim str_id As string
>
> str_id = DMax("id", "login")
> str_hak = DLookup("[grup]", "login", "[id] = str_id")
>
> If strhak = "user" Then
>
> Const conSnapshot = 2
> Me.RecordsetType = conSnapshot
>
> Else
> End If
> End Sub
>
> Tapi bermasalah pada kriteria DLOOKUP nya : "[id] = str_id"
>
> Mohon petunjuknya.
>
> Terima kasih
> BambangMahfudin
>
| Reply via web post | Reply to sender | Reply to group | Start a New Topic | Messages in this topic (2) |
Tidak ada komentar:
Posting Komentar