随笔分类 -  access学习笔记

access学习笔记
如何设置VBA代码的密码?如何取消VBA代码的密码?
摘要：经常有网友问，用Access把软件开发好了，怎么样设置VBA代码的密码？以保护自己的代码不被同事修改。这里简单整理了一下。设置VBA代码的密码及取消VBA代码的密码步骤如下:1.打开任意一个窗体，进入设计视图，按工具栏“查看代码”按钮，如下图:2.进入代码区再点工具栏“工具”按钮→“属性”，如下图: 阅读全文
posted @ 2019-04-27 08:38 黑旗君
access窗口标签居中
摘要：Private Sub Form_Resize() On Error Resume Next Me.Width = Me.InsideWidth Me.Section(acDetail).Height = Me.InsideHeight Me.Label_u.Move (Me.InsideWidth 阅读全文
posted @ 2018-05-05 21:11 黑旗君
access treeview读取数据表成树并与子窗体联动
摘要：Private Sub Form_Load()Dim i As IntegerDim rst As DAO.RecordsetSet rst = CurrentDb.OpenRecordset("SELECT * FROM menu;") '以要链接的表建立记录集If rst.RecordCount 阅读全文
posted @ 2018-05-04 00:07 黑旗君
完整的treeview菜单实例
摘要：以下是我用treeview控件按部门和员工显示设备领用情况代码. Option Compare Database Dim rec As New ADODB.Recordset Dim recPlant As New ADODB.Recordset Dim nodindex As Node Dim k 阅读全文
posted @ 2018-05-02 23:48 黑旗君
treeview调用数据库成树
摘要：目的：将数据库中的数据与树控件绑定背景：我们想在树控件中显示销售客户的层级列表，这个销售客户的分层是这样的，先按“大区”，再按“省份”，最后到“客户”我们在数据库中建立了三个表，字段如下：大区表：大区ID，大区名称省份表：省份ID，省份名称，所属大区客户表：客户ID，客户名称，所属省份这三个表互相建 阅读全文
posted @ 2018-05-02 23:17 黑旗君
treeview树（利用数据表实现）带展开
摘要：Private Sub Form_Load()'引用C:\windows\system32\MSCOMCTL.OCX，否则提示出错。 Dim Rec As New ADODB.Recordset Dim stRecQL As String Dim Item As Integer Dim i As I 阅读全文
posted @ 2018-05-02 14:35 黑旗君
access按钮事件在子窗体打开窗体或报表
摘要：Private Sub Com1_Click()Me.win.SourceObject = "窗体1"End Sub Private Sub Com2_Click()Me.win.SourceObject = "窗体2"End Sub 阅读全文
posted @ 2018-05-01 23:37 黑旗君
access窗体主体居中
摘要：Private Sub Form_Load()DoCmd.Echo False Dim x, y As IntegerDoCmd.Maximizex = Me.WindowWidthy = Me.WindowHeightDoCmd.RestoreDoCmd.Echo TrueMove (x - Me 阅读全文
posted @ 2018-05-01 13:43 黑旗君
access窗体最大化到软件大小
摘要：Private Sub Form_Load()DoCmd.ShowToolbar "Ribbon", acToolbarNo '窗体最大化，占满软件最 End Sub 阅读全文
posted @ 2018-05-01 13:42 黑旗君
Access Treeview树节点代码二
摘要：Private Sub Form_Load() '引用C:\windows\system32\MSCOMCTL.OCX，否则提示出错。 Dim Rec As New ADODB.Recordset Dim stRecQL As String Dim Item As Integer Dim i As 阅读全文
posted @ 2018-05-01 12:01 黑旗君
Access Treeview树节点代码一
摘要：Private Sub TreeView0_Updated(Code As Integer)Dim ndeindex As NodeSet ndeindex = TreeView0.Nodes.Add(, , "a", "基础资料 ", "k1")Set ndeindex = TreeView0.N 阅读全文
posted @ 2018-05-01 10:36 黑旗君
access登录校验代码二
摘要：‘ 这一段是用来检查有没有输入用户名或密码的If IsNull(Trim(Me.username )) ThenDoCmd.BeepMsgBox ("请输入用户名称! ")ElseIf IsNull(Trim(Me.password )) ThenDoCmd.BeepMsgBox ("请输入密码! 阅读全文
posted @ 2018-05-01 10:34 黑旗君
access登录窗口校验代码一
摘要：Private Sub login_Click()If IsNull(Me.username) ThenMsgBox "请输入用户名！", vbExclamationElseIf IsNull(Me.password) ThenMsgBox "请输入密码！", vbExclamationElseIf 阅读全文
posted @ 2018-05-01 10:15 黑旗君