Private Sub Form_Open(Cancel As Integer)
Dim strValue As String
Dim strItem As String
With Me.Combo0
.RowSourceType = "Value List"
strItem = Dir("c:\") If strItem <> "" Then
Do While strItem <> ""
strValue = strValue & strItem & ";"
strItem = Dir
Loop
End If
.RowSource = strValue
End With
End Sub
On 9/8/2010 5:29 PM, Rubi wrote:
Dear Deden,Klo filenya adalah mdb create link aja ke file tsb dan setelah itu bisa langsung dihubungkan ke record sourcenya comboboxSemoga
Pada 30 Agustus 2010 07.58, Deden <soeasy_goin@yahoo.co.id> menulis:
dear pakar access,
apakah bisa membuat satu combo box dengan source folder yang disharing,
mis : \\pcku\data\,
tujuannya combo box memuat list file yg ada di folder \\pcku\data\,
semoga bisa dimengerti, soale agak bingung juga menjabarkannya
terima kasih atas bantuannya
Rgds,
deden
No comments:
Post a Comment