ازرار التحكم في اكسس

[user_access]

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

عندي قاعدة بيانات اكسس

انشأت مربع نص اختياري (مقبول - غير مقبول )

و انشأت زر مقبول و زر غير مقبول

السؤال: اريد الربط بين الزر و مربع الاختيار

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

وشكرا لكم على الدعم و المساندة 

[Foksh]

تفضل أخي @rachedi ، ولكن لي طلب منك صغير وأرجو أن تأخذه بسعة صدر ..

حاول ارفاق ملف للمشكلة التي تريد لها حل ، وأيضاً انتقاء العناوين المناسبة التي تصف المشكلة ليسها على الأعضاء إيجادها في البحث عند حاجتهم .

 

تفضل هذه اقتراحي حسب ما فهمت من طلبك ، زر القبول :-

Private Sub btnAccepted_Click()
    Me.chkAccept.Value = True
End Sub

 

وزر الغير مقبول :-

Private Sub btnReject_Click()
    Me.chkAccept.Value = False
End Sub

 

[kkhalifa1960]

تفضل استاذ @rachedi طلبك بالمرفق والشرح  بطريقتان .  زر واحد أو زران . ووافني بالرد .

                                                                             

DDTest113.rar

[user_access]

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

ممكن تجرب

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    ' F7 to clear search box
    If KeyCode = vbKeyF7 Then
        Me.SearchBox.Value = ""
        KeyCode = 0 ' Disable default behavior
    End If
    
    ' F8 to perform search
    If KeyCode = vbKeyF8 Then
        ' Add your search logic here
        MsgBox "Perform search"
        KeyCode = 0 ' Disable default behavior
    End If
End Sub

يجب وضع هذا الكود في النموذج الخاص بك، وتأكد من تغيير "SearchBox" إلى اسم مربع البحث الخاص بك.

 

8 ساعات مضت, kkhalifa1960 said:

تفضل استاذ @rachedi طلبك بالمرفق والشرح  بطريقتان .  زر واحد أو زران . ووافني بالرد .

                                                                             

DDTest113.rar 19.5 kB · 8 downloads

استاذ @khalifa1960  شكرا لك وهذا هو المطلوب رجاءا لو تكتب لي الكود البرنامج المرفق لم يعمل معي للأسف ، ممكن كود زر واحد الله يحفظك و يطول في عمرك استاذنا الفاضل

[kkhalifa1960]

تفضل استاذنا .

Private Sub CmdAccepted_Click()
Me.y1 = "مقبول"
Me.y1.ForeColor = RGB(0, 155, 0)
End Sub

Private Sub CmdRejected_Click()
Me.y1 = "مرفوض"
Me.y1.ForeColor = vbRed
End Sub

Private Sub CmdAcceptedRejected_Click()
If Me.y1 = "مقبول" Or Me.y1 = "" Then
Me.y1 = "مرفوض"
Me.y1.ForeColor = vbRed
Me.CmdAcceptedRejected.Caption = "مقبول"
Me.CmdAcceptedRejected.BackColor = RGB(0, 155, 0)

Else
Me.y1 = "مقبول"
Me.y1.ForeColor = RGB(0, 155, 0)
Me.CmdAcceptedRejected.Caption = "مرفوض"
Me.CmdAcceptedRejected.BackColor = vbRed

End If
End Sub

 

[user_access]

استاذنا الفاضل شكرا لك وهاذا هو المطلوب

و اين اضع هذا الكود في حدث او اين ؟

بارك الله فيك 

[العبيدي رعد]

في 3‏/4‏/2024 at 01:46, rachedi said:

استاذنا الفاضل شكرا لك وهاذا هو المطلوب

و اين اضع هذا الكود في حدث او اين ؟

بارك الله فيك 

معلوم  في  زر  الامر  من  اسمه  بالكود  وعند  الضغط 

Private Sub CmdAccepted_Click()