تغيير قيمة زر اختيار (check box) عند اغلاق التقرير

[الشامي نت]

السلام عليكم

اخواني الكرام :

 

استفسار عن ما يلي :-

 

لدي نموذج بحث وبداخله نموذج فرعي لعرض البيانات وامام كل سجل مربع زر اختيار .. اقوم  من خلاله بتحديد البيانات أو السجلات المراد عرضها في التقرير وبعد اغلاق التقرير اريد الغاء تحديد جميع السجلات اي Checkbox = false علما اني جربت بحدث عند الاغلاق ولم تنجح التجربة .

 

تنويه : النموذج الرئيسي يحتوي على نموذج فرعي بداخله مربع زر اختيار لكل سجل .

[الشامي نت]

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

[Elsayed Bn Gemy]

ارفق ملف ا اخى لتسهل الامر علينا

[ابو جودي]

طيب وادى مرفق ع السريع
بس حد يتفضل باكمال المطلوب

عد اغلاق التقرير الغاء تحديد جميع السجلات

 

بصرااحه حاولت ومش عرفت وجارى البحث

 

تغيير قيمة زر اختيار (check box) عند اغلاق التقرير.rar

[الشامي نت]

لا اعلم لماذا لا يقبل اي من النوعين ادناه علما ان النوع الاول 2007 والنوع الثاني 2003

 

وهذه الرسالة التي تظهر

• check.accdb

  غير مسموح برفع هذا النوع من الملفات

• check.mdb

  غير مسموح برفع هذا النوع من الملفات

تم تعديل مايو 14, 2015 بواسطه الشامي نت

[الشامي نت]

اضطررت لضغط الملفين بنوعين في برنام الونرار

 

اليكم المرفق اخواني

Check.rar

[Elsayed Bn Gemy]

طيب وادى مرفق ع السريع

بس حد يتفضل باكمال المطلوب

عد اغلاق التقرير الغاء تحديد جميع السجلات

 

بصرااحه حاولت ومش عرفت وجارى البحث

 

تغيير قيمة زر اختيار (check box) عند اغلاق التقرير.rar

 

 

 

هذا هو المرفق ا اخى الكريم

[الشامي نت]

ممتاز اخي مارد وفقت وهو المطلوب

[راعي الغنم]

ممكن تشرح اللي عملته يا اخ مارد

[Elsayed Bn Gemy]

ممكن تشرح اللي عملته يا اخ مارد

 

طبعا بس اعزرنى لانى على الموبايل مش هعرف اكتب الكود

 

بس ممكن نبذة بسيطة

 

كل ما هنالك انى فرضت متغير للاتصال بسجلات جدول النموزج

ومتغير اخر بعدد سجلات النموزج

 

وقلت من اول سجدل حتى تصل الى اخر سجل

تعديل الحقل(check) وقيمته خليها false

 

شرح بالبلدى معلش هههههههه

[رمهان]

مشاركة معكم اعزائي

ممكن الاستغناء عن الحدث عند اغلاق التقرير والاكتفاء بسطر اس كيو ال لتعديل القيمة في الجدول !!

Private Sub Command6_Click()

    Dim stDocName As String

    stDocName = "re1"
    DoCmd.OpenReport stDocName, acPreview
  '' DoCmd.Restore
   DoCmd.RunSQL "update table1 set c=false"

   

End Sub

[Elsayed Bn Gemy]

سورة يا جماعة

 

هذا هو المرفق ا اخى الكريم

 

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

 

 

تغيير قيمة زر اختيار (check box) عند اغلاق التقرير.rar

[الشامي نت]

اخي العزيز ( مارد ) ممكن شرح للكود في التقرير عند الاغلاق

ارجو ان تفيدني ..

 

عذرا على التأخير عن الاستفسار ..

 

تحياتي

[ابو جودي]

اتفضل ده تعديل الاستاذ رمهان 

تعديل الاستاذ رمهان.rar

[الشامي نت]

شكرا صديقي محمد عصامي على جهودك

دمت بخير

[الشامي نت]

اصدقائي الافاضل ..

 

ممكن حل للخطأ الذي يظهر عندي في الكود الذي كتبه الاستاذ مارد ..

 النموذج [FrmDataAll] فرعي والذي قبله [FrmSearch] رئيسي كيف يتم تحديد RecordsetClone في النموذج الفرعي بدون اي خطأ ؟؟

Private Sub Report_Close()

    Set rst = [Forms]![FrmSearch]![FrmDataAll].RecordsetClone
    rst.MoveLast: rst.MoveFirst
    RC = rst.RecordCount
    
    
    For I = 1 To RC
        rst.Edit
            rst!Check = False
        rst.Update
        
        rst.MoveNext
    Next I
End Sub

تم تعديل مايو 18, 2015 بواسطه الشامي نت

[Elsayed Bn Gemy]

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

 

https://support.microsoft.com/en-us/kb/113352/ar

    Set rst = Forms![FrmSearch]![FrmDataAll].Form.RecordsetClone
    rst.MoveLast: rst.MoveFirst
    RC = rst.RecordCount
    
    
    For I = 1 To RC
        rst.Edit
            rst!c = False
        rst.Update
        
        rst.MoveNext
    Next I

[الشامي نت]

احسنت صديقي مارد الطيب

أسئل الله ان يحفظك ويرعاك ويعطيك سؤلك قدر ما تطلب ..

بارك الله فيك وبفضل الله لقد انجحت لي فكرتي المتواضعة كمبتدئ في برمجة كائنات اكسس

[Elsayed Bn Gemy]

احسنت صديقي مارد الطيب

أسئل الله ان يحفظك ويرعاك ويعطيك سؤلك قدر ما تطلب ..

بارك الله فيك وبفضل الله لقد انجحت لي فكرتي المتواضعة كمبتدئ في برمجة كائنات اكسس

 

 

شكرا لك اخى الكريم

والله انى مبتدئ مثلك

ومن منا يدعى الكمال ؟؟

فالكمال لله وحده

والله ما اطلب الا صالح دعائك هذا شكرا لك