ACCESS-VBA编程 第一章 控件2

控件边框线条
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
5
access 与 VBA
Set ctl = Screen.ActiveControl
MsgBox ctl.Name