首页 > 编程札记 > javascript

ACCESS-VBA编程(1)

阅读：评论：0

2024年9月13日发(作者：)

ACCESS-VBA编程(1)

ACCESS－VBA编程（1）

program 2007-07-20 10:28:30 阅读49 评论0 字号：大中小订

阅

在VB中对窗体控件的引用

键入包含控件的窗体或报表的标识符，后面紧接 ! 运算符和控件的

名称。例如，下列标识符将引用“订单”窗体上“订单ID”控件值：

Forms![订单]![订单ID]

引用子窗体或子报表上的控件，不必使用“窗体”或“报表”属

性为窗体或报表指定完整的标识符。例如，可以使用下列标识符来引

用“订单”子窗体上的“数量”控件：

Forms![订单]![订单子窗体]![数量]

判断窗体或报表中控件的数目，然后将该数目赋给一个变量。

Dim intFormControls As Integer

Dim intReportControls As Integer

intFormControls = Forms!

intReportControls = Reports!

设置控件可见性

Dim i, ii As Integer

For ii = 3 To 10

(ii).Visible = True

For i = 11 To 22

(i).Visible = False

按特殊名在VBA中设置控件的可见性：

For i = 27 To 47

If (i).Name Like "A*" Then

(i).Visible = False

End If

指定一个控件能否接受焦点

Enabled属性：

me.控件.Enabled = true'能

=false'不能

指定一个控件能否被编辑：

locked

如：

me.控件.Locked = true

me.控件.Locked = false

设置控件标题显示的文字

Me.控件.Caption = "显示窗体"

设置标签颜色：

olor =200

获得焦点及失去焦点时字段变更颜色。

如果你的控件是文本框，名称为“txt字段”，写如下代码：

Private Sub txt字段_GotFocus()

字段.BackColor = 12632256

End Sub

当中“12632256”是灰色，你可以自己选择希望的颜色，如果想

在失去焦点时改为原来的颜色，写如下代码：

Private Sub txt字段_LostFocus()

字段.BackColor = 16777215

End Sub

使标签闪烁以引人注意

设置窗体的TimerInterval 值为1000 (1秒).

forms OnTimer 加入代码:

Sub Form_Timer()

e = Not e

End_Sub

设置标签字体颜色：

lor =

设置文本框颜色：

lor = 300

设置文本框字体颜色：

ntColor = 500

标签等左边距离：

= 2200

定位控件

Me.控件.Top = 8290

Me. 控件.Left = 100

标签等字体粗细：

ight = 20000

控件边框颜色：

Color = 0

控件边框线条

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 l

For Each ctl In ls

& lType

If lType = acTextBox Then

e = 2

End If

End Sub

上述代码控制文本框，你还可以控制其他的，只要copy进窗体就

可以了

列表框的值的引用

如果是单选的列表框，用 me.[列表框名] 来引用；如果要引用不

是结合型列的值，可以用 me.[列表框名].column(n) （第一列n=0，

第二列n=1…）

引用多列组合框或列表框中特定的列或列与行的组合

用 0 引用第一列，用 1 引用第二列，依此类推。用 0 引用第一行，

用 1 引用第二行，依此类推。例如在含有一列客户 ID

和一列客户名称的列表框中，可以使用如下方式引用第二列、第

五行的客户名称：

Forms!Contacts!(1, 4)

可以使用 Column 属性将组合框或列表框的内容指定给另一控件，

如文本框。例如，若要将文本框的 ControlSource

属性设为列表框第二列中的值，可以使用以下表达式：

=Forms!Customers!(1)

如果引用了组合框或列表框中的列，但用户未做选择，则

Column 属性设置将为 Null。可以使用 IsNull 函数来确定是否进行了

选择，示例如下：

If IsNull(Forms!Customers!Country)

Then MsgBox "No selection."

End If

显示获得焦点的控件的 Name：

ctl As Control

Set ctl = Control

MsgBox

窗体：

指定当窗体上的命令按钮保持按下状态时，是否重复执行事件过

程或宏

使用 AutoRepeat 属性可以指定当窗体上的命令按钮保持按下状

态时，是否重复执行事件过程或宏

True 、False

'允许添加

dditions= True

'记录不锁定

Locks = 1

是否自动居中

AutoCenter= True,False

是否自动调整

AutoResize = True,False

窗体边框样式

Style=1 中译:无

其它

1 无

2 细边框

3 可调边框

4 对话框边框

设置窗体、页眉、页脚颜色：

n(0).BackColor = 200

n(1).BackColor = 200

n(2).BackColor = 200

窗体标题

n="中国ACCESS软件网" 中译:窗体标题为"中国

ACCESS软件网"(不含引号)

关闭按钮

utton =True 中译允许关闭按钮

其它:true:允许 False:不允许

