[belajar-access] Fwd: mengambil path dan nama file

[Didin Susiandani]

Dear Pak Mba..
Setelah berkali-kali ganti key word,
berikut coding yang saya dapatkan dari hasil penelusuran si mbah Google...:


Private Sub Command2_Click()
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFilePicker)
With fd
.Title = "Goleki file...."
.Filters.Add "Excel File", "*.xls"
.FilterIndex = 2
.AllowMultiSelect = False
.InitialFileName = CurrentProject.Path
result = .Show
If (result <> 0) Then
Me!txt_path = Trim(.SelectedItems.Item(1))
End If
End With
End Sub

Salam hangat dan jabat erat, ( Nyontek Mode on )
Didin s