[Microformt]

(19-08-18, 05:57 PM)elgokr كتب :

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

لاتمام تفعيل البحث بهذا الاداء

كل ما عليك فعله التالى

اسفل هذا السطر

كود :

Set db = OpenDatabase(App.Path & "/db1.mdb")

قم بوضع الكود التالى

كود :

Dim vbCheck As Boolean
If Check1.Value = 0 Then
vbCheck = False
Else
vbCheck = True
End If

وتعال فى كود الاستعلام وطبق التالى

كود :

"Select * From soft WHERE AcceiD=" & Val(Text1.Text) & " AND vb=" & vbCheck

طبق الامر فى البحث و الحفظ

مرفق السورس + برنامج للاختبار بعد اتمام التعديل

تحياتى لك

وتمنياتى لك التوفيق

اخي الكريم
 السلام عليكم ورحمة وبركاته
 احب ان اقدم لكم جزيل الشكر والتقدير على ما تقدمه من دعم فني

  المشكله انني اريد ان تظهر قيمة الخيار عند البحث برقم الموظف فقط ؟؟
 
  اركرار لكم الشكر والتقدير  على ما تقدمه من دعم فني وجزك الله خيراً