控制框

lBox =True 允许

其它:true:允许 False:不允许

默认视图

tView =0 为单一窗口

其它:0:单一窗口1:连续窗体2:数据表

允许分隔线

ngLines =True 中译允许分隔线

其它:true:允许 False:不允许

允许打印版式

英文:ForPrint =True 中译允许打印版式

其它:true:允许 False:不允许

无最大最小化按钮

英文:Buttons =0 中译无最大最小化按钮

其它:0:无 1:最大化 2:最小化 3:两者都有

允许浏览按钮

英文:tionButtons =True 中译允许浏览按钮

其它:true:允许 False:不允许

滚动条

Bars =0二者均无

其它:0:二者均无 1:只垂直 2:只水平3:二者都有

允许/不允许添加

dditions=True/False

允许/不允许删除

eletions=True/False

允许/不允许编辑

dits=True/False

指定是否允许打开绑定窗体进行数据输入

使用 DataEntry 属性可以指定是否允许打开绑定窗体进行数据输

入。DataEntry 属性不决定是否可以添加记录，只决定是否显示已有

的记录。Boolean

型，可读/写。

True 、False

允许/不允许筛选

ilters=True/False

Filter="筛选内容"筛选

应用与/否筛选

FilterOn=True/False

将 MyForm 窗体的 BackColor 属性，改成 ColorCode 参数指定

的色彩。

使用 QBColor 函数将 MyForm 窗体的 BackColor 属性，改成

ColorCode 参数指定的色彩。QBColor 可接受 0 到 15

的整型值。

Sub ChangeBackColor (ColorCode As Integer, MyForm As

Form) lor = QBColor(ColorCode)End Sub窗体

真正居中显示

如下代码可以做到真正居中显示

Private Sub Form_Load()

False

Dim x, y As Integer

x = Width

y = Height

True

Move (x - Width) / 2, (y - Height) / 2

End Sub

隐藏窗体[学生名册]数据表视图中的性别字段

Table!学生名册!性别.ColumnHidden = -1

显示获得焦点窗体的 Name 属性设置：

使用 ActiveForm 属性（和 Screen 对象一起）可以标识或引用获

得焦点的窗体。

Dim dqhdct As Form

Set dqhdct = Form

MsgBox

判断窗体是否打开的方法

Function

acForm)

