30-11-13, 07:50 PM
المشكل عندك في هذا الكود
و بالظبط هذا السطر
إذ أن Check1.Value لا تقبل الحروف
و الواضح أنك كنت تقصد
بالتوفيق
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 = ("حفظ")
Check2.Value = rs("بحث")
Check3.Value = rs("تعديل")
Check4.Value = rs("حذف")
Check5.Value = rs("التقرير")
End Sub
PHP كود :
Check1.Value = ("حفظ")
و الواضح أنك كنت تقصد
PHP كود :
Check5.Value = rs("حفظ")
منقطع .. للدراسة

