زر أمر لوضع علامة نعم لجميع السجلات

تحت الزر ضع الكود التالي

Dim AllRec As Long
DoCmd.GoToRecord , , acLast
AllRec = Me.CurrentRecord
DoCmd.GoToRecord , , acFirst
For i = 1 To AllRec
    Me.ãÑÓá = True
    DoCmd.GoToRecord , , acNext
Next
DoCmd.GoToRecord , , acFirst

من طول الغيبات جاب الغنايم أستاذنا أحمد ( الحمد لله على السلامة ) .

تحياتي ..

بارك الله فيك اخي احمد الحربي

يوجد تعديل بسيط جدا على الكود حيث ان اسم خانة الاختيار " المرسل " مكتوبة بالعربي وعند نقل الكود ظهرت في المنتدى بكلمات غير مفهومة.

لهذا يكون تعديل الكود كالتالي

كود اختيار الكل والترحيل

Private Sub ÃãÑ4_Click()
Dim AllRec As Long
DoCmd.GoToRecord , , acLast
AllRec = Me.CurrentRecord
DoCmd.GoToRecord , , acFirst
For i = 1 To AllRec
Me.مرسل = True
   DoCmd.GoToRecord , , acNext
Next
DoCmd.GoToRecord , , acFirst
End Sub

كود عدم الاختيار وعدم الترحيل

Private Sub ÃãÑ5_Click()
Dim AllRec As Long
DoCmd.GoToRecord , , acLast
AllRec = Me.CurrentRecord
DoCmd.GoToRecord , , acFirst
For i = 1 To AllRec
Me.مرسل = False
   DoCmd.GoToRecord , , acNext
Next
DoCmd.GoToRecord , , acFirst
End Sub

TRANS.rar

اختكم

زهره

يا هلا وغلا بأستاذنا ومبدعنا فهد ..

وجودك ووجود الأستاذة زهرة ، يكفي ويكفي ويكفي

---------

وبورك فيك يا أستاذتنا .. وفي الحقيقة لم أنتبه لخطأ الكلمة

أشكركم جميع

أستاذ أحمد

أستاذ فهد

شكرا لكم

الأستاذة الرائعه زهره

أشكرك على دعمك المتواصل

حل آخر

Dim SQLSTATEMENT As String
SQLSTATEMENT = " UPDATE ÌÏæá1 SET ÌÏæá1.ãÑÓá = True; "

DoCmd.SetWarnings False
DoCmd.Hourglass True
DoCmd.RunSQL (SQLSTATEMENT)
DoCmd.Hourglass False
DoCmd.SetWarnings True

Me.Refresh