أبو آدم

الأخ أبا جودي أخي الحبيب ... روحك المرحة طيبة رقيقة على النفس ، لكن اذا سمحت ( بلا زعيق ) أحسن الظن بأخي أبا جودي فهو من ( ألماسات المنتدي) و اليك المطلوب ( باذن الله ) في تذييل النموذج انشيئ زر أمر و ضع خلفه الروتين التالي Private Sub cmdDoAll_Click() ' Posted by Nart Lebzo To Abu Judi ... www.officena.net Dim LResponse As Integer LResponse = MsgBox("Are you sure you want to do this ( Abu Judi )?", vbYesNo, "Continue") If LResponse = vbYes Then On Error GoTo cmdDoAll_Click_Err Dim rs As DAO.Recordset Set rs = Me.Recordset rs.MoveFirst Do While Not rs.EOF '********* If Len(Me.Blob_File_Name & "") = 0 Then MsgBox "There is No Blob file." Exit Sub End If Dim Project_path, strFolderName As String Project_path = Application.CodeProject.Path strFolderName = Project_path & "\program file\" If Len(strFolderName & "") = 0 Then Exit Sub Copy_Blob_File_Write "nothing", strFolderName & "\" & Me.Blob_File_Name, Me.Blob_ID '********* rs.MoveNext Loop rs.MoveFirst Set rs = Nothing cmdDoAll_Click_Exit: Exit Sub cmdDoAll_Click_Err: MsgBox "Error: " & Err.Number & vbCrLf & Err.Description Resume cmdDoAll_Click_Exit Else Me.Blob_ID.SetFocus End If End Sub و التطبيق خير دليل ... دعوة طيبة بظهر الغيب لأخيك أبا آدم و الله من وراء القصد ... تفضل ... NA_AJ_LoopContinuesForm.mdb

أخي العزيز اين حقل المادة في الجدول

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

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

أخي الحبيب ابا خليل الاخوة الفضلاء الأخ صالح : شكرا على المرفق النافع أخي و رفيقي الحبيب كنت اتبع شروط و أعمدة الطلب ، حيث أعرف منك معرفتك بفقه السؤال والحمد لله الذي بفضله تقضى الحاجات

قيد التطبيق بإذن الله

تفضل و في حدث OnOpen للنموذج Private Sub Form_Open(Cancel As Integer) On Error Resume Next If DCount("*", Me.RecordSource) = 0 Then 'note that me.recordsource is generic - you dont need to specify the actual query MsgBox ("Nothing to display") Cancel = True Exit Sub End If End Sub لا داعي لتعديل اي شيء استخدم الكود كما هو و سيتم التعرف على مصدر السجلات مباشرة لا بد من استخدام On Error Resume Next لتجنب رسائل الخطأ

شكرا

ارسل مرفق للتطبيق شكرا

أخي الحبيب سند راعك الله و حماك انا متأكد بان الملف الذي لديك بالعربية ارفقه لنا اذا سمحت حتى يستفيد منه الاخوة الذين يفضلون العربية ما وافر التقدير و الاحترام

اذا احسنت الفهم عنك يمكنك استخدام الاستعلام 2 كمصدر سجلات للنموذج

جزاك الله خيرا أتحفتنا ابا ابراهيم شكرا

حياك الله اشتقنا لاطلالتكم ايضا

أخي وليد كلما تم السؤال عن حذف السجلات المكررة يراودني سؤال ( دائما ) كيف و لماذا يتم تكرار السجلات ، ولماذا نسمح بذلك ؟؟ اقترح عليك هذا السؤال عند بداية كل تطبيق جديد حاولت ان اكتب لك الكود لكن اعاقتني كثيرا اسماء الحقول بالعربية لاحظ Query2 في المرفق TestUp.accdb

أخي الحبيب 1299 سجل كلها بالانجليزية

بالانجليزي

للاسف فان أخطاء Compile Errors يصنفها vba على أنها غير قانونية وبالتالي يتم تمييزها من قبل محرر vba كأخطاء قبل بدء تشغيل الكود الخاص بك و يبرزها مظللة بالصفر مع رسالة مباشرة من المحرر اعتمادا على إعداد خيار التحقق من بناء الجملة التلقائي ، اي انه يتم الكشف عنها عندما يتم تجميع التعليمات البرمجية، قبل تنفيذها مباشرة.. ليست كبقية الأخطاء و لم انجح حتى الآن بصيدها بمعالج الاخطاء او اي حل برمجي آخر لغاية الآن .... فعذرا لكنني مستمر بالمحاولة باذن الله

حياك الله بركة الوقت وطلب العلم نعمة عظيمة من الله شكرا

أخي طاهر أحيلك للرابط التالي .... https://www.officena.net/ib/topic/82235-لون-الخط-في-صندوق-الرسائل-msgbox/

سؤال : هل يمكن تغيير لون الخط في صندوق الرسائل بحيث أختار اللون الذي اريده ؟ الجواب : نعم من الممكن تغيير لون النص في صندوق الرسائل الخاص بك ، وذلك باستخدام لون النظام API's ، فأولا و آخرا فان صندوق الرسائل ما هو الا نافذة، يمكنك تغيير معلمات اللون فيه . و لكن كما اسلفت فهو خاص بك ، فلا بد من التأكد من إعادة تعيين القيم الأصلية مباشرة بعد التطبيق وإلا سيتم عرض كل الرسائل من الويندوز حسب الألوان المعدلة. الكود المرفق سوف يتعرف تلقائيا على أنظمة 32 بت و 64 بت و يتعامل معها على حد سواء. NA_MsgBox Color.accdb

ساحاول ان اجيبك غدا باذن الله لأني ساغادر مكاني حاليا شكرا لانتظارك حتى الغد

تفضل NA_FormattedMsgBox2003.mdb

رمز الخطأ 35 Sub or Function not defined وهذا رابط البحث عن الحلول عل الانترنت https://www.google.co.uk/search?q=VBA+Error+35+OR+"Sub+or+Function+not+defined"&gws_rd=ssl أخي الحبيب لا تظهر لك الرسالة التوضيحية المفصلة برمز الخطأ لان مرسل الرسالة هو VBA وليس معالج الاخطاء الخاص بالاجراء او الكود و بالتالي يتم تزويدك بالحد الادنى من المعلومات

تم تعريف مجموعة السجلات التي نعمل من خلالها في النموذج لنتجول بها حتى نهايتها فاذا كانت قيمة الحقل ID في مجموعة السجلات متطابقة مع قيمة الحقل OrderID في النموذج تظهر لنا رسالة تؤكد ان القيمة التي ننوي ادراجها ضمن مجموعة السجلات موجودة اصلا و ستحدث تكرارا ، لذا يتم الغاء القيمة المدخلة في الحقل ، تم نخرج من سلسلة مجموعة السجلات ولا داعي لاستكمال التجوال لنهاية السجلات . في حال لم نجد تطابقا في القيمة في السجل الذي وصلنا له ، ننتقل للسجل التالي و نستمر بالتقدم حتى نهاية مجموعة السجلات . و اذا لم نجد تطابقا يتحقق التحديث لقيمة الحقل و تثبت القيمة كونه لم يتحقق الشرط ( تطابق قيمة الحقل ID في مجموعة السجلات مع قيمة الحقل OrderID في النموذج ) و السلام ختام ...