[أبو عمر]

شوي تركيز بس
لما اعطاك رسالة الخطأ اكيد راح يظلل الخطأ باللون الاصفر تتبع الخطأ وراح تحل مشكلك نفسك

PHP كود :

Private Sub Combo2_Click()
rs.Index = ("الاسم"): rs.Seek "=", Combo2.Text
If rs.NoMatch Then Exit Sub
Combo2.Text = rs("الاسم")
Combo1.Text = rs("كلمة السر")
Check1.Value = rs("حفظ")
Check2.Value = rs("بحث")
Check3.Value = rs("تعديل")
Check4.Value = rs("حذف")
Check5.Value = rs("التقرير")

End Sub 


الخطأ كان هنا
Check1.Value = ("حفظ")
والتصحيح
Check1.Value = rs("حفظ")
بالتوفيق أخي