السلام عليك:
تحيا طيبة معطرة بالصلاة على محمد وال محمد الى اعضاء المنتدى الكرام
اخواني اريد تعديل هذا الكود مال نقل ملف pdf لان يتم فقط نقل الملف ولا يتم ارفاق مسار الملف بعد النقل في جدول النموذج / هذا الكود
On Error Resume Next
If Len(Dir([zx])) = 0 Then
Dim file As FileDialog
Set file = Application.FileDialog(msoFileDialogFilePicker)
file.title = "اختر مكان الصورة"
file.Filters.Clear
file.Filters.add "حدد الصورة", "*.gif; *.jpg; *.jpeg; *.pdf"
file.AllowMultiSelect = False
If file.show Then
Name file.SelectedItems.Item(1) As Application.CurrentProject.path & "\image\" & [idn] & ".jpg" & ".pdf"
DoCmd.RefreshRecord
Else
End If
End If