请教，修改密码确认后总是会弹出输入参数对话框

lif973238

Private Sub 确定_Click()
    Dim sql As String
   
    If IsNull(Me.m1) Then
        MsgBox ("请输入密码")
        Me.m1.SetFocus
    Exit Sub
    End If
        If IsNull(Me.m2) Then
        MsgBox ("请再次输入密码")
        Me.m2.SetFocus
    Exit Sub
    End If
        If Me.m1 <> Me.m2 Then
        MsgBox ("两次输入的密码不一致")
    Exit Sub
    End If
        
        DoCmd.SetWarnings False
        sql = "UPDATE [密码表]  set 密码表.密码=me.m1  where 密码表.用户ID=Forms!登录窗![用户ID]"
        DoCmd.RunSQL sql
        DoCmd.SetWarnings True
        DoCmd.Close
        MsgBox ("密码更改成功")
End Sub

输入完两遍密码后，点确认，总是会弹出对话框“输入参数值 me.m1”,请教各位大虾，怎么办

koutx

问题出在:
sql = "UPDATE [密码表]  set 密码表.密码=me.m1  where 密码表.用户ID=Forms!登录窗![用户ID]"
此句

lif973238

请问上面那位兄弟，这一句有什么问题，怎么改才对呢

koutx

在Sql语句中,变量或控件如在""内是不会转化为其值的。

应改为:
sql = "UPDATE [密码表]  set 密码表.密码 = '" & me.m1 &  "' where 密码表.用户ID = " & Forms!登录窗![用户ID]

前提:密码字段是字符型
如是数字型则为:
sql = "UPDATE [密码表]  set 密码表.密码 = " & me.m1 &  " where 密码表.用户ID = " & Forms!登录窗![用户ID]

lif973238

谢谢大虾的指点，茅塞顿开,只怪学艺不精啊，幸好有大虾愿意帮助我，谢谢了