اذهب الي المحتوي
أوفيسنا

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


sofiane05552

الردود الموصى بها

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

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

 

11.png.4f83169f348af3140cd48e8b6979f8f1.png

 

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

رابط هذا التعليق
شارك

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

 

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
 

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information