حسين العربى قام بنشر يناير 19, 2022 مشاركة قام بنشر يناير 19, 2022 السلام عليكم ورحمة الله وبركاته اخواني اعضاء ومشرفي المنتدي الكرام عندي عدد 2 زر خيار ومربع تحرير وسرد كما هو موضح في الصورة اريد عند اختيار كلمة (ذكر) يتحول زر خيار ذكر الي True وعند اختيار (انثي) يتحول زر خيار انثي الي True test1.accdb رابط هذا التعليق شارك More sharing options...
wael_rafat قام بنشر يناير 19, 2022 مشاركة قام بنشر يناير 19, 2022 عليكم السلام اتفضل 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 بالتوفيق... رابط هذا التعليق شارك More sharing options...
حسين العربى قام بنشر يناير 20, 2022 الكاتب مشاركة قام بنشر يناير 20, 2022 (معدل) الف الف شكر استاذي الفاضل جذاك الله خيرا وجعله الله في ميزان حسناتك بس لي استفسار لو طبقة الكود علي حقل نص عادي وليس مربع تحير وسرد لايعمل فما الحل مرسل مرفق test1.accdb تم تعديل يناير 20, 2022 بواسطه حسين العربى رابط هذا التعليق شارك More sharing options...
حسين العربى قام بنشر يناير 20, 2022 الكاتب مشاركة قام بنشر يناير 20, 2022 UP رابط هذا التعليق شارك More sharing options...
Eng.Qassim قام بنشر يناير 20, 2022 مشاركة قام بنشر يناير 20, 2022 ضع الكود على حدث بعد التحديث 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 1 رابط هذا التعليق شارك More sharing options...
حسين العربى قام بنشر يناير 20, 2022 الكاتب مشاركة قام بنشر يناير 20, 2022 (معدل) استاذي الفاضل انا محتاج الكود يكون في حدث عند التغيير وليسي بعد التحديث لهدف ما وشكرا تم تعديل يناير 20, 2022 بواسطه حسين العربى رابط هذا التعليق شارك More sharing options...
أبو عبدالله الحلوانى قام بنشر يناير 20, 2022 مشاركة قام بنشر يناير 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 سبقني بها استاذنا قاسم ولكن اضافة الي ما تفضل به يفضل ان لا تجعل في الكود أحرف عربية لتفادي مشكلات اختلاف اللغة علي الاجهزة رابط هذا التعليق شارك More sharing options...
أبو عبدالله الحلوانى قام بنشر يناير 20, 2022 مشاركة قام بنشر يناير 20, 2022 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 1 1 رابط هذا التعليق شارك More sharing options...
حسين العربى قام بنشر يناير 20, 2022 الكاتب مشاركة قام بنشر يناير 20, 2022 (معدل) الف الف شكلا استاذي الفاضل أبو عبدالله الحلوانى كود جميل وشغال تمام بس للاسف مش فاهم الكود هذا بيشتغل ازاي لاني ما فيش شي مذكور فيه من اسماء رز الخيار وايه معني هذه الارقام ولو حبيت اطبق علي اسماء اخري مسلا هطبق علي الديانه مسلم مسيحي ممكن شرح لو تكرمة ومنكم نستفيد تم تعديل يناير 20, 2022 بواسطه حسين العربى رابط هذا التعليق شارك More sharing options...
Eng.Qassim قام بنشر يناير 20, 2022 مشاركة قام بنشر يناير 20, 2022 28 دقائق مضت, أبو عبدالله الحلوانى said: لا تجعل في الكود أحرف عربية لتفادي مشكلات اختلاف اللغة علي الاجهزة شكرا استاذي @أبو عبدالله الحلوانى على هذه المعلومة لان لوكانت الكلمة بالعربي فلن يعمل الكود في حدث عند التغيير الا اذا تم تحويلها الى Unicode معلومة من ذهب ... جزاك الله خيرا استاذي 2 دقائق مضت, حسين العربى said: للاسف مش فاهم الكود هذا بيشتغل ازاي لاني ما فيش شي مذكور فيه من اسماء انظر لملف استاذي @ابو جودي وستفهم كيف يتم تحويل الكلمة العربي الى unicode Converter Arabic and Unicode (v. 3).accdb 1 1 رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر يناير 20, 2022 مشاركة قام بنشر يناير 20, 2022 25 دقائق مضت, Eng.Qassim said: 25 دقائق مضت, حسين العربى said: للاسف مش فاهم الكود هذا بيشتغل ازاي لاني ما فيش شي مذكور فيه من اسماء علشان تقدر تتعامل بسهولة شوف الشرح المصور 1 رابط هذا التعليق شارك More sharing options...
حسين العربى قام بنشر يناير 20, 2022 الكاتب مشاركة قام بنشر يناير 20, 2022 مشاء الله عمل ممتاذز استاذي ومعلمي الفاضل ابو جودي جزاك الله خيرا ممكن الملف لو تكرمت رابط هذا التعليق شارك More sharing options...
أفضل إجابة ابو جودي قام بنشر يناير 20, 2022 أفضل إجابة مشاركة قام بنشر يناير 20, 2022 الملف موجود فى مشاركة الباش مهندس @Eng.Qassim ورابط المرفق مرة أخرى Converter Arabic and Unicode (v. 3).accdb 1 رابط هذا التعليق شارك More sharing options...
حسين العربى قام بنشر يناير 21, 2022 الكاتب مشاركة قام بنشر يناير 21, 2022 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 الف الف شكر وحزاك الله خير الجزاء وجعله الله في ميزان حسناتك 1 رابط هذا التعليق شارك More sharing options...
أبوبسمله قام بنشر يناير 21, 2022 مشاركة قام بنشر يناير 21, 2022 جزاكم الله خيرا اخوانى واساتذتى لى سؤال للاستاذ حسين مالهدف هل ممكن معرفه الهدف 19 ساعات مضت, حسين العربى said: استاذي الفاضل انا محتاج الكود يكون في حدث عند التغيير وليسي بعد التحديث لهدف ما وشكرا بالتوفيق رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.