مساعدة في إختيار تحديد

[عبدالقدوس48]

السلام  عليكم ورحمة الله وبركاته

أريد مساعدة  في كود تحديد كل أو صف كما في الصورة وجزاكم الله خيرا

[Moosak]

وعليكم السلام ورحمة الله وبركاته 🙂 

هذا الكود لعمل تحديد الكل : 

Private Sub btnSelectAll_Click()
    Dim strSQL As String

    ' SQL statement to update the "select" field to True
    strSQL = "UPDATE YourTableName SET [select] = True"

    ' Execute the SQL statement
    CurrentDb.Execute strSQL

    ' Refresh the form to reflect the changes
    Me.Requery
End Sub

وهذا لعمل إلغاء تحديد الكل :

Private Sub btnDeselectAll_Click()
    Dim strSQL As String

    ' SQL statement to update the "select" field to False
    strSQL = "UPDATE YourTableName SET [select] = False"

    ' Execute the SQL statement
    CurrentDb.Execute strSQL

    ' Refresh the form to reflect the changes
    Me.Requery
End Sub

استبدل "YourTableName"  باسم الجدول لديك

واستبدل "select" باسم حقل الاختيار

 

في 9‏/2‏/2024 at 15:24, Bshar said:

@Moosak اخي موسى هل لك ان تكتب صيغة كود احصاء السجلات مع المتغير اذا تكرمت .

تفضل أخي العزيز 🙂 

الكود الخاص بعمل زر واحد لـ [تحديد / إلغاء تحديد للكل] السجلات في النموذج المستمر :

Private Sub btn_Select_Deselect_All_Click()
'(الكود الذي يتم وضعه على زر (تحديد،إلغاء تحديد الكل
Dim CountSelected As Long
Dim TableName As String
Dim SelectField As String

'======================================
'ضع هنا اسم الجدول
TableName = "YourTableName"
'ضع هنا اسم حقل التحديد
SelectField = "select"
'======================================

'فحص عدد السجلات المختارة
CountSelected = DCount(SelectField, TableName)
    
    If CountSelected = 0 Then
        'لم يتم تحديد أي سجل نشغل استعلام تحديد الكل
        CurrentDb.Execute "UPDATE " & TableName & " SET [" & SelectField & "] = True"
    Else
        ' هناك سجلات محددة لذلك نشغل استعلام إلغاء تحديد الكل
        CurrentDb.Execute "UPDATE " & TableName & " SET [" & SelectField & "] = False"
    End If
    
    ' تحديث البيانات في النموذج
    Me.Requery
End Sub

لا تنس كتابة اسم الجدول مكان :  "YourTableName"

واسم حقل التحديد :  "select"

[عبدالقدوس48]

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

[Bshar]

@Moosak هل نستطيع ان نستخدم هذا الكود

على نفس الزر اخي موسى ،،

حيث انه عندالضغط على الزر المره الاولى يتم تحديد الكل 

وعند الضغد على الزر مره اخرى يتم الغاء تحديد الكل

[Moosak]

2 ساعات مضت, Bshar said:

@Moosak هل نستطيع ان نستخدم هذا الكود

على نفس الزر اخي موسى ،،

حيث انه عندالضغط على الزر المره الاولى يتم تحديد الكل 

وعند الضغد على الزر مره اخرى يتم الغاء تحديد الكل

نعم ممكن .. وله طرق متعددة لتنفيذه ..

منها أن تحول هذه الأكواد لكودين منفصلين .. 

وقبل أن تنادي الأكواد تضع متغير يحصي عدد السجلات التي وضع لها علامة الصح DCount، فإن كانت أكبر من واحد فمعناه أن أحد الحقول تم تحديده لذلك ينادي كود إلغاء التحديد للكل ..

وإذا كان عدد الحقول المحددة صفر فينادي على كود تحديد الكل .. 🙂

[Bshar]

@Moosak اخي موسى هل لك ان تكتب صيغة كود احصاء السجلات مع المتغير اذا تكرمت .

[UserUser2]

في 8‏/2‏/2024 at 06:29, عبدالقدوس48 said:

السلام  عليكم ورحمة الله وبركاته

أريد مساعدة  في كود تحديد كل أو صف كما في الصورة وجزاكم الله خيرا

ممكن لو مفيش فيها مشكله نسخه من النموذج 
لو تسمح 

[Bshar]

اشكرك جزيل الشكر اخي @Moosak بارك الله بك وبارك الله في رزقك وزادك علما 🌷