أبو آدم

الأخ أبا جودي

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

و اليك المطلوب ( باذن الله )

في تذييل النموذج انشيئ زر أمر و ضع خلفه الروتين التالي

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

أخي العزيز

اين حقل المادة في الجدول

أخي العزيز

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

الأخ الفاضل ابا جودي

إحساس طيب و موهبه جميلة ، دمج المعارف و تطويع الادوات بمقدرة شيئ جميل اذا ارتبط بحس مرهف ... أحسن الله اليك

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

ولكنني أحب الاتمتة ( التشغيل و السيطرة الكترونية ) أكثر خاصة للوسائط ( الطرف الثاني )

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

شكرا

15 ساعات مضت, ابوخليل said:

الاختيار اليدوي للصيغة لا يحقق المطلوب فإن كان البرنامج متاح مجانا باعتباره طابعة  يمكنني جعلها افتراضية وتطبع التقرير كصورة وتحفظه في مجلد معين بدون تدخل يدوي ، اي اني اريد الطباعة تتم في وقت معين احدده برمجيا .. فهو حل جيد . يلبي الحاجة مؤقتا .

حيث انني اتمنى ان تتم المسألة  بطريقة برمجية وعن طريق اكواد ومكتبات مساندة .

وما زلت انتظر   ، وفي الوقت سعة ..

أخي الحبيب ابا خليل

الاخوة الفضلاء

الأخ صالح : شكرا على المرفق النافع 

أخي و رفيقي الحبيب 

كنت اتبع شروط و أعمدة الطلب ، حيث أعرف منك معرفتك بفقه السؤال

والحمد لله الذي بفضله تقضى الحاجات

قيد التطبيق

بإذن الله

تفضل

و في حدث 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 كمصدر سجلات للنموذج 

جزاك الله خيرا

أتحفتنا ابا ابراهيم

شكرا

اقتباس

13 ساعات مضت, عبدالله المجرب said:

سلم يدك استاذ ابو ادم 

يكفينا طلتك البهية

نورت المنتدى

ادم الله عليك الصحة والعافية

حياك الله

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

اقتباس

18 ساعات مضت, أبو آدم said:

حاولت ان اكتب لك الكود لكن اعاقتني كثيرا اسماء الحقول بالعربية

 

أخي وليد 

كلما تم السؤال عن حذف السجلات المكررة يراودني سؤال ( دائما ) كيف و لماذا يتم تكرار السجلات ، ولماذا نسمح بذلك ؟؟

اقترح عليك هذا السؤال عند بداية كل تطبيق جديد

حاولت ان اكتب لك الكود لكن اعاقتني كثيرا اسماء الحقول بالعربية

لاحظ 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 في النموذج )

و السلام ختام ...