كود جعل زر خيار True بناء علي وضع قيمة في حقل نص

[حسين العربى]

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

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

اريد عند اختيار كلمة (ذكر) يتحول زر خيار ذكر الي True  وعند اختيار (انثي) يتحول زر خيار انثي الي  True

test1.accdb

[wael_rafat]

عليكم السلام

اتفضل

Private Sub B_1_AfterUpdate()
If Me.B_1 = "ذكر" Then
Me.t_1 = True
Me.t_2 = False
Else
Me.t_1 = False
Me.t_2 = True
End If

End Sub

 

بالتوفيق...
 

[حسين العربى]

الف الف شكر استاذي الفاضل جذاك الله خيرا وجعله الله في ميزان حسناتك

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

مرسل مرفق

test1.accdb

تم تعديل يناير 20, 2022 بواسطه حسين العربى

[حسين العربى]

UP

 

[Eng.Qassim]

ضع الكود على حدث بعد التحديث

Private Sub B_1_AfterUpdate()
If Me.B_1 = "ذكر" Then
Me.t_1 = True
Me.t_2 = False
Else
Me.t_1 = False
Me.t_2 = True
End If
End Sub

 

[حسين العربى]

استاذي الفاضل انا محتاج الكود يكون في حدث عند التغيير وليسي بعد التحديث لهدف ما وشكرا 

 

تم تعديل يناير 20, 2022 بواسطه حسين العربى

[أبو عبدالله الحلوانى]

Private Sub B_1_AfterUpdate()
    If Me.B_1 = ChrW(1584) & ChrW(1603) & ChrW(1585) Then
        Me.t_1 = True
        Me.t_2 = False
    Else
        Me.t_1 = False
        Me.t_2 = True
    End If
End Sub

سبقني بها استاذنا قاسم 

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

[أبو عبدالله الحلوانى]

17 دقائق مضت, حسين العربى said:

انا محتاج الكود يكون في حدث عند التغيير

إذا جرب هذا التعديل ووافني بالنتائج

وهذا هو الكود بعد التعديل 

Private Sub B_1_Change()
    If Me.B_1.Text = ChrW(1584) & ChrW(1603) & ChrW(1585) Then
        FrameSx = 1
    ElseIf B_1.Text = ChrW(1571) & ChrW(1606) & ChrW(1579) & ChrW(1610) Then
        FrameSx = 2
    ElseIf B_1.Text = ChrW(1575) & ChrW(1606) & ChrW(1579) & ChrW(1610) Then
        FrameSx = 2
    Else
        FrameSx = 0
    End If
End Sub

 

test1.accdb

[حسين العربى]

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

تم تعديل يناير 20, 2022 بواسطه حسين العربى

[Eng.Qassim]

28 دقائق مضت, أبو عبدالله الحلوانى said:

لا تجعل في الكود أحرف عربية لتفادي مشكلات اختلاف اللغة علي الاجهزة

شكرا استاذي @أبو عبدالله الحلوانى على هذه المعلومة

لان لوكانت الكلمة بالعربي فلن يعمل الكود في حدث عند التغيير الا اذا تم تحويلها الى Unicode

معلومة من ذهب ... جزاك الله خيرا استاذي

2 دقائق مضت, حسين العربى said:

للاسف مش فاهم الكود هذا بيشتغل ازاي لاني ما فيش شي مذكور فيه من اسماء

انظر لملف استاذي @ابو جودي

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

unicode

Converter Arabic and Unicode (v. 3).accdb

[ابو جودي]

25 دقائق مضت, Eng.Qassim said:

25 دقائق مضت, حسين العربى said:

للاسف مش فاهم الكود هذا بيشتغل ازاي لاني ما فيش شي مذكور فيه من اسماء

علشان تقدر تتعامل بسهولة شوف الشرح المصور 

[حسين العربى]

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

[ابو جودي]

الملف موجود فى مشاركة الباش مهندس @Eng.Qassim 

ورابط المرفق مرة أخرى

 

Converter Arabic and Unicode (v. 3).accdb

[حسين العربى]

11 ساعات مضت, أبو عبدالله الحلوانى said:

إذا جرب هذا التعديل ووافني بالنتائج

وهذا هو الكود بعد التعديل 

Private Sub B_1_Change()
    If Me.B_1.Text = ChrW(1584) & ChrW(1603) & ChrW(1585) Then
        FrameSx = 1
    ElseIf B_1.Text = ChrW(1571) & ChrW(1606) & ChrW(1579) & ChrW(1610) Then
        FrameSx = 2
    ElseIf B_1.Text = ChrW(1575) & ChrW(1606) & ChrW(1579) & ChrW(1610) Then
        FrameSx = 2
    Else
        FrameSx = 0
    End If
End Sub

 

test1.accdb 928 kB · 8 downloads

الف الف شكر وحزاك الله خير الجزاء وجعله الله في ميزان حسناتك

 

[أبوبسمله]

جزاكم الله خيرا اخوانى واساتذتى

لى سؤال للاستاذ حسين مالهدف هل ممكن معرفه الهدف

19 ساعات مضت, حسين العربى said:

استاذي الفاضل انا محتاج الكود يكون في حدث عند التغيير وليسي بعد التحديث لهدف ما وشكرا 

بالتوفيق