Private Sub Command登录_Click()
Dim login_tabelname As String '账号表名称
Dim login_filename As String '登录姓名字段名
Dim login_filepass As String '登录密码字段名
login_tabelname = "管理人员信息表"
login_filename = "管理者姓名"
login_filepass = "密码"
Dim login_rs As DAO.Recordset
Dim login_sql As String
login_sql = "Select * From " & login_tabelname & " where " & login_filename & " = " & Me.Text姓名.Value & ""
Set login_rs = CurrentDb.OpenRecordset(login_sql, dbOpenDynaset)
If login_rs.EOF = False Then '登录成功
Dim login_text As String
'
If login_rs.Fields(login_filepass) = Me.[Text密码].Value Then
login_text = "姓名" & login_rs.Fields(login_filename) & "登录成功!"
MsgBox login_text
'
DoCmd.Close acForm, Me.Name
DoCmd.OpenForm "操作导航—查询及修改", acNormal
Else
MsgBox "密码错误!" '密码错误
End If
Else '登录失败
End If
End Sub
Me.Text姓名.Value两侧应该有单引号吧