ACCESS 与 VBA
控件边框线条 BorderStyle 属性使用以下设置: 透明 0 (仅对于标签,图表和子报表而言是默认值)透明的 实线 1 (默认值)实线 虚线 2 虚线 短虚线 3 短虚线 点线 4 点线 稀疏点线 5 点距较宽的点线 点划线 6 虚线与点线组合的点划线 点点划线 7 虚线-点线-点线组合的点点划线 双实线 8 双实线 指定控件的边框宽度 使用 BorderWidth 属性可以指定控件的边框宽度 取值:0 或 1-6 指定控件是否透明 使 BackStyle 属性可以指定控件是否透明. True ,False 解除子窗体锁定 Me.进_子窗体.Locked = False '解除子窗体锁定 将窗体上所有控件的输入法关掉! 来源:不祥 Private Sub Form_Open(Cancel As Integer) Dim ctl As Access.Control For Each ctl In Me.Controls Debug.Print ctl.Name & ctl.ControlType If ctl.ControlType = acTextBox Then ctl.IMEMode = 2 End If Next End Sub 上述代码控制文本框,你还可以控制其他的,只要 copy 进窗体就可以了 列表框的值的引用 如果是单选的列表框,用 me.[列表框名] 来引用;如果要引用不是结合型列的值,可以用 me.[列表框 名].column(n) (第一列 n=0,第二列 n=1…) 引用多列组合框或列表框中特定的列或列与行的组合 用 0 引用第一列,用 1 引用第二列,依此类推.用 0 引用第一行,用 1 引用第二行,依此类推.例如 在含有一列客户 ID 和一列客户名称的列表框中,可以使用如下方式引用第二列,第五行的客户名称: Forms!Contacts!Customers.Column(1, 4) 可以使用 Column 属性将组合框或列表框的内容指定给另一控件,如文本框.例如,若要将文本框的 ControlSource 属性设为列表框第二列中的值,可以使用以下表达式: =Forms!Customers!CompanyName.Column(1) 如果引用了组合框或列表框中的列,但用户未做选择,则 Column 属性设置将为 Null.可以使用 IsNull 函数来确定是否进行了选择,示例如下: If IsNull(Forms!Customers!Country) Then MsgBox "No selection." End If 显示获得焦点的控件的 Name: ctl As Control 4
ACCESS 与 VBA
Set ctl = Screen.ActiveControl MsgBox ctl.Name
5
ACCESS 与 VBA
第2章
窗
体
指定当窗体上的命令按钮保持按下状态时,是否重复执行事件过程或宏 使用 AutoRepeat 属性可以指定当窗体上的命令按钮保持按下状态时,是否重复执行事件过程或宏 True ,False 允许添加 me.AllowAdditions= True 记录不锁定 me.RecordLocks = 1 是否自动居中 AutoCenter= True,False 是否自动调整 AutoResize = True,False 窗体边框样式 me.BorderStyle=1 中译:无 其它 1 无 2 细边框 3 可调边框 4 对话框边框 设置窗体,页眉,页脚颜色: Me.Section(0).BackColor = 200 Me.Section(1).BackColor = 200 Me.Section(2).BackColor = 200 窗体标题 me.Caption="中国 ACCESS 软件网" 中译:窗体标题为"中国 ACCESS 软件网"(不含引号) 关闭按钮 me.CloseButton =True 中译 允许关闭按钮 其它:true:允许 False:不允许 控制框 me.ControlBox =True 允许 其它:true:允许 False:不允许 默认视图 me.DefaultView =0 为单一窗口 其它:0:单一窗口 1:连续窗体 2:数据表 允许分隔线 me.DividingLines =True 中译 允许分隔线 其它:true:允许 False:不允许 允许打印版式 英文:me.LayoutForPrint =True 中译 允许打印版式 其它:true:允许 False:不允许 无最大最小化按钮 英文:me.MinMaxButtons =0 中译 无最大最小化按钮 其它:0:无 1:最大化 2:最小化 3:两者都有 6

上一页下一页