مشكلة وقت انشاء المستخدم الجديد الحساب

[sofiane05552]

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

هاهي  صورة مشكلة تاريخ تسجيل في جهة  واسم مستخدم ورقم السري في جهة  ولكود مستعمل تحت صورة

 

 

If IsNull(UserName) Or Me.UserName = "" Then
MsgBox "S'il vous plaît Assurez-Vous De Remplir Tous Les Champs D'inscription", vbCritical + vbMsgBoxleft, "Message d'erreur"
Exit Sub
End If

If IsNull(password) Or Me.password = "" Then
MsgBox "S'il vous plaît Assurez-Vous De Remplir Tous Les Champs D'inscription", vbCritical + vbMsgBoxleft, "Message d'erreur"
Exit Sub
End If

If IsNull(TexPassword2) Or Me.TexPassword2 = "" Then
MsgBox "S'il vous plaît Assurez-Vous De Remplir Tous Les Champs D'inscription", vbCritical + vbMsgBoxleft, "Message d'erreur"
Exit Sub
End If

DoCmd.SetWarnings False
DoCmd.RunSQL "INSERT INTO usersm(username,password)values(username,password)"
DoCmd.SetWarnings True

Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("usersm")
         rs.AddNew
         rs!UserName = texUserName
         rs!password = TexPassword
         rs!DateReg = Date
         rs.Update
        Set rs = Nothing
Me.UserName = ""
Me.password = ""

SetFocus
MsgBox "Enregistré avec succès"
DoCmd.Close

End Sub

[sofiane05552]

مشكورين  لقد تم اصلاح المشكل هاهو كود بعد اصلاح

 

If IsNull(UserName) Or Me.UserName = "" Then
MsgBox "S'il vous plaît Assurez-Vous De Remplir Tous Les Champs D'inscription", vbCritical + vbMsgBoxleft, "Message d'erreur"
Exit Sub
End If

If IsNull(password) Or Me.password = "" Then
MsgBox "S'il vous plaît Assurez-Vous De Remplir Tous Les Champs D'inscription", vbCritical + vbMsgBoxleft, "Message d'erreur"
Exit Sub
End If

If IsNull(TexPassword2) Or Me.TexPassword2 = "" Then
MsgBox "S'il vous plaît Assurez-Vous De Remplir Tous Les Champs D'inscription", vbCritical + vbMsgBoxleft, "Message d'erreur"
Exit Sub
End If

Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("usersm")
         rs.AddNew
         rs!UserName = UserName
         rs!password = password
         rs!DateReg = Date
         rs.Update
        Set rs = Nothing
Me.UserName = ""
Me.password = ""

SetFocus
MsgBox "Enregistré avec succès"
DoCmd.Close

End Sub