建了一个信息表，里面有原用户名，旧密码
在确定按钮上面编程，
Public Function adlogin() As Boolean
Dim str As Database
Dim rs
Set str = CurrentDb
Set rs = str.OpenRecordset("select 原用户名,旧密码 from 信息 where 原用户名= '" & Me.原用户名 & "' and 旧密码='" & Me.旧密码 & "'")
If Not rs.EOF Then
If rs.Fields("旧密码") = Me.旧密码 Then adlogin = True
End If
End Function
还有
Private Sub 确定_Click()
If IsNull(Me.原用户名) Then
MsgBox "请输入用户名！(*^__^*) ", vbQuestion
Exit Sub
End If
If IsNull(Me.旧密码) Then
MsgBox "请输入密码！O(∩_∩)O~", vbQuestion
Exit Sub
End If
If IsNull(Me.新密码) Then
MsgBox "请输入密码！O(∩_∩)O~", vbQuestion
Exit Sub
End If
If IsNull(Me.确认密码) Then
MsgBox "请输入确认密码！O(∩_∩)O~", vbQuestion
Exit Sub
End If
If (Me.新密码) <> (Me.确认密码) Then
MsgBox "两次密码不一致，请重新输入！O(∩_∩)O~", vbQuestion
Exit Sub
End If
If adlogin = True Then
DoCmd.GoToRecord , , acNewRec
MsgBox "密码更改成功!", , "成功"
Else
MsgBox " 用户名或密码错误哦，请重新输入。 ", vbCritical
Exit Sub
End If
End Sub
这段代码是我根据书上改的，乱写的
怎么都运行不了
菜鸟级别，怎么都运行不了，求大神给一段代码，能够运行
财富值不够了，希望在线解答，在线等，，好着急，感激不尽
