ACCESS常用VBA命令

454次阅读
没有评论

共计 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 If

End Sub

获得焦点事件代码:Private Sub 名称_GotFocus()

Me![名称].Requery

End 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

正文完
 0
水东柳
版权声明:本站原创文章,由 水东柳 2019-01-29发表,共计3305字。
转载说明:除特殊说明外本站文章皆由CC-4.0协议发布,转载请注明出处。
评论(没有评论)