بارك الله فيك استاذ جعفر
تعديلات جميلة جدا وهى والحمد لله تفى بالغرض جدا
اريد فقط اخر تعديل
هذا الكود التالى كان الاستاذ رمهان امدنى به منذ فترة وهو يقوم بادراج المرفقات من الكمبيوتر الى النموذج الفرعى
On Error Resume Next
Dim x As FileDialog
Set x = Application.FileDialog(msoFileDialogFilePicker)
x.AllowMultiSelect = True
If x.Show = -1 Then
For I = 1 To x.SelectedItems.Count
CurrentDb.Execute "insert into [tbl_emp_wared]([emp_id],[file_loc]) values(" & ID & ",'" & x.SelectedItems(I) & "')"
Next I
Me.sfrm_emp_wared.Requery
End If
فتم التعديل على المرفق الاخير من قبلك استاذ جعفر وادراج زر جديد باسم "إدراج مرفقات من الكمبيوتر" (انظر الصورة التالية) وتم وضع خلف هذا الزر الكود المذكور باعلى ويعمل بكفاءة
فقط اريد التعديل على هذا الكود لكى يتواكب مع التغير الذى تم فى النموذج الفرعى
واريده عند النقر عليه يقوم بنسخ المرفقات الى المجلد المختار بالنموذج الرئيسي
هذا فقط ما اريده وهو اخر شئ
ولكم جزيل الشكر استاذ جعفر واستاذ رمهان
ملحوظة : هذا الكود يحتاج الى تسجيل الاداة التالية حتى يعمل بكفاءة "microsoft office 14.0 objekt labray"
وهذا هو المرفق بعد اضافة الكود المذكور
.2.m.salama.rar
تحياتى لكم وشكرا جزيلا استاذ جعفر
ما هو التغير الذى حدث على النموذج الفرعى
طبقا للكود السابق كان يقوم بادراج رابط الملفات كامل مثلا (D:\Archives\المرفقات\942.pdf)
اما بعد تعديل النموذج الفرعى اصبح يتم ادراج اسم المرفق وصيغته فقط
ارت فقط التوضيح