IsLoaded(strName As String, Optional

intObjectType As Integer =

IsLoaded

End Function

= (SysCmd(acSysCmdGetObjectState,

intObjectType, strName) <> 0)

使用 IsLoaded 属性可以确定当前是否加载了 AccessObject。

Boolean 型，只读。

以下是一个示例：

If ms("frmMain").IsLoaded = True Then

Forms!e = False

End If

窗体中组合框不在列表中示例

不在列表中事件代码：

Private Sub 名称_NotInList(NewData As String, Response As

Integer)

Response = acDataErrContinue

If MsgBox("您输入的名称不在列表中，在列表中添加新记录吗？

", 68, "银河酒业") = 6 Then

Me![名称] = Null

ntrol "单价"

rm "酒名列表", , , , 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

SWP_NOMOVE 注释：或下面

SetWindowPos

SWP_NOSIZE

ype = xlBarClustered

移动无边框窗体例子

模块：

Declare Function SendMessage Lib "user32" Alias

"SendMessageA" (ByVal hwnd As

Long, ByVal wMsg As Long, ByVal wParam As Long, lParam

As Any) As Long

Declare Function ReleaseCapture Lib "user32" () As Long

Public Const WM_NCLBUTTONDOWN = &HA1

Public Const HTCAPTION = 2

,WND_TOPMOST,0,0,0,0,

应用：

Private Sub Form_Close()

mand acCmdAppMaximize

End Sub

Private Sub Form_Load()

mand acCmdAppMinimize

End Sub

Private Sub XPForm_MouseDown(Button As Integer, Shift As

Integer, X As Single, Y

As Single)

If Button = 1 Then

ReleaseCapture

SendMessage

HTCAPTION, 0&

End If

End Sub

Private Sub 命令20_Click()

End Sub

日期、时间函数

如何将文本型：2003.08.04 转换为日期型：2003-08-04

cdate(replace("2003.08.04",".","-"))

显示当前日期在该年中所处的星期号

=Format(Now(), "ww")

ww 为 1 到 53。

显示日期字段值的四位年份值。

, WM_NCLBUTTONDOWN,

=DatePart（"yyyy", [订购日期]）

显示日期字段值前 10 天的日期值。

=DateAdd（"y", -10, [应付日期]）

显示日期字段值前一个月的日期值。

=DateAdd("m",-1,Date())

显示日期1和日期2之间相差的天数。

=DateDiff（"d", [订购日期], [发货日期]）

从今天算起到三个月后的日期之间的记录。

Betweeb date() and adddate(3,date())

根据出生日期计算年龄（周岁）

=IIf(Month(Date())-Month([出生年月日])>-1,Year(Date())-

Year([出生年月日]),Year(Date())-Year([出生年月日])-1)

自定义日期/时间格式 (Format 函数)

(:) 时间分隔符。在一些区域，可能用其他符号来当时间分隔符。

格式化时间值时，时间分隔符可以分隔时、分、秒。时间分隔符的真

正字符在格式输出时取决于系统的设置。

(/) 日期分隔符。在一些区域，可能用其他符号来当日期分隔符。

格式化日期数值时，日期分隔符可以分隔年、月、日。日期分隔符的

真正字符在格式输出时取决于系统设置。

C 以 ddddd 来显示日期并且以 ttttt 来显示时间。如果想显示的

数值无小数部分，则只显示日期部分，如果想显示的数值无整数部分，

则只显示时间部分。

以没有前导零的数字来显示日 (1 – 31)。

以有前导零的数字来显示日 (01 – 31)。

ddd

以简写来表示日 (Sun –Sat)。

dddd

以全称来表示日 (Sunday –Saturday)。

ddddd

以完整日期表示法显示（包括年、月、日），日期的显示要依系

统的短日期格式设置而定。缺省的短日期格式为 m/d/yy。

dddddd

以完整日期表示法显示日期系列数（包括年、月、日），日期的

显示要依系统识别的长日期格式而定。缺省的长日期格式为 mmmm

dd, yyyy。

aaaa

与dddd 一样，它只是该字符串的本地化版本。

将一周中的日期以数值表示（1 表星期日~ 7表星期六）。

将一年中的星期以数值表示 (1 – 54)。

以没有前导零的数字来显示月 (1 – 12)。如果 m 是直接跟在 h 或

hh 之后，那么显示的将是分而不是月。

以有前导零的数字来显示月 (01 – 12)。如果m是直接跟在h或

hh之后，那么显示的将是分而不是月。

mmm

以简写来表示月 (Jan –Dec)。

mmmm

以全称来表示月 (January –December)。

oooo

与mmmm一样，它只是该字符串的本地化版本。

将一年中的季以数值表示 (1 – 4)。

将一年中的日以数值表示 (1 – 366)。

以两位数来表示年 (00 – 99)。

yyyy

以四位数来表示年 (00 – 99)。

以没有前导零的数字来显示小时 (0 – 23)。

以有前导零的数字来显示小时 (00– 23)。

以没有前导零的数字来显示分 (0 – 59)。

以有前导零的数字来显示分 (00 – 59)。

以没有前导零的数字来显示秒 (0 – 59)。

以有前导零的数字来显示秒 (00 – 59)。

t t t t t

以完整时间表示法显示（包括时、分、秒），用系统识别的时间

格式定义的时间分隔符进行格式化。如果选择有前导零并且时间是在

10:00 A.M. 或

P.M.之前，那么将显示有前导零的时间。缺省的时间格式为

h:mm:ss。

AM/PM

在中午前以 12 小时配合大写 AM 符号来使用；在中午和 11:59

P.M.间以 12 小时配合大写 PM 来使用。

Am/pm

在中午前以 12 小时配合小写 am 符号来使用；在中午和 11:59

P.M.间以 12 小时配合小写 pm 来使用。

A/P

在中午前以 12 小时配合大写A符号来使用；在中午和 11:59 P.M.

间以12 小时配合大写P来使用。

a/p

在中午前以 12 小时配合小写a符号来使用；在中午和 11:59 P.M.

间以 12 小时配合小写p来使用。

AMPM

在中午前以 12 小时配合系统设置的 AM字符串文字来使用；在中

午和 11:59 P.M. 间以 12 小时配合系统设置的 PM 字符串文字来使用。

AMPM

可以是大写或小写，但必须和您的系统设置相配。其缺省格式为

AM/PM。

日期函数示例

当天日期：=Date()

当日：=Day(date)

当月：=Month(date())

当年：=Year(date())

当季：=DatePart("q",Date())

把日期大写

Function Date2Chinese(iDate)

Dim num(10)

Dim iYear

Dim iMonth

Dim iDay

num(0) = "〇"

num(1) = "一"

num(2) = "二"

num(3) = "三"

num(4) = "四"

num(5) = "五"

num(6) = "六"

num(7) = "七"

num(8) = "八"

num(9) = "九"

iYear = Year(iDate)

iMonth = Month(iDate)

iDay = Day(iDate)

Date2Chinese = num(iYear 1000) + _

num((iYear 100) Mod 10) + num((iYear _

10) Mod 10) + num(iYear Mod _

10) + "年"

If iMonth >= 10 Then

If iMonth = 10 Then