共计 3305 个字符，预计需要花费 9 分钟才能阅读完成。
提醒：本文最后更新于 2019-05-12 20:08，文中所关联的信息可能已发生改变，请知悉！
如何让窗体的标题条闪烁以引起用户注意？
在窗体中放一个 Timer 控件 Timer1, 设置其 Inteval=200
*API 函数声明
Private Declare Function FlashWindow Lib“user32”(ByVal hwnd As Long, ByVal bInvert As Long) As Long
注释：在窗体中写下如下代码:
Private Sub Timer1_Timer()
FlashWindow Me.hwnd, True
End Sub窗体上如何使用 windows 的媒体播放器？
插入 Microsoft Media Player 控件
插入控件后，在控件中属性中的几个主要选项：
FileName: 要播放的文件名，包括路径
AutoStrat: 是否自动播放
AutoRevind: 播放完后是否自动回到起点
指定当窗体上的命令按钮保持按下状态时，是否重复执行事件过程或宏？
使用 AutoRepeat 属性可以指定当窗体上的命令按钮保持按下状态时，是否重复执行事件过程或宏
True、False
以隐藏方式打开一个窗体
me.visible=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: 数据表
vba 如何獲取 / 設置在數據表方式下個列的寬度场？
一、Me.RowHeight = 800
二、Me. 子窗体名.Form.Controls(“ 列名 ”).ColumnWidth = 400
允许分隔线
me.DividingLines =True 中译 允许分隔线
其它:true: 允许 False: 不允许
允许打印版式
英文:me.LayoutForPrint =True 中译 允许打印版式
其它:true: 允许 False: 不允许
无最大最小化按钮
英文:me.MinMaxButtons =0 中译 无最大最小化按钮
其它:0: 无 1: 最大化 2: 最小化 3: 两者都有
允许浏览按钮
英文:me.NavigationButtons =True 中译 允许浏览按钮
其它:true: 允许 False: 不允许
滚动条
me.ScrollBars = 0 二者均无
其它:0: 二者均无 1: 只垂直 2: 只水平 3: 二者都有
允许 / 不允许添加
me.AllowAdditions=True/False
允许 / 不允许删除
me.AllowDeletions=True/False
允许 / 不允许编辑
me.AllowEdits=True/False
指定是否允许打开绑定窗体进行数据输入
使用 DataEntry 属性可以指定是否允许打开绑定窗体进行数据输入。DataEntry 属性不决定是否可以添加记录，只决定是否显示已有的记录。Boolean 型，可读 / 写。
True、False
允许 / 不允许筛选
me.AllowFilters=True/False
Filter=” 筛选内容 ” 筛选
应用与 / 否筛选
FilterOn=True/False
将 MyForm 窗体的 BackColor 属性，改成 ColorCode 参数指定的色彩。
使用 QBColor 函数将 MyForm 窗体的 BackColor 属性，改成 ColorCode 参数指定的色彩。QBColor 可接受 0 到 15 的整型值。
Sub ChangeBackColor (ColorCode As Integer, MyForm As Form) MyForm.BackColor = QBColor(ColorCode)End Sub窗体真正居中显示？
如下代码可以做到真正居中显示
Private Sub Form_Load()
DoCmd.Echo False
Dim x, y As Integer
DoCmd.Maximize
x = Me.WindowWidth
y = Me.WindowHeight
DoCmd.Restore
DoCmd.Echo True
Move (x – Me.WindowWidth) / 2, (y – Me.WindowHeight) / 2
End Sub
隐藏窗体 [学生名册] 数据表视图中的性别字段
Table! 学生名册! 性别.ColumnHidden = -1
显示获得焦点窗体的 Name 属性设置：
使用 ActiveForm 属性（和 Screen 对象一起）可以标识或引用获得焦点的窗体。
Dim dqhdct As Form
Set dqhdct = Screen.ActiveForm
MsgBox dqhdct.Name判断窗体是否打开的方法
Function IsLoaded(strName As String, Optional intObjectType As Integer =
acForm)
IsLoaded = (SysCmd(acSysCmdGetObjectState, intObjectType, strName) <> 0)
End Function使用 IsLoaded 属性可以确定当前是否加载了 AccessObject。Boolean 型，只读。
以下是一个示例：
If CurrentProject.AllForms(“frmMain”).IsLoaded = True Then
Forms!frmMain.Form.Visible = False
End If窗体中组合框不在列表中示例
Private Sub 名称_NotInList(NewData As String, Response As Integer) Response = acDataErrContinue If MsgBox(“您输入的名称不在列表中，在列表中添加新记录吗？”, 68,“银河酒业”) = 6 Then Me![名称] = Null DoCmd.GoToControl“单价”DoCmd.OpenForm“酒名列表”, , , , acAdd, acNormal Else Me![名称] = Null Me![名称].Dropdown End IfEnd Sub获得焦点事件代码：Private Sub 名称_GotFocus() Me![名称].RequeryEnd Sub
如何让窗体总在最前面？
*API 函数声明
Declare Function SetWindowPos Lib“user32”(ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
注释：常量声明
Private Const SWP_NOSIZE = &H1
Private Const SWP_NOMOVE = &H2
Private Const HWND_TOPMOST = -1
Private Const HWND_NOTOPMOST = -2
注释：在某个 form 里写：SetWindowPos me.hWnd,WND_TOPMOST,0,0,0,0, SWP_NOMOVE 注释：或下面
SetWindowPos me.hWnd,WND_TOPMOST,0,0,0,0, SWP_NOSIZE摘自 http://www.accessoft.com/article-show.asp?id=16997
