access-vba之用户登录窗口

最新推荐文章于 2022-07-11 13:33:05 发布
最新推荐文章于 2022-07-11 13:33:05 发布
阅读量3.9k 收藏 33
点赞数 5
分类专栏： access vba开发 文章标签： 数据库
这篇博客介绍了如何在Access VBA中创建一个用户登录窗口。通过VBA代码动态设置用户列表，根据选择的科室获取对应的用户。登录验证过程中检查密码是否匹配，并在验证成功后展示主界面。此外，还展示了如何控制窗体加载后的焦点位置以及实时更新显示当前时间。
摘要由CSDN通过智能技术生成

界面截图如下：

 



 

 

创建一个窗体设计，然后在设计中找到控件



 

 因为科室更新，带来了用户的更新，所有用户的行来源不指定，但科室的行来源要指定



 最后，我们通过VBA实现用户的行来源，这样可以保证在科室变化的情况下，用户实时显示每个科室的人员

Private Sub keshi_AfterUpdate()
   zgy.RowSource = "SELECT 用户查询.ID, 用户查询.科室ID, 用户查询.科室名称, 用户查询.用户姓名 FROM 用户查询 where 用户查询.科室ID=" & keshi
   DoCmd.GoToControl ("user")
End Sub

编写登录按钮的VBA代码

Private Sub login_btn__login_C

