ini sekedar berbagi saja, kang mansur
kalau saya dibuat combo box, terus di row source dari mysysobject yang otomatis dibuat oleh ms access
dibuat lah after updatenya docmd.openform me.combo1, dst...
mohon maaf kalau tidak seperti yang diinginkan yah, sekedar bagi pengalaman biar gampang itu yang dilakukan di contoh accesss bawaannya
imam
Dari: Mansur <dragon_27P@yahoo.com>
Kepada: "belajar-access@yahoogroups.com" <belajar-access@yahoogroups.com>
Dikirim: Jumat, 8 Februari 2013 9:25
Judul: [belajar-access] Listview double Clik
kalau saya dibuat combo box, terus di row source dari mysysobject yang otomatis dibuat oleh ms access
dibuat lah after updatenya docmd.openform me.combo1, dst...
mohon maaf kalau tidak seperti yang diinginkan yah, sekedar bagi pengalaman biar gampang itu yang dilakukan di contoh accesss bawaannya
imam
Dari: Mansur <dragon_27P@yahoo.com>
Kepada: "belajar-access@yahoogroups.com" <belajar-access@yahoogroups.com>
Dikirim: Jumat, 8 Februari 2013 9:25
Judul: [belajar-access] Listview double Clik
Dear Bapak/Ibu,
Perkenalkan saya Mansur, saya bukan programmer
Mohon bantuannya untuk masalah listview ms acces 2010.
Saya ada suatu Access program sederhana yang menggunakan listview,
namun ketika isi listview ini di double clik form yang diinginkan tidak dapat dibuka.
program nya seperti ini;
Private Sub ListviewWO_DblClick()
On Error GoTo Err_ListViewWO_DblClick
Dim lstListItem As ListItem
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "CurrWOForm"
stLinkCriteria = "[WorkorderNo]=" & "'" & Me!ListViewWO.SelectedItem.Text & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_ListViewWO_DblClick:
Exit Sub
On Error GoTo Err_ListViewWO_DblClick
Dim lstListItem As ListItem
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "CurrWOForm"
stLinkCriteria = "[WorkorderNo]=" & "'" & Me!ListViewWO.SelectedItem.Text & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_ListViewWO_DblClick:
Exit Sub
Err_ListViewWO_DblClick:
MsgBox err.Description
Resume Exit_ListViewWO_DblClick
End Sub
MsgBox err.Description
Resume Exit_ListViewWO_DblClick
End Sub
Mohon pencerahannya bagaimana supaya double clik ini bisa jalan
Terima kasih
Mansur
__._,_.___
| 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