كود البحث

وعليك السلام ، أرفق مثالك ليتم التعديل عليه .. تحياتي

هذه صورة الفورم

واسم جدول البيانات الموظفين Employee

للعلم : اسم قاعدة البيانات mydata , وكلمة المرور Shaimaa

هذا رابط المشروع

http://www.4shared.com/zip/EcHbmmUU/data.html?

مرحبا اخي الصورة غير والمثال غير ، أيضاً حاولت اشوف المثال لقيته معقد شوي وغير مرتب

على العموم كود البحث كالتالي :

tb1 = اسم الجدول

f1 = اسم الحقل المراد البحث عنه

text1 = القيمة المكتوبة للبحث عنها في حقل f1

اذا لم يجد البحث يظهر رسالة عفواً السجل غير موجود

واذا وجد السجل يقوم بعرض الحقول المناسبة لكل حقل في تكست خاص بها

Dim Rs As New ADODB.Recordset
If Rs.State = 1 Then Rs.Close
Rs.Open "SELECT * FROM tb1 WHERE F1 = '" & Text1 & "'", cn, 1, 2
If Rs.EOF = True Then
MsgBox "عفواً السجل غير موجود"
Else
text2 = Rs!f2
Text3 = Rs!f3
text4 = Rs!f4
End If
Set Rs = Nothing
If Rs.State = 1 Then Rs.Close

بارك الله فيك وجاري التجربة