DLookup

时间:2022-08-15 03:26:14 阅读: 最新文章 文档下载
说明:文章内容仅供预览,部分内容可能不全。下载后的文档,内容与下面显示的完全一致。下载之前请确认下面内容是否您想要的,是否完整无缺。

=DLookUp("数量","表1","名称='" & [txt名称] & "'")

Private Sub dlqd_Click()

If IsNull(Me.登陆用户) Then

MsgBox "请输入用户名!", 0 + 64, "错误警告!"

ElseIf IsNull(Me.登陆密码) Then

MsgBox "请输入密码!", 0 + 64, "错误警告!"

ElseIf Me.登陆密码 <> DLookup("[密码]", "用户管理", "用户='" & [登陆用户] & "'") Then

MsgBox "用户名或密码不正确,请重新输入", 0 + 64, "错误警告!"

Me.登陆用户 = Null

Me.登陆密码 = Null

Me.登陆用户.SetFocus

Else

Me.Visible = False

DoCmd.OpenForm "ABC"

End If

End Sub

本文来源:https://www.wddqw.com/doc/58abd9b1ccbff121dd3683a7.html