اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الردود الموصى بها

قام بنشر

سلام عليكم اساتذتنا الكرام؛

عندي قاعدة بيانات اكسس

انشأت مربع نص اختياري (مقبول - غير مقبول )

و انشأت زر مقبول و زر غير مقبول

السؤال: اريد الربط بين الزر و مربع الاختيار

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

وشكرا لكم على الدعم و المساندة 

  • تمت الإجابة
قام بنشر

تفضل أخي @rachedi ، ولكن لي طلب منك صغير وأرجو أن تأخذه بسعة صدر ..

حاول ارفاق ملف للمشكلة التي تريد لها حل ، وأيضاً انتقاء العناوين المناسبة التي تصف المشكلة ليسها على الأعضاء إيجادها في البحث عند حاجتهم .

 

تفضل هذه اقتراحي حسب ما فهمت من طلبك ، زر القبول :-

Private Sub btnAccepted_Click()
    Me.chkAccept.Value = True
End Sub

 

وزر الغير مقبول :-

Private Sub btnReject_Click()
    Me.chkAccept.Value = False
End Sub

 

  • Like 2
قام بنشر

تفضل استاذ @rachedi طلبك بالمرفق والشرح  بطريقتان .  زر واحد أو زران . ووافني بالرد .:fff:

                                                                             image.gif.67ae36445bca0fdf1bfb8b833edfcdcf.gif

DDTest113.rar

  • Like 1
  • Thanks 1
قام بنشر
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 طلبك بالمرفق والشرح  بطريقتان .  زر واحد أو زران . ووافني بالرد .:fff:

                                                                             image.gif.67ae36445bca0fdf1bfb8b833edfcdcf.gif

DDTest113.rar 19.5 kB · 8 downloads

استاذ @khalifa1960  شكرا لك وهذا هو المطلوب رجاءا لو تكتب لي الكود البرنامج المرفق لم يعمل معي للأسف ، ممكن كود زر واحد الله يحفظك و يطول في عمرك استاذنا الفاضل

قام بنشر

تفضل استاذنا .:fff:

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

 

  • Like 1
قام بنشر

استاذنا الفاضل شكرا لك وهاذا هو المطلوب

و اين اضع هذا الكود في حدث او اين ؟

بارك الله فيك 

قام بنشر
في 3‏/4‏/2024 at 01:46, rachedi said:

استاذنا الفاضل شكرا لك وهاذا هو المطلوب

و اين اضع هذا الكود في حدث او اين ؟

بارك الله فيك 

معلوم  في  زر  الامر  من  اسمه  بالكود  وعند  الضغط 

Private Sub CmdAccepted_Click()

انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد

يجب ان تكون عضوا لدينا لتتمكن من التعليق

انشئ حساب جديد

سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .

سجل حساب جديد

تسجيل دخول

هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.

سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information