救命呐！反反复复写了很多代码，在网上也找了很多资料，还是没能解决~~

~痕~

救命呐！反反复复写了很多代码，在网上也找了很多资料，还是没能解决~~
就是想做一个能修改密码的窗体，用的是2010的access，在网上、论坛也找了很多代码，就是不行。求高手指教、
上传附件，用户名：admin 密码 123456 OMG.zip (454 KB, 下载次数: 23)

2014-5-6 17:29 上传

点击文件名下载附件

ly

Dim cmd As ADODB.Command, strcom As String
Set cmd = New ADODB.Command
cmd.ActiveConnection = CurrentProject.Connection

    If newpass = "" Then
.....
        Exit Sub
    End If
    If newpass = dnewpass Then
        strcom = "update Users set Passwords='" & dnewpass & "' where Names='" & dqxm & "'"
        cmd.CommandText = strcom
        cmd.Execute
        MsgBox "密码修改成功！", vbInformation + vbOKOnly, "恭喜"
        Set cmd = Nothing
    Else
。。。。

~痕~

ly 发表于 2014-5-6 21:46
Dim cmd As ADODB.Command, strcom As String
Set cmd = New ADODB.Command
cmd.ActiveConnection = Curr ...

感谢您的帮助，通过你的代码，能正常修改密码了，非常感谢。