access登录窗口校验代码一-白红宇

access登录窗口校验代码一

阅读量：4539 次

发布时间：2019-06-08

本文共 355 字，大约阅读时间需要 1 分钟。

Private Sub login_Click()

If IsNull(Me.username) Then

MsgBox "请输入用户名！", vbExclamation

ElseIf IsNull(Me.password) Then

MsgBox "请输入密码！", vbExclamation

ElseIf key1 = DLookup("password", "user", "用户名 = '" & Me.username & "'") Then

DoCmd.OpenForm "登录界面" '打开登录界面

Else

MsgBox "密码不正确！", vbExclamation

End If

End Sub

转载于:https://www.cnblogs.com/ince/p/8975716.html

你可能感兴趣的文章

添加源ubuntu_x64 安装 Adobe Reader

查看>>

给datalist加自动编号（解决博客的第XX楼）

查看>>

BZOJ3282: Tree (LCT模板)

【codeforces】【比赛题解】#937 CF Round #467 (Div. 2)

查看>>

Yii DataProvider

查看>>

BestCoder Round #14 B 称号 Harry And Dig Machine 【TSP】

算法复习——数位dp（不要62HUD2089）

opencv源代码之中的一个：cvboost.cpp

查看>>

swift

查看>>