システムwiki

無制限のTextBoxes文字を正確に4に制限します

lance88 解決済 最終更新日:2021-05-02 02:42

こんにちは私は2つの無制限のテキストボックス(txtnewpw1&txtnewpw2)を持っています.任意の2つのTextBoxが<>4の場合は、MSGBoxの「パスワード文字が制限されていません」.質問は、コードとは何か、どこに挿入するのか
これらのコード?私は挿入されるコードが好きです パスワードを成功させる直前に.あなたの親切なガイダンスに本当に感謝しています.私のコードは次のとおりです.

プライベートサブCMDCHGPW_CLICK()
Dim StrSQLは文字列として
ISNULL(ME.TXTNEWPW1)またはISNULL(ME.TXTNEWPW2)が
MSGBOX「新しいパスワードを入力してください」
me.txtnewpw1= "" "" "" "" me.txtnewpw2= "" "" ""



me.txtnewpw1<>me.txtnewpw2の場合
MsgBoxの「パスワードが一致しません」
me.txtnewpw1= "" "" "" "" me.txtnewpw2= "" "" "" me.txtnewpw2.setfocus



の場合は終了
の場合は終了 STRSQL= "TBLUSERの更新userpw= '"&me.txtnewpw2&"' where userlogin= '"&me.txtloginchgpw&";
CurrentDB.Execute StrSQL、DBFailOnError
STRSQL= "TBLUSERの更新ActiveDate=#"&date&"#where userlogin= '"&me.txtloginchgpw&";"; "
CurrentDB.Execute StrSQL、DBFailOnError
MSGBOX「パスワードの変更は成功した場合は、新しいパスワードを覚えておいてください」
MsgBox "データベースはあなたの新しいパスワードを実行するために終了します"
application.quit
終了SUB

返信リスト(回答:4)

1 #
DanielP
https://allenbrowne.com/ser-34.htmlを参照してください.
2 #
HansVMV

例:

Private Sub cmdChgPW_Click()
Dim strSQL As String
If IsNull(Me.txtNewPW1)Or IsNull(Me.txtNewPW2)Then
MsgBox "Please enter new passWord"
Me.txtNewPW1=""
Me.txtNewPW2=""
Exit Sub
ElseIf Len(Me.txtNewPW1)<>4またはLen(Me.txtNewPW2)<>4 Then
MsgBox "PassWordには正確に4が含まれている必要があります文字 "
Me.txtNewPW1=""
Me.txtNewPW2=""
Exit Sub
ElseIf Me.txtNewPW1<>Me.txtNewPW2 Then
MsgBox" PassWords not match "
Me.txtNewPW1=""
Me.txtNewPW2=""
Me.txtNewPW2.SetFocus
Exit Sub
End If
strSQL="UPDATE tbluser SET UserPW='"&Me.txtNewPW2& "'WHERE UserLogin ='"&Me.txtLoginChgPW& "'"
CurrentDb.Execute strSQL、dbFailOnError
strSQL="UPDATE tblUser SET ActiveDate=Date()WHERE UserLogin ='"&Me.txtLoginChgPW& "'"
CurrentDb.Execute strSQL、dbFailOnError
MsgBox "passWordの変更に成功しました、新しいパスワードを覚えておいてください"
MsgBox "データベースは終了して新しいパスワードを有効にします"
Application.Quit
End Sub

√
3 #
Scottge
コードを使用するのではなく、4文字を入力する必要があるように、コントロールに検証ルールを設定します.
応答3# ->にスキップ
4 #
lance88
こんにちはHansV、ダニエル&スコット.このコーディングについてご案内いただきありがとうございます.HansVコーディングを試しましたが、完全に機能しました.ご指導ありがとうございました.素晴らしい週末をお過ごしください.

関連質問