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

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

جزاك الله خيرا أستاذى @ابو عارف طب بس المطلوب نضيف 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 شوف متعلم عليه و لا لأ

للرفع

شكراُ أستاذى @أبو إبراهيم الغامدي شكراً أستاذى @jjafferr جَعَله الله في موازين حسناتكم

أستاذى @أبو إبراهيم الغامدي وصدقني لم انظر إلى الاستعلام ولا البيانات التي فيه ولم أتوقع أنك تطلب حلا لإصدار 2007 ومابعده فعلا كنت أعمل على اصدار 2003 ثم الى 2016 و لم احذف 2003  تضمين الصورة كمصدر بيانات في 2007 ومابعدة غير مكتمل الخواص (غير ممكّن بالكامل) وإنما وضع لدعم النماذج المستمرة فقط.. ولا يمكن استخدامه إلا من داخل النموذج فقط.. يأتى السبب أنه لم يحدث معى مشاكل أعتقد بسبب اننى لم احذف 2003 والله أعلم ..., فأنت أعلم منى أن الكود الأخر أفضل حتى لا يحدث مشاكل فأستأذن حضرتك هل يمكن عمله فى كود واحد مثل المشاركة السابقة و يتبقى فقط عرض الصورة فى حدث فى الحال .  تحديد مسارة الصورة عن طريق الاستعلام باطريقة التي استخدمتها يصعّب عليك الأمر.. وكان من الأولى وضع مشار الصور في الجدول. هل ممكن حلاها بأن نضع نفس الامر فى القيمة الافتراضية للصورة فى جدول لقد دخلت الى عالم الاكسس بسبب صديق لى معى فى العمل يعمل جميع عمله عليه و لانى بفهم فى الكمبيوتر ...,أنا أيضا بدأت العمل عليه لأنه يساعدنى فى انهاء عملى بسلاسه فلا أعلم عنه الكثير و لكنى تعلمت هنا الكثير فجزاكم الله خيراً Private Sub Form_Current() On Error GoTo errresult Dim ErrImage As String Dim CurImage As String Dim ImageName As String ImageName = Dir(ImgPath & Me.Worker & ".*") ErrImage = ImgPath & "No.jpg" CurImage = ImgPath & ImageName Me.imgWorker.Picture = CurImage errresult: If Err.Number = 2220 Then Me.imgWorker.Picture = ErrImage Resume Next End If End Sub Private Sub Form_Load() ImgPath = "D:\Photo\123\" End Sub Private Sub Worker_BeforeUpdate(Cancel As Integer) Dim CurImage As String Dim NewImage As String Dim ImgExtention As String CurImage = Me.imgWorker.Picture ImgExtention = Mid(CurImage, InStr(CurImage, ".")) Debug.Print ImgExtention NewImage = ImgPath & Me.Worker & ImgExtention If Dir(CurImage) = "No.jpg" Then Me.imgWorker.Picture = CurImage ElseIf Dir(NewImage) <> "" Then If MsgBox(Dir(NewImage) & vbNewLine _ & "يوجد صورة سابقة بنفس الاسم.." _ & vbNewLine & "هل تريد تعديل الاسم فقط..", _ 1572868, "تنبيه") = vbYes Then Me.imgWorker.Picture = CurImage Else Me.Undo End If Else Name CurImage As NewImage Me.imgWorker.Picture = NewImage End If End Sub

الكود بيستخدم فى النموذج وممكن تستخدمه فى الاستعلام Me.id = المفتاح الاساسى عندك (المعرف) رقم العقد = اسم الخلية الجديده هيتم وضع الكود فيها سواء استعلام او نموذج

مش عاوز انقل الصورة دلوقتى انا بغير اسم الموظف فـ اسم صورة الموظف على الجهاز بتتغير ..., العملية دى بتم مربوطه بكود (فى الحال ) لو شلنا الكود (فى الحال ) اسم الموظف او اسم الصورة مش هايتغيروا المطلوب الكود فى الحال يتشال خالص و يتم دمجه مع الكود الأول فى خلية اسم الموظف أو ادخاله فى وحدة نمطية أستاذى @أبو إبراهيم الغامدي ممكن مساعدة

كده الكود الصوره بتكرر باسم جديد مش ده المطلوب دلوقتى انا بغير اسم الموظف فـ اسم صورة الموظف على الجهاز بتتغير ..., العملية دى بتم مربوطه بكود (فى الحال ) لو شلنا الكود (فى الحال ) اسم الموظف او اسم الصورة مش هايتغيروا المطلوب الكود فى الحال يتشال خالص و يتم دمجه مع الكود الأول فى خلية اسم الموظف أو ادخاله فى وحدة نمطية

للرفع

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

للرفع

بصراحة مررت عليه وكان متشابه مع السؤال

هذه طريقة لأستاذى جعفر داخل النموذج

صدقت أستاذى اللهم زيدك علما تنفع به نفسك وتنفع غيرك فى الخير