اخواني الاعزاء والله ان برنامجي جاهز ولا ينقصه الا هذه النقطه فارجو مساعدتي باسرع ما يمكن
لدي جدول باسم pas1
وبه حقول as للاسم
وحقل اخر ds للرقم
هناك حقول اخرى مثل
f1,f2,f3,f4,f5,f6
الحقل f7 وهو رقم الصلاحيه
انا استخدم الكود التالي وهو ممتاز ولكن يبحث عن الاسم والرقم في الجدول وهو تمام ولكن ارغب ان اضيف للكود رقم الصرحيه اذا كان رقم الصلاحيه 1 يخفي كوماند واحد في الفورم رقم مثلاً 7
واذا كانت رقم الصلاحيه 2 اخفي كوماند 2 في الفورم 7 واظهر كوماند 1 وهكذا
واليكم الكود
Dim conn As New Connection
Dim rs As New Recordset
conn.Open Adodc1.ConnectionString
rs.Open "select * from pas1 where as='" & sd.Text & "' and ds=" & Val(df.Text) & "", conn
If Not rs.EOF Then
Form1.Show
Form8.Timer1 = False
Unload Me
Else
If MsgBox("الرقم السري غير صحيحvbYesNo, "رساله") = vbYes Then
End