اختيار نعم او لا للكل

[eng aoff]

السلام عليكم استاذتي الكرام

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

وجزاكم الله خيراً

اختيار نعم او لا.accdb

[Eng.Qassim]

ان اردت التعيين على مربع نعم/لا استخد الكود

[aux نموذج فرعي].Form![done].Value = -1

 

[eng aoff]

استاذ @Eng.Qassim هذا الكود يستخدم لصنف واحد 

احتاج الى اكثر من صنف مثلا كانت عدد الاصناف 5 عند النقر على زر الالغاء يتم تحديد الاصناف الخمسة 

[ابوبسمله]

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

مشاركه مع اخى واستاذى العزيز @Eng.Qassim جزاه الله خيرا

Private Sub btnTrueOrFalse_Click()
    If Me.btnTrueOrFalse.Caption = "نعم" Then
        DoCmd.SetWarnings False
        DoCmd.RunSQL "UPDATE main INNER JOIN aux ON main.id = aux.id SET aux.done = True " & _
                     "WHERE (((main.id)=[Forms]![main]![id]));"
        DoCmd.SetWarnings True
        Me.btnTrueOrFalse.Caption = "لا"
    Else
        DoCmd.SetWarnings False
        DoCmd.RunSQL "UPDATE main INNER JOIN aux ON main.id = aux.id SET aux.done = false " & _
                     "WHERE (((main.id)=[Forms]![main]![id]));"
        DoCmd.SetWarnings True
        Me.btnTrueOrFalse.Caption = "نعم"
    End If
    Me.aux_نموذج_فرعي.Requery
End Sub

بالتوفيق

اختيار نعم او لا_1.accdb

[Eng.Qassim]

احسنت اخي واستاذي @احمد الفلاحجي

انا قصدت ان اعطي جزء من الكود من اجل البحث والتعلم

[ابوبسمله]

احسن الله اليك اخى ومهندسنا العزيز @Eng.Qassim وجزاك الله كل خير على كل ما تقدمه لاخوانك وجعله الله فى ميزان حسناتك 🌹

واعلم بان بمقدورك ان تقدم افضل مما قدمت اخى واحببت ان اشاركك الاجر والثواب 💐 فلك من كل المحبه والتقدير والاحترام اخى

 

[eng aoff]

منذ ساعه, احمد الفلاحجي said:

Private Sub btnTrueOrFalse_Click()
    If Me.btnTrueOrFalse.Caption = "نعم" Then
        DoCmd.SetWarnings False
        DoCmd.RunSQL "UPDATE main INNER JOIN aux ON main.id = aux.id SET aux.done = True " & _
                     "WHERE (((main.id)=[Forms]![main]![id]));"
        DoCmd.SetWarnings True
        Me.btnTrueOrFalse.Caption = "لا"
    Else
        DoCmd.SetWarnings False
        DoCmd.RunSQL "UPDATE main INNER JOIN aux ON main.id = aux.id SET aux.done = false " & _
                     "WHERE (((main.id)=[Forms]![main]![id]));"
        DoCmd.SetWarnings True
        Me.btnTrueOrFalse.Caption = "نعم"
    End If
    Me.aux_نموذج_فرعي.Requery

@احمد الفلاحجي @Eng.Qassim هذا هو المطلوب جزاكم الله خير الجزاء 

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

[ابوبسمله]

2 دقائق مضت, eng aoff said:

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

قبل تفسير الكود نصيحه من مبتدىء ومن اساتذتنا جزاهم الله عنا كل خير ومن تجارب اخوان سابقون اجعل كل مسميات الكائنات والحقول باللغه الانجبيزيه واستعمل اللغه العربيه فى التسميات التوضيحيه وهذا لك قبل ان يكون ع من يساعدك تسهيلا عليك فى كتابه الاكواد

اما بالنسبه للكود ببساطه

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

والعكس

ثم عمل تحديث للنموذج لتظهر النتيجه مباشره امامك

بالتوفيق

[eng aoff]

شكرا لكم اساتذتي الكرام وجزاكم الله خيراً 

5 ساعات مضت, احمد الفلاحجي said:

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

مشاركه مع اخى واستاذى العزيز @Eng.Qassim جزاه الله خيرا

Private Sub btnTrueOrFalse_Click()
    If Me.btnTrueOrFalse.Caption = "نعم" Then
        DoCmd.SetWarnings False
        DoCmd.RunSQL "UPDATE main INNER JOIN aux ON main.id = aux.id SET aux.done = True " & _
                     "WHERE (((main.id)=[Forms]![main]![id]));"
        DoCmd.SetWarnings True
        Me.btnTrueOrFalse.Caption = "لا"
    Else
        DoCmd.SetWarnings False
        DoCmd.RunSQL "UPDATE main INNER JOIN aux ON main.id = aux.id SET aux.done = false " & _
                     "WHERE (((main.id)=[Forms]![main]![id]));"
        DoCmd.SetWarnings True
        Me.btnTrueOrFalse.Caption = "نعم"
    End If
    Me.aux_نموذج_فرعي.Requery
End Sub

بالتوفيق

اختيار نعم او لا_1.accdb 552 kB · 4 downloads

شكرا لكم وجزاكم الله خيراً

[Eng.Qassim]

 

20 ساعات مضت, eng aoff said:

من بعد اذنك ياريت لو تفسر الي الكود

بعد اذن اخي @احمد الفلاحجي

اذا كانت تسمية الزر = نعم ... سيقوم بتشغيل استعلام التحديث ويجعل قيمة done=True

وهذا  استعلام التحديث في وضع التصميم

واذا كانت تسمية الزر = لا ... سيقوم بتشغيل استعلام التحديث ويجعل قيمة done=False

 

 

تم تعديل أبريل 24, 2022 بواسطه Eng.Qassim

[eng aoff]

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

@Eng.Qassim @احمد الفلاحجي تم عمل المطلوب ربي يحفظكم

 

 

 

تم تعديل أبريل 25, 2022 بواسطه eng aoff