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