user_access قام بنشر مارس 31, 2024 قام بنشر مارس 31, 2024 سلام عليكم اساتذتنا الكرام؛ عندي قاعدة بيانات اكسس انشأت مربع نص اختياري (مقبول - غير مقبول ) و انشأت زر مقبول و زر غير مقبول السؤال: اريد الربط بين الزر و مربع الاختيار يعني عند الضغط على زر مقبول يتغير في القيمة لتصبح غير مقبول و العكس صحيح وشكرا لكم على الدعم و المساندة
تمت الإجابة Foksh قام بنشر أبريل 1, 2024 تمت الإجابة قام بنشر أبريل 1, 2024 تفضل أخي @rachedi ، ولكن لي طلب منك صغير وأرجو أن تأخذه بسعة صدر .. حاول ارفاق ملف للمشكلة التي تريد لها حل ، وأيضاً انتقاء العناوين المناسبة التي تصف المشكلة ليسها على الأعضاء إيجادها في البحث عند حاجتهم . تفضل هذه اقتراحي حسب ما فهمت من طلبك ، زر القبول :- Private Sub btnAccepted_Click() Me.chkAccept.Value = True End Sub وزر الغير مقبول :- Private Sub btnReject_Click() Me.chkAccept.Value = False End Sub 2
kkhalifa1960 قام بنشر أبريل 1, 2024 قام بنشر أبريل 1, 2024 تفضل استاذ @rachedi طلبك بالمرفق والشرح بطريقتان . زر واحد أو زران . ووافني بالرد . DDTest113.rar 1 1
user_access قام بنشر أبريل 2, 2024 الكاتب قام بنشر أبريل 2, 2024 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 قام بنشر أبريل 2, 2024 قام بنشر أبريل 2, 2024 تفضل استاذنا . 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 1
user_access قام بنشر أبريل 2, 2024 الكاتب قام بنشر أبريل 2, 2024 استاذنا الفاضل شكرا لك وهاذا هو المطلوب و اين اضع هذا الكود في حدث او اين ؟ بارك الله فيك
العبيدي رعد قام بنشر أبريل 4, 2024 قام بنشر أبريل 4, 2024 في 3/4/2024 at 01:46, rachedi said: استاذنا الفاضل شكرا لك وهاذا هو المطلوب و اين اضع هذا الكود في حدث او اين ؟ بارك الله فيك معلوم في زر الامر من اسمه بالكود وعند الضغط Private Sub CmdAccepted_Click()
الردود الموصى بها
انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد
يجب ان تكون عضوا لدينا لتتمكن من التعليق
انشئ حساب جديد
سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .
سجل حساب جديدتسجيل دخول
هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.
سجل دخولك الان