أبو إبراهيم الغامدي

ليس الخطأ في استخدام اللاحقة العائمة! بل لكوني مشوش الفكر قليلا ولم استطع التركيز على ضبط منطق الشفرة! استبيحك عذا إلى الغد.. وسوف أقوم بمراجعة الشفرة وترتيبها بإذن الله

ليس صحيحا! الشفرة كانت ناقصة! إذا كان هناك صورة اسمها (محمد.jpg) وأردت أن تغير اسم أحمد إلى محمد فإن صورة أحمد بالتالي سيتغير اسمها إلى محمد؛ وهذا يعني وجود صورتين بنفس الاسم في مجلد واحد! وهذا منطقيا غير مقبول. وإذا كان الخطأ في الاسم فقط فلابد من وجود رسالها تخير المستخدم بقبول تغيير الاسم من عدمه ولهذا أرفقت لك التعديل

من المفترض أن هذه الرسالة تظهر فقط مع صورة الموظف إذا كنت بصدد تعديل اسمه إلى اسم له صورة من قبل وفي هذه الحالة نحن بحاجة إلى تعديل الرسالة إلى رسالة تفيد بوجود الصورة وخيار تعديل الاسم فقط.. Worker.mdb

سوف أرجع إلى قاعدة البيانات وأتحقق من القصور,,

أسف لهذا الغلط.. عندما عدلت الشفرة نسيت أن أعدل هذا ..

نعم.. استخدم هذه الشفرة.. مع ملاحظة الفروق Private Sub Form_Current() On Error GoTo errresult Dim ErrImage As String Dim CurImage As String Dim ImageName as String ImageName=Dir("D:\Photo\123\" & Me.Worker & ".*") ErrImage = "D:\Photo\123\No.jpg" CurImage = "D:\Photo\123\" & ImageName Me.imgWorker.Picture = CurImage errresult: If Err.Number = 2220 Then Me.imgWorker.Picture = ErrImage Resume Next End If End Sub 'D:\Photo\123 Private Sub Worker_BeforeUpdate(Cancel As Integer) Dim OldImage As String Dim NewImage As String Dim ImageName as String ImageName=Dir("D:\Photo\123\" & Me.Worker & ".*") OldImage = Me.imgWorker.Picture NewImage = "D:\Photo\123\" & ImageName If Dir(OldImage) = "No.jpg" Then Me.imgWorker.Picture = NewImage ElseIf Len(Dir(NewImage)) > 0 Then MsgBox Dir(NewImage) & vbNewLine & "يوجد صورة سابقة بنفس الاسم..", _ vbMsgBoxRight + vbMsgBoxRtlReading, "تنبيه" Me.Undo Else Name OldImage As NewImage Me.imgWorker.Picture = NewImage End If End Sub

ممتاز بالنسبة للخطأ فهذا حدث بسبب أن السجل الحالي يقف على سجل جديد! لمعالجة هذه المشكلة نحن بحاجة إلى أمرين الأول.. الجزء الأصفر من الشفرة غير NewImage إلى OldImage الثاني.. وهو المهم إضافة حقل المعرف Id والسبب لأنك تعمل على استعلام مدمج ومعرف الدمج غير مضاف في النموذج

الخصيصة: CurrentProject.Path تعيد المسار الافتراضي للمشورع الحالي (قاعدة البيانات).. قم بتغييرها بمسارك المفضل للصور

أهلا بك @محمد احمد لطفى مع تحفظي على إجراء التعديل على مصدر بيانات يعطي بيانات متكررة إلا أن هذا لا يمنع من تقديم الحل.. Photo.zip

وأنا كذلك!

أنت بحاجة إلى إنشاء صورة بالامتداد BMP وتسميتها بنفس اسم مشروعك وفي نفس مجلد المشروع. للملاحظة.. ينبغي أن يكون حجم الصورة مقبولا لكي لا تتأخر في الظهور.

لضمان هذه الإشكالية من الوقوع؛ أن نقوم بإعادة الجداول إلى الوضع المعتاد قبل ضغط البيانات وإصلاحها..

أستاذ جعفر.. بل أتفق معك أنت!

أهلا @ابا جودى من المفترض أن قاعدة البيانات الخلفية هي التي يطبق عليها الضغط والإصلاح! لا القاعدة الأمامية! وفي تقديري هذا ما تفعله أنت! أرجو الرجوع إلى ملف تعليمات أكسس لمعرفة القيم التي يمكن استخدامها لهذه الخصيصة

أهلا @kaser906 للأسف ما لا يعرفه الكثير أن أكسس يستعمل خصيصة الإخفاء للإشارة إلى الجداول الموقتة! وما المشكلة في ذلك؟! المشكلة أن أكسس يقوم بحذف بيانات هذه الجداول عند الضغط والإصلاح..

فعلا أستاذ جعفر.. مبارك عليك أستاذ كاسر شارة الخبراء.. أتمنى أن يكون لى معك مشاركات فى المستقبل

في تقديري أن هذه المقطوعة من الشفرة ناقصة! وعند مراجعتي _على عجل_ للمشاركات المتعلقة بالموضوع وجدت أنها تفتقر إلى الطريقة الصحيحة للطبيق!

@محمد احمد لطفى @مسفر أرجو أن يكون هذا المثال مقنعا.. progressbar.mdb

مبارك عليك أستاذ @مسفر شارة الخبراء.. لقد كنت كذلك بالفعل.. حصل لى الشرف بمزاملتك في أحد المشاركات وكنت رائعا.. أتمنى لك مزيداً من النجاح

عزيزي مسفر.. نعم اتفق معك.. ولا يزال لدي حلول أخرى! لكني أريد أن أصل إلى حل مقنع بالطرق التقليدية.. أما بالنسبة للمؤقت فلا مفر من استخدامه؛ سواء كان ذلك: مؤقت النموذج أو موقت Win32API ، أو كان مؤقت يصنعه المبرمج. إذ العملية برمتها تعتمد عليه! وفي نظري مؤقت النموذج أنسب الحلول للمبرمجين المتوسطين,, ولا أفكر أبدا في تطوير فئات برمجية لمعالجة مثل هذه الأمور!

لا عليك.. لا يزال هناك حلول! جرب هذا: progressbar.mdb

ممكن تزودني بالشفرة الموجودة في النموذجين

أعتذر عن هذا الخطأ غير المقصود.. غاب عن ذهني تصفية الاستعلام عن طريق النموذج.. جربه الآن progressbar.mdb

أهلا @محمد احمد لطفى أرجو أن تكون طريقة العمل سهلة الفهم.. سوف يقلع النموذج الرئيسي في الخلفية مع نموذج البدء، وعند انتهاء الفترة الزمنية سوف يظهر النموذج الرئيسي ويغلق نموذج البدء.. progressbar.mdb

أهلا استاذ @رمهان بشرط أن يكون التطبيق على قاعدة البيانات الخلفية وليس الأمامية في بيئة العمل المفصولة