accessvba如何嵌入到窗体中

1.

右击工具栏或菜单栏的空白区域在d出来的菜单中选择自定义

2.

在d出的自定义窗体中选择命令标签

3.

在类别框中选择“插入”,在命令框中选择“用户窗体”

4.

拖动“用户窗体”到工具栏中就可以添加用户窗体了

1、定义模块：

在Access软件VB编辑界面中，单击插入，如图

定义子过程的名字为 “baidu”，并编写一个简单的子程序，如图：

模块定义已经完成了。

2、调用模块：

语法 call 模块名称

还是用刚才的例子，则可以直接调用 “baidu”这个模块：

call baidu

3、补充知识，模块的本质：

模块含义是在某个流程流转过程中可以创建一个新的流程并执行，结束后可以再次返回父流程。

只能用VBA，宏不行：

Dim cnn As ADODB.Connection

Dim rs As ADODB.Recordset

Set cnn = CurrentProject.Connection

Set rs = New ADODB.Recordset

rs.Open "Select * from 用户表 where 用户名='" + Trim(Me.Text) + "' and 密码='"+Trim(Me.Text2)+"'", cnn    '//不要画蛇添足去写Text1.Text,ACCESS会去乱找属性

If Not rs.EOF Then

   MsgBox("登陆失败！")

Else

   '这里做登陆的事情   

End If

基本上用ACCESS去做登陆验证就是掩耳盗铃，自己忽悠自己，你加密再严实我也能把他轻松破解掉。真要加密，我给你出个主意，用SQL Server记录关键表数据，ACCESS做客户端远程连接做网络连接表，ODBC功能能做到，在从数据源选择连接表时不点右下脚保存密码。这样每次去 *** 作都要验证SQL Server Guest规则用户名和密码，这个帐号是绝对安全的

---