Access中，编写VBA代码，使单击该按钮后，窗体标题改为“显示查询信息”。怎么编写？
答案:2 悬赏:80
解决时间 2021-12-20 14:52
- 提问者网友：冷场帝
- 2021-12-20 04:30
Access中，编写VBA代码，使单击该按钮后，窗体标题改为“显示查询信息”。怎么编写？
最佳答案
- 二级知识专家网友：何必打扰
- 2021-12-20 05:04
假设按钮的名称为commandbutton1 窗体的名称userform1
Private Sub CommandButton1_Click()
UserForm1.Caption = "显示查询信息"
End Sub
Private Sub CommandButton1_Click()
UserForm1.Caption = "显示查询信息"
End Sub
全部回答
- 1楼网友：说多了都是废话
- 2021-12-20 05:49
1. 需要建一个用户表，表中要有用户名和密码字段，只建一个用户表就可以；
2. 登陆按钮的单击事件代码：
private sub 登陆_click()
if isnull(me.用户名) or isnull(me.密码) then
msgbox "请输入正确的用户名和密码！"
elseif isnull(dlookup("用户名","用户表","用户名='" & me.用户名 & "'")) then
msgbox "用户名不存在！"
elseif dlookup("密码","用户表","用户名='" & me.用户名 & "'")=me.密码 then
docmd.openform 个人信息窗体
docmd.close acform,me.name
else
msgbox "密码错误！"
end if
end sub3. 重置按钮的点击事件代码：
private sub 重置_click()
me.用户名=null
me.密码=null
me.用户名.setfocus
end sub
祝你成功！
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