walid7799 قام بنشر فبراير 26, 2022 مشاركة قام بنشر فبراير 26, 2022 السلام عليكم ورحمة الله مطلوب كود يجعل مربع الحوار يسمح باختيار اكثر من file فى المرة الواحدة وهذا يمكن ولكن المطلوب كود يسمح باختيار اكثر من file ويتم ادرجهم تلقائيا للجدول فى نموذج مستمر وشكرا رابط هذا التعليق شارك More sharing options...
ازهر عبد العزيز قام بنشر فبراير 26, 2022 مشاركة قام بنشر فبراير 26, 2022 وغليكم السلام استخدم اسنعلام التحديث ولن تحتاج الى كود 1 رابط هذا التعليق شارك More sharing options...
Moosak قام بنشر فبراير 26, 2022 مشاركة قام بنشر فبراير 26, 2022 (معدل) 2 ساعات مضت, walid7799 said: السلام عليكم ورحمة الله مطلوب كود يجعل مربع الحوار يسمح باختيار اكثر من file فى المرة الواحدة وهذا يمكن ولكن المطلوب كود يسمح باختيار اكثر من file ويتم ادرجهم تلقائيا للجدول فى نموذج مستمر وشكرا وعليكم السلام ورحمة الله وبركاته .. الكود موجود ولكن نحتاج مرفق للتطبيق عليه .. 🙂 تم تعديل فبراير 26, 2022 بواسطه Moosak رابط هذا التعليق شارك More sharing options...
walid7799 قام بنشر فبراير 27, 2022 الكاتب مشاركة قام بنشر فبراير 27, 2022 8 ساعات مضت, ازهر عبد العزيز said: استخدم اسنعلام التحديث ولن تحتاج الى كود البيانات المطلوب اضافتها مسارات الصور استعلام التحدبث ؟؟ ازاى استعمله فى كتابة المسارات فى جدول داخل قاعدة البيانات ارجو الشرح رابط هذا التعليق شارك More sharing options...
walid7799 قام بنشر فبراير 27, 2022 الكاتب مشاركة قام بنشر فبراير 27, 2022 7 ساعات مضت, Moosak said: الكود موجود ولكن نحتاج مرفق للتطبيق عليه .. 🙂 ممكن حضرتك ترسلة وانا اجربة على قاعدة البيانات عندى مش لازم مرفق رابط هذا التعليق شارك More sharing options...
Moosak قام بنشر فبراير 27, 2022 مشاركة قام بنشر فبراير 27, 2022 51 دقائق مضت, walid7799 said: ممكن حضرتك ترسلة وانا اجربة على قاعدة البيانات عندى مش لازم مرفق هل هذا هو الكود الذي تريد التعديل عليه؟ رابط هذا التعليق شارك More sharing options...
Moosak قام بنشر فبراير 27, 2022 مشاركة قام بنشر فبراير 27, 2022 (معدل) تفضل هذا هو الكود 🙂 : Sub GetFiles() Dim fdialog As Office.FileDialog Dim filepath As String Dim Item As Variant Set fdialog = Application.FileDialog(msoFileDialogFilePicker) With fdialog .Title = "Select image" .AllowMultiSelect = True .Filters.Clear .Filters.Add "Image file", "*.jpg ; *.bmp ; *.png" If .Show Then For Each Item In .SelectedItems DoCmd.GoToRecord , , acNewRec filepath = .SelectedItems(1) [PthIn1] = filepath Next Else Exit Sub End If End With MsgBox "تم إضافة الملفات بنجاح" End Sub تم تعديل فبراير 27, 2022 بواسطه Moosak 1 رابط هذا التعليق شارك More sharing options...
walid7799 قام بنشر مارس 4, 2022 الكاتب مشاركة قام بنشر مارس 4, 2022 شكرأ على الاهتمام أخى الكريم السلام عليكم ورحمة الله وبركاته ... هذا الكود لكى يعمل لا بد من مديزل داعم وألا أصبح يأخذ مسار واحد وأنا شغال بالكود هذا من زمان وحفظه وشكرأ رابط هذا التعليق شارك More sharing options...
Moosak قام بنشر مارس 4, 2022 مشاركة قام بنشر مارس 4, 2022 7 ساعات مضت, walid7799 said: شكرأ على الاهتمام أخى الكريم السلام عليكم ورحمة الله وبركاته ... هذا الكود لكى يعمل لا بد من مديزل داعم وألا أصبح يأخذ مسار واحد وأنا شغال بالكود هذا من زمان وحفظه وشكرأ عدلت لك الكود ليقبل أكثر من ملف ويحفظ كل مسار في سجل جديد .. 1 رابط هذا التعليق شارك More sharing options...
أبو عبدالله الحلوانى قام بنشر مارس 5, 2022 مشاركة قام بنشر مارس 5, 2022 في 4/3/2022 at 02:42, walid7799 said: هذا الكود لكى يعمل لا بد من مديزل داعم وألا أصبح يأخذ مسار واحد حقيقة لم افهم قصدك ولكن هذا اكود بحاجة لاضافة مكتبة الأوقيس الخاصة بالاصدار الذي تعمل عليه من الــ refrences مثل هذه الصور ملاحظة: يختلف رقم الاصدار حسب الاصدار الذي تعمل عليه فأوفيس 2003 تقريبا اصدار الخاص به 0.11 فأوفيس 2007 تقريبا اصدار الخاص به 0.12 وهكذا وعلي كلا ان لم يكن هذا مرادك فرجاءا زيادة توضيح عن ما المشكلة التي تواجهها 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان