本文共 1966 字，大约阅读时间需要 6 分钟。

####一、如何让文本框获得焦点

Me.show text1.setfocus

如何您只输入setfocus会出错。

Dim txtSQL, MsgText As String   Dim mrc As ADODB.Recordset   Dim ctrl As Control

'判断输入用户名是否为空

If Not Testtxt(Text1.Text) Then                        '防止输入框为空        MsgBox "请输入用户名！", vbOKOnly + vbExclamation, "警告"        Text1.SetFocus        Exit Sub

End If If Not Testtxt(Text2.Text) Then                        '防止输入框为空    MsgBox "请输入密码！", vbOKOnly + vbExclamation, "警告"    Text2.SetFocus    Exit SubEnd If If Not Testtxt(Text3(0).Text) Then                        '防止输入框为空    MsgBox "请输入修改密码！", vbOKOnly + vbExclamation, "警告"    Text3(0).SetFocus    Exit SubEnd If If Not Testtxt(Text3(1).Text) Then                        '防止输入框为空    MsgBox "请第二次输入修改密码！", vbOKOnly + vbExclamation, "警告"    Text3(1).SetFocus    Exit SubEnd IftxtSQL = "select*from user_info where user_ID='" & Trim(Text1.Text) & "'"Set mrc = ExecuteSQL(txtSQL, MsgText)Text1.SetFocus'判断用户名是否存在If mrc.EOF = True Then        MsgBox "没有这个用户，请重新输入用户名！", vbOKOnly + vbExclamation, "警告"        Text1.SetFocusElse    '判断原密码是否正确    If Trim(Text2.Text) = Trim(mrc.Fields(1)) Then        '判断2次新密码是否输入一致        If Trim(Text3(0).Text) <> Trim(Text3(1).Text) Then            MsgBox "2次输入新密码输入不一致！", vbOKOnly + vbExclamation, "警告"            Text3(0).Text = ""            Text3(1).Text = ""            Text3(0).SetFocus        Else            mrc.Fields(1) = Text3(0).Text            mrc.Update            mrc.Close            MsgBox "密码修改成功！", vbOKOnly + vbExclamation, "修改密码成功"            Exit Sub        End If    Else        MsgBox "原密码输入错误！请重新输入", vbOKOnly + vbExclamation, "警告"        Text2.SetFocus        Text2.Text = ""        Exit Sub    End IfEnd IfFor Each ctrl In Me.Controls    If TypeOf ctrl Is TextBox Then '是否为文本框textbox     ctrl.Text = ""     End If     Next

####三、隐藏窗口

mrc.Close                Me.Hide                MsgBox "密码修改成功！", vbOKOnly + vbExclamation, "修改密码成功"                Exit Sub