انشاء زر اختيار قيم

[خالد الماجد 2]

السلام عليكم

ممكن مساعدة في انشاء مثل هذه الازرار في النموذح المرفق في الاسفل

علما انني مبتدئ يعني شرح بسيط ان امكن

[Eng.Qassim]

وعليكم السلام..

استخدم هذه الشفرة للزر المزدوج 

Private Sub cmd3_Click()
If Me.cmd3.Caption = "مقبول" Then
    Me.cmd3.Caption = "مرفوض"
    Me.txt1.SetFocus
    Me.txt1.Text = "مقبول"

ElseIf Me.cmd3.Caption = "مرفوض" Then
    Me.cmd3.Caption = "مقبول"
    Me.txt1.SetFocus
    Me.txt1.Text = "مرفوض"
End If
End Sub

نسيت شغلة..قم بتسمية الزر cmd3 ..والتسمية التوضيحية "مقبول"

تم تعديل يونيو 7 بواسطه Eng.Qassim