تعديل كود

[m.r]

السلام عليك:

تحيا طيبة معطرة بالصلاة على محمد وال محمد الى اعضاء المنتدى الكرام

اخواني اريد تعديل هذا الكود مال نقل ملف 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

تم تعديل أكتوبر 25, 2019 بواسطه Amir - 4k
توضيح

[AlwaZeeR]

وعليكم السلام ورحمة الله وبركاته

On Error Resume Next
If Len(Dir([zx])) = 0 Then
Dim file As FileDialog
Dim strFileName As String
Set file = Application.FileDialog(msoFileDialogFilePicker)
With file

.Title = "اختر مكان الصورة"
.Filters.Clear
.Filters.Add "حدد الصورة", "*.gif; *.jpg; *.jpeg; *.pdf"
.AllowMultiSelect = False

If .Show Then
strFileName = "\image\" & [idn] & Right(.SelectedItems(1), 4)
Name file.SelectedItems.Item(1) As Application.CurrentProject.Path & strFileName

DoCmd.RefreshRecord
Else
End If

End With
End If

 

[m.r]

خوية علاء بعد النقل هم ماكو ارفاق للمسار في النموذج حتى يتم مشاهدة pdf

تم تعديل أكتوبر 25, 2019 بواسطه Amir - 4k
توضيح

[m.r]

السلام عليكم :

اخوتي هذا الكود ماله تعديل يرفق المسار pdf في الجدول

تم تعديل أكتوبر 26, 2019 بواسطه Amir - 4k