19-08-18, 05:57 PM
وعليكم السلام ورحمة الله وبركاته
لاتمام تفعيل البحث بهذا الاداء
كل ما عليك فعله التالى
اسفل هذا السطر
كود :
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طبق الامر فى البحث و الحفظ
مرفق السورس + برنامج للاختبار بعد اتمام التعديل
تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى
لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله
▼ شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى
لكل من يقوم بالمساهمةفى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله
▼ شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
