هذا هو الكود استاذ جمال
Dim varItem As Variant
Dim strPath As String
Dim objFilePicker As FileDialog
Dim db As Database
Dim rst As DAO.Recordset
Dim strUnitNumber As String
Set db = CurrentDb()
Set objFilePicker = Application.FileDialog(msoFileDialogFilePicker)
With objFilePicker
'Setup file dialog
.AllowMultiSelect = False
.ButtonName = "Select"
.InitialView = msoFileDialogViewList
.title = "Select File"
'add filter for all files
With .Filters
.Clear
.Add "All Files", "*.mdb,*.accdb,*.xlsx"
End With
.FilterIndex = 1
'disply dilog boxe
.Show
End With
If objFilePicker.SelectedItems.Count > 0 Then
m_strFileName = objFilePicker.SelectedItems(1)
Me.txtImportFile = m_strFileName