最低0.47元/天 解锁文章
deepfuture
关注
  • 5
    点赞
  • 踩
  • 33
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
access-vba之用户登录窗口.pdf
10-05
access-vba之用户登录窗口.pdf
用户登录界面代码_Access登录界面VBA代码及示例
weixin_29746595的博客
01-29 2819
分享一个登录功能的示例源码。1.设置了用户登录次数；2.用户增加，删除。图 示：示例下载： 在屏幕左下角的End推荐阅读Access训练营从0基础开始，循序渐进，系统化的训练营课程，整合作业、课表、社群，为学员提供答疑，获得更佳的学习效果。【详情>>】快速开发财务管理系统紧密结合职场的一个课程，参加培训不仅可提升开发技能，而且可获得案例源代码，立即投入到实际...
Access 窗体实现用户名及密码验证登录
热门推荐
甫式人生
10-29 1万+
登录界面如下 组合框名称为：借书证号 文本密码框名称为：密码 表：借书证 进入VBA编程的方式 设计视图中右键登录按钮——属性——事件 在VBA编程器中写代码 Private Sub 登录_Click() If IsNull(Me![借书证号]) Then MsgBox "请选择用登录用户!", 64, "系统提示" Me![借书证号].SetFocus Else If IsNu...
如何用VLOOKUP函数查询Access中的数据
ymsxzs的博客
06-26 2300
如何用VLOOKUP函数查询Access中的数据 我们在Excel中查询数据的时候往往用VLOOKUP查询当前工作簿中的数据。但是我们的数据源往往并不是存储在当前工作簿。可能存储在其它的工作簿，也可能存储在文本文件，或者存储在数据库。 如果数据并不是存储在当前工作簿，比如数据存储在了Access中那么我们该怎样查询数据源呢？ 此篇文章我们介绍一个新工具。它不仅可以用来查询Access中的数据还可以用来查询很多种来源的数据。 比如在Access中存储了全国所有大学的基本信息如下： 现在我们得到了一批大学名单如
vb代码让cmd执行命令_vb，关于shell调用cmd执行命令？
weixin_39716264的博客
12-18 2010
展开全部VB中Shell执行CMD命令32313133353236313431303231363533e58685e5aeb931333337626232使用如下代码Shell"cmd.exe/c你要执行的命令"其中要执行的命令中需要注意空格问题 如果一个参数中有空格就需要使用双引号引起来，双引号在VB字符串中使用两个双引号("")表示。例如：Shell"cmd.exe/ccopy"...
access-vba.rar_ACCess VBA_VBa_access_access vba
09-22
在Access中，你可以通过VBA创建宏、模块、类模块和用户窗体，以实现更复杂的操作和交互。 标题中的"access-vba.rar_ACCess VBA_VBa_access_access vba"暗示我们将专注于Access与VBA的结合使用，特别是与清理表记录...
vba-vbs-access-python-microstation学习体会
最新发布
10-19
vba-vbs-access-python-microstation学习体会 标题“vba-vbs-access-python-microstation学习体会”所描述的是作者对VBA、VBS、Access、Python和Microstation等多种编程语言和工具的学习体会和经验总结。下面我们将...
获取Oracle、SqlServer、Access中表名、字段和主键(转)
weixin_33729196的博客
06-29 141
一、oracle 1、获取当前oracle数据库中的所有表 select table_name from user_tables 2、查询某个表中的字段名称、类型、精度、长度、是否为空    select COLUMN_NAME,DATA_TYPE,DATA_PRECISION,DATA_SCALE,NULLABLE     from user_tab_columns     ...
【MySQL + VBA】Access根据combobox和文本框取值，更新列表框
Allan_lam的博客
07-11 994
MS Access, MySQL, Ado
access vba表字段_用VBA如何获取access数据库中字段的数据类型？
weixin_39639686的博客
12-22 1211
展开全部1、打开相应的access数据库。2、在左边的对象栏里单击模块，观察右边的窗口e69da5e6ba9062616964757a686964616f31333337626231，如果里面有模块，可以双击打开。如果没有新建一个模块，然后双击打开。3、粘贴以下代码并运行、观察立即窗口。PrivateSubaaaa()DimTableNameAsString,FieldNameAs...
excelVBA登录界面
03-01
excel，vba登录界面，挺好的
access窗体登录案例
07-16
access窗体案例，登录窗体的完善，权限控制
超简单access登录界面代码示例下载
06-24
超简单access登录界面代码示例下载，登陆界面窗体代码，这个代码我找了很久，终于找到一个最简单的，做出实体来了，供大家分享，不用再那么痛苦去找了
vc MFC 做的用户登录界面 访问access数据库的实例
12-23
根据查询数据库中的结果来决定用户能否登录 ，有该用户则可以登录 没有则不行。
一个简单易用的登录窗体
03-12
我的一段登陆按钮代码，用户表里有三个用户名，在登陆时只有第一个用户名有效，其他几个都是用户名或密码错误，不知什么原因，请高手指点，代码如下，谢谢！ Option Compare Database Dim conn As ADODB.Connection Dim rs As ADODB.Recordset Private Sub cmd_登陆_Click() Set conn = CurrentProject.Connection Set rs = New ADODB.Recordset rs.Open "用户表 ", conn Dim username As String Dim userpass As String txt_用户名.SetFocus username = txt_用户名.Text If IsNull(username) Or IsNull(txt_密码.Value) Then MsgBox "用户名或密码不能为空,请重新输入!", vbOKOnly + vbInformation, "错误信息" Else If username rs!用户名 Then MsgBox "用户名或密码不正确,请重新输入", vbOKOnly + vbInformation, "错误信息" txt_用户名.SetFocus txt_用户名.Text = "" txt_密码.SetFocus txt_密码.Value = "" txt_用户名.SetFocus Else rs.Close rs.Open "用户登录记录表", conn, adOpenDynamic, adLockOptimistic rs.AddNew rs!用户名 = username rs!登录时间 = Now() rs!退出时间 = CDate(0) rs.Update rs.Close DoCmd.Close DoCmd.OpenForm "库存信息窗体" End If End If End Sub Private Sub Form_Load() txt_用户名.SetFocus txt_用户名.Text = "" txt_密码.SetFocus txt_密码.Text = "" txt_用户名.SetFocus End Sub
sql查询所有商品的信息_Access/VBA/Excel之Access模糊查询
weixin_39907850的博客
12-09 1154
Part 1：目标商品清单根据商品ID检索需要的商品通过模糊检索实现，有点百度的味道，只知道部分信息，来查询逻辑过程连接数据库根据需求确定SQL语句执行SQL语句，得到recordset将recordset写入工作表(字段名+所有记录 即 列名+每一行)断开与数据库的连接检索商品ID首字母为m的商品Part 2：代码Sub test() Dim cnn As New ADODB.Connecti...
修改表名_Access/VBA/Excel-Access记录修改-05
weixin_33514140的博客
01-13 573
Part 1：目标前文中，我们已经获取了一个工作表(学生信息表)和4个字段(ID，姓名，学号，性别)，并输入了两行记录今天在原有字段的基础上增加籍贯，语文成绩两个新的字段并对原张三的记录做一些修改：修改学号信息，增加籍贯及语文成绩信息原记录：张三，11，男修改后：张三，1，男，广东省，85结果如下Part 2：代码Sub test() Dim cnn As New ADODB.Connection...
Access/VBA/Excel-16- 连接带密码的数据库
Data_Python_VBA
01-23 3570
微信公众号原文 系统：Windows 7 软件：Excel 2010 / Access 2010 这个系列开展一个新的篇章，重点关注Access数据库 主体框架：以Excel作为操作界面，Access作为数据库 今天讲讲：如何对数据库进行加密及操作该数据库 涉及知识：ADO Part 1：目标 对一个已有数据库进行加密 向该数据库中的信息表写入信息：
Microsoft Access VBA
Nishkata的博客
03-07 619
文章目录模块子过程/函数过程类模块标准模块控件操作窗体文本框VBA与宏语法常量数据类型错误 模块 子过程/函数过程 子过程: 关键字 sub 模块解决大问题,大问题分解为小问题由子过程解决 无返回值 Sub 过程名(参数) 语句 End Sub 函数过程: 关键字 function 通用性 有返回值 Function 函数名(参数) 语句 函数名=返回值 '注释:(等价于Python: ...
VBA-VBS-Access-Python-Microstation在地理信息应用中的实践
该资源是一篇关于VBA、VBScript、Access、Python和MicroStation的学习心得，主要由大庆油田设计院单文冬分享。文章详细介绍了在编程和数据处理过程中的一些实用技巧和方法。 1. **立即窗口测试代码**： - 在VBA...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值