Private Sub Command2_Click()
'كود اجبار ملئ الحقول
If Text1 = "" Or Text2 = "" Or Text3 = "" Then
MsgBox "جميع الحقول مطلوبة", vbInformation + vbMsgBoxRight, "ادخال غير مكتمل"
Exit Sub
End If
'كود التاكد من وجود اسم مستخدم مشابه
SQLs = " select * from users where user_name = '" & Text1 & "'"
If rs.State = adStateOpen Then rs.Close
rs.Open SQLs, db, adOpenKeyset, adLockPessimistic
If rs.EOF Then
GoTo ok:
Else
MsgBox "ان اسم المستخدم الحالي قد تمت اضافته من قبل !! فضلا قم باختيار اسم مستخدم اخر", vbCritical + vbMsgBoxRight, "خطأ بالادخال"
Exit Sub
End If
ok:
'كود تطابق الكلمتين
If Text2 <> Text3 Then
MsgBox " كلمة المرور 1 وتاكيدها غير متطابقين", vbCritical + vbMsgBoxRight, "خطأ بالادخال"
Exit Sub
End If
'كود تأكيد اضافة المستخدم
ask = MsgBox("لقد قمت بانشاء حساب مستخدم جديد هل تود المتابعة", vbQuestion + vbMsgBoxRight + vbYesNo, "تنبيه")
If ask = vbYes Then
'كود اضافة المستخدم للقاعدة
rs![user_name] = Text1
rs![pass1] = Text2
'كود انشاء الصلاحيات
If Check1.Value = True Then
rs![gadd] = True
Else
rs![gadd] = False
End If
If Check2.Value = True Then
rs![gprint] = True
Else
rs![gprint] = False
End If
If Check3.Value = True Then
rs![gedit] = True
Else
rs![gedit] = False
End If
If Check4.Value = True Then
rs![gcreat_acount] = True
Else
rs![gcreat_acount] = False
End If
'كود تحديث القاعدة
rs.Update
'رسالة نجاح الاضافة
MsgBox "تم انشاء الحساب بنجاح", vbInformation + vbMsgBoxRight, "الحالة"
End If