[ تمت الإجابة ]3 Radiobutton اذا حددت احد الثلاثة يلغى التحديد عن البقية

أخي الغالي

تفضل الكود المستخدم في هذه العملية

Private Sub radio1_Click()
If Me.radio1.Value = True Then
Me.radio2.Value = False
Me.radio3.Value = False
End If
End Sub

Private Sub radio2_AfterUpdate()
If Me.radio2.Value = True Then
Me.radio1.Value = False
Me.radio3.Value = False
End If
End Sub

Private Sub radio3_AfterUpdate()
If Me.radio3.Value = True Then
Me.radio1.Value = False
Me.radio2.Value = False
End If
End Sub

مرفق مثالك بعد اجراء التعديلات الازمة علية

db8_up.rar

اخي الفاضل محمد فؤاد

بارك الله بك على المشاركة

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

za_db8_up.rar

تسلم يا استاذنا الكبير

هذا هو المطلوب

في عندي سؤال ثاني يتعلق بنفس الموضوع

انا الحين اضفت على نفس النموذج بجانب radio buttom زر

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

و من ضمن الحقول في هذا الاستعلام spendquantity

و هذا الكود الموجود في هذا الزر

Private Sub cmd_Click()

On Error GoTo Err_cmd_Click

Dim stDocName As String

stDocName = "BidsREP"

DoCmd.OpenReport stDocName, acPreview

Exit_cmd_Click:

Exit Sub

Err_cmd_Click:

MsgBox Err.Description

Resume Exit_cmd_Click

End Sub

المطلوب ما هو

انه اذا اخترت radio1 فان الزر سيقوم بفتح التقرير بشرط ان الكميات الموجوده في الحقل spenquantity تكون تساوي صفر

انه اذا اخترت radio2 فان الزر سيقوم بفتح التقرير بشرط ان الكميات الموجوده في الحقل spenquantity تكون اكبر من صفر

انه اذا اخترت radio3 يعرض جميع القيم

و لك خالص شكري

أخي الغالية زهرة

أعرف هذه الطريقة جيداً

لكني تحايلت بناء علي طلبة بالكود يمكن لغرض انا لا اعرفة ولم يخطر ببالي انه ليس علي علم بخيار Option Group

المهم تم التعديل علي المثال مرة أخري ليتناسب مع طلبك

ولا تنسي ان قوانين المنتدي تسمح بسؤال واحد فقط داخل المشاركة

مرفق مثالك بعد اجراء التعديلات اللازمة علية

za_db8_up_2.rar

شكرا عزيزي

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

بالنسبة للستعلامات التي عملت

لا اريد ان انشاء استعلام لكل خيار فقط استعلام واحد و اغير في الحقل spendquantity

تحياتي

عزيزي استاذ محمد

لو سمحت ممكن تنزل الملف المرفق

راح تحصل الزر المضاف و التقرير المراد فتحه

شاكر لك نعاونك

za_db8_up_2.rar

بعد اذن اساتذتنا الكرام زهرة & محمد فؤاد...

تفضل اخي الكريم

za_db8_up_2.rar

شكرا استاذ ايهاب

اسعدني ردك على موضوعي كثيرا

عزيزي و استاذي

هل ممكن انه الحل ياتي بهذه الطريقة

if frm =1 then

DoCmd.OpenReport stDocName, acPreview, , "[spendquantity]<0

if frm=2 then

DoCmd.OpenReport stDocName, acPreview, , "[spendquantity]=0

و هكذا على سبيل المثال و ليس الحصر

الى هالدرجه السؤال صعب

الله يعين

الاخت زهرة ممكن تلقي نظرة على هذا السؤال

شكرا لك

اخي الكريم مرحبا...

اولا : ما المشكلة في الحل الذي طرحناه سابقا؟؟

ثانياً : ان كان لديك تصور او اقتراح حل اخر...فهل جربته؟ وما كانت النتيجة؟؟

اهلا اخي ايهاب كيف حالك

الحل الاول ممتاز و ليس به مشكله لكن اريد الحل بالطريقة التالية

ان تتم الكتابة بالاكواد في الزر بقاعدة if

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

اذا ضغط على الزر و كان الخيار الثاني افتح لي التقرير الفلاني بشرط انه لا يعرض الا القيم التي اكبر منم الصفر

اذا ضغط على الزر و كان الخيار الثالث افتح لي التقرير الفلاني بدون شرط

هذا ما اريده وجزاكالله الف خير

اخي ايهاب مساء الخير

هل الطريقه التي طلبتها لعمل ما اريد غير ممكنه ام ماذا

مسااااء الفل..

حتى لو مش ممكنة .... لا استطيع ان ارفض لك طلبا

تفضل يا عزيزي..

za_db8_up_22.rar

تسلم لي يا كبير

جربت الكود على البرنامج اللي عندي و شغال ميه ميه

ربنا يحفظك

بسم الله الرحمن الرحيم

الاخ الكريم...بارك الله فيك

تمت الإجابة على الموضوع

إدارة الفريق العربي للبرمجة