محمد احمد لطفى

للرفع اى افكار

شكراً أستاذى @ابو عارف

أستاذى @ابو عارف أولا جزاك الله خيراً لا أريد عند اضافة سجل جديد ان يظهر لى اختيار الصورة أريد اضافة السجل الجديد فقط وكما ترى فان برنامجى له نظام خاص بالصور كل مجموعة حرف فى ملف حيث اقوم بتجميع الصور فى ملف واحد و هناك برنامج اكسيس ينقل الصور كل بداية حرف فى ملفه يعنى مثلا عند اضافة سجل جديد لا يعمل الكود

الموضوع هنا يختلف أستاذى @عبد اللطيف سلوم حيث اقوم بتجميع الصور فى ملف واحد و اقوم بواسطة برنامج اكسيس ان ينقل الصور كل حرف فى فايل مخصص و البرنامج يعمل بشكل آلى جزاك الله خيراً

1000 مبروك أستاذى محمد سلامة

للرفع

السلام عليكم ورحمة الله و بركاته فى هذا النموذج يحدث خطأ عند اضافة سجل جديد مرفق صورة الخطأ وجزاكم الله خيرااً Worker (4).rar

ياريت مزيد من التفاصيل

ملخص الموضوع عند البحث بكلمة عربى فى جوجل مثلا من النموذج تأتى بلغة غريبة أول مشاركة وعند البحث بكلمة عربى فى جوجل من خلال استعلام تاتى باللغة العربى المشاركة السابقة لماذا عند البحث من داخل النموذج تأتى بكلمات غريبة اللغة العربى موجودة فى الويندوذ استخدم ويندوذ 10 اوفيس 2016 هل هناك حل

تم تغيير الكود فى حدث قبل التحديث الى NewImage = ("D:\Photo\12 3\" & Left(Worker, 1) & "-File\" & Me.Worker & ImgExtension)

السلام عليكم ورحمة الله وبركاته فى هذا المثال عند تغيير الاسم يتم تغيير اسم الصورة و لكن كل اول حرف من الاسم له ملف خاص به مطلوب عند تغيير احمد الى محمد تتنقل الصورة من ملف الالف الى الميم وجزاكم الله خيراً Worker (4).rar

شكرا أستاذى @ابو عارف شكراً أستاذى @ابو ياسين المشولي

جزاك الله خيرا أستاذى @ابو عارف طب بس المطلوب نضيف Left([WorkerSub.Worker];1) & "-File\" وده لان مسار كل حرف فى فولدر لوحده

التعديل على الوحدة النمطية و ما وجدته كان بالاحمر اى لا يعمل و تم التغيير فى الاستعلام وهو ليس مطلوب لانه الوحدة النمطية تعطى امتداد الملف

السلام عليكم ورحمة الله و بركاته أريد التعديل على مسار الصور فى الوحدة النمطية المسار الحالى ImgPath = "D:\Photo\12 3" حاولت الاضافة و لكن لم اعرف ما أريد اضافته ImgPath = "D:\Photo\12 3" & Left([WorkerSub.Worker];1) & "-File\" و لكن يحدث خطأ حولت وضع الكود Left([WorkerSub.Worker];1) & "-File\" فى الاستعلام و اضافته فى الوحدة النمطيه يحدث خطا كذلك المطلوب اضافة Left([WorkerSub.Worker];1) & "-File\" الى ImgPath = "D:\Photo\12 3" وجزاكم الله خيراً Worker (4).rar

مازلت المشكلة قائمة و الغريب أنه يعمل من خلال الجدول اعتقد أنه له علاقة بلغة محرر الاكواد فى المثال يعمل 579.1.test1900.rar

جميع المتصفحات

من عارف العيب منين الويندو و لا البرنامج

تم نغيير لغة الويندوذ بخطوط كثيرة و المشكلة قائمة حتى تم تغيير الويندوذ الى عربى و المشكلة قائمة جوجل يقوم بالترجمة الصحيحة

بحاوب اغير نوع الخط نفسه بتاع الويندوذ

برضه عربى

اعدادت اللغة عربى هل هنك حل

السلام عليكم ورحمة الله و بركاته فى هذا النموذج وهو يعمل كبحث فى صفحة انترنت اذا كانت الخلية باللغة الانجليزية عند الضغط على الزرار تفتح صفح انترنت بنفس اللغة و لكن اذا كانت الكلمة باللغة العربية عند الضغط على الزرار تفتح صفحة الانترنت بلغة أخرى غريبة فما حلها علماً اننى اعمل على نسخة 2016 وجزاكم الله خيراً 579.1.test1900.rar

أتأكد من ActiveX شوف متعلم عليه و لا لأ

للرفع