Re: [belajar-access] combobox dengan sumber list shared folder

Jalan, kok. Tuh muncul ......
Ada pesan error ? Apa katanya ?
Coba modifikasi kode jadi berikut:

Private Sub Command5_Click()     Dim strvalue As String     Dim strItem As String          On Error GoTo errHandle      With Me.Combo0         .RowSourceType = "Value List"         strItem = Dir(Text2)         If strItem <> "" Then             Do While strItem <> ""                 strvalue = strvalue & strItem & ";"                 strItem = Dir             Loop         End If         .RowSource = strvalue     End With     Combo0.SetFocus     Combo0.Dropdown      Exit Sub      errHandle:     MsgBox Err.Description, vbCritical, Err.Number End Sub 

aksan kurdin





On 9/16/2010 12:40 PM, easy goin wrote:

dear pak Aksan, sudah saya coba bisa lewat command prompt, tapi error kalo lewat msaccess terlampir sampelnya terima kasih Rgds, deden ============================ Aksan Kurdin <aksan.kurdin@gmail.com> Sent by: belajar-access@yahoogroups.com 16/09/10 12:45 Please respond to belajar-access To: belajar-access@yahoogroups.com cc: Subject: Re: [belajar-access] combobox dengan sumber list shared folder dear deden, saya coba di tempat saya dengan menunjuk ke direktori share saya tetap keluar, kok. coba di command prompt anda lakukan perintah : dir \\pkcu\sharing jika di command prompt keluar, maka seharusnya di access pun harus keluar. aksan kurdin