(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

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

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

تحياتى لك

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

(19-08-18, 09:09 PM)Microformt كتب : اخي الكريم
 السلام عليكم ورحمة وبركاته
 احب ان اقدم لكم جزيل الشكر والتقدير على ما تقدمه من دعم فني

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

(19-08-18, 09:43 PM)elgokr كتب :

(19-08-18, 09:09 PM)Microformt كتب : اخي الكريم
 السلام عليكم ورحمة وبركاته
 احب ان اقدم لكم جزيل الشكر والتقدير على ما تقدمه من دعم فني

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

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

الشكر لله وهذا من اصلك الطيب اخى Microformt

اذا كل ما تريده هو عكس الفكرة

وهو جلب قيمة متزوج ام لا الى Check

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

تجاهل ردى السابق وتعال على السورس الرئيسيى الخاص بك

وكل ما عليك تاتى على السطر التالى

كود :

If Not IsNull(rs("Vb").Value) Then Check1.Visible = rs("Vb").Value

استبدله بالكود التالى

كود :

If (rs("Vb").Value = True) Then
Check1.Value = "1"
Else
Check1.Value = "0"
End If

وبكده سيقوم بتظليل  Check1 اذا كان القيمة True فى الجدول

اتمنى ان الكود مبسط ويمكنك التعديل على السورس لديك

اذا تحتاج الى اعادة ارفاق السورس مع البرنامج

يمكنك الرد وسارفقه لك بعد اتمام التعديل

تحياتى لك

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