كيف يتم اختيار الكل بدلا من السجل الأول في النموذج المرفق والله يحفظكم

[علياء يسرالدين]

test1.accdb

[أبوبسمله]

اتفضلى محاوله منى على قدى

بس عملتها عن طريق زر

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

بالتوفيق

yn.accdb

[kha9009lid]

جربي المرفق

 

Test1.accdb

DoCmd.SetWarnings False
If [خيار12] = True Then
DoCmd.RunSQL "UPDATE table1 SET table1.yesno = yes "
Me.Requery
Else
DoCmd.RunSQL "UPDATE table1 SET table1.yesno = no "
Me.Requery
End If
DoCmd.SetWarnings True

 

[أبوبسمله]

1 دقيقه مضت, kha9009lid said:

جربي المرفق

 

Test1.accdb 392 kB · 1 تنزيلات

DoCmd.SetWarnings False
If [خيار12] = True Then
DoCmd.RunSQL "UPDATE table1 SET table1.yesno = yes "
Me.Requery
Else
DoCmd.RunSQL "UPDATE table1 SET table1.yesno = no "
Me.Requery
End If
DoCmd.SetWarnings True

احسنت اخى واستاذى خالد

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

تقبل تحياتى

[الحلبي]

والله يا استاذ/ @kha9009lid انا احترمك جدا وغلبت فى ان ادعو لك بايه غير ان اقول الله يبارك فى اسرتك واهلك ويرحم الله والديك فى الدنيا والاخره

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

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

[jjafferr]

السلام عليكم 🙂

 

وهذا من قديم الصوف 🙂

 

 

جعفر

[أبوبسمله]

جزاك الله خيرا اخى واستاذى جعفر بارك الله فيكم اساتذتى

جزاك الله خيرا اخى حلى على دعائك الطيب لى ولاخوانى واترك الملائكه ترد عليك

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

تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق

طبتم واهتديتم

[علياء يسرالدين]

تمت التجربة وشكرا لكم والله يعافيكم ويبارك في علمكم

[jjafferr]

اختي الفاضله علياء 🙂

 

اذا رأيتي ان المشاركة كانت ذو فائدة ، فرجاء تشجيع العضو بإختيارك:

.

ورجاء اختيار الاجابة التي كانت مناسبة لكي ، وقمتي بإستعمالها ، حتى يستفيد منها الذين عندهم نفس سؤالك :

.

جعفر

[kha9009lid]

12 ساعات مضت, أحمد الفلاحجى said:

احسنت اخى واستاذى خالد

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

تقبل تحياتى

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

3 ساعات مضت, حلبي said:

والله يا استاذ/ @kha9009lid انا احترمك جدا وغلبت فى ان ادعو لك بايه غير ان اقول الله يبارك فى اسرتك واهلك ويرحم الله والديك فى الدنيا والاخره

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

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

دكتور محمد جزاك الله خير اخي الفاضل فقد كافأت واحسنت الجزاء قَالَ رَسُولُ اللَّهِ صَلَّى اللَّهُ عَلَيْهِ وَسَلَّمَ : ( مَنْ صُنِعَ إِلَيْهِ مَعْرُوفٌ فَقَالَ لِفَاعِلِهِ : جَزَاكَ اللَّهُ خَيْرًا فَقَدْ أَبْلَغَ فِي الثَّنَاءِ )

تقبل من اخيك كل الود والتقدير

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

وهذا من قديم الصوف 🙂

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

اخي @أحمد الفلاحجى اعجبني مثالك واسمح لى بتعديل بسيط ليكون التحديد والالغاء بامر واحد

DoCmd.SetWarnings False
If Me.NAll.Caption = "no" Then
DoCmd.RunSQL "UPDATE table1 SET table1.[yesNo] = 0;"
Me.Requery
Me.NAll.Caption = "yes"
ElseIf Me.NAll.Caption = "yes" Then
DoCmd.RunSQL "UPDATE table1 SET table1.[yesNo] = -1;"
Me.Requery
Me.NAll.Caption = "no"
DoCmd.SetWarnings True
End If

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

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

yn.accdb

[أبوبسمله]

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

بكل الود والمحبه فالله فتعديلكم لنا هو غايه نبغيها نتعلم ونستفيد ونستزيد علما

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

جزاكم الله كل خير احبتى فالله