发布时间 : 星期四 文章实用Access代码程序更新完毕开始阅读89daa490f78a6529647d53b8
+ Space(1) + Trim(检测项目列表.ItemData(varItm)) Next varItm
' 将第一个Trim函数改为Nz函数，则空格字段也可输入内容 End If End Sub
可以加入错误处理程序：
Private Sub List106_DblClick(Cancel As Integer) On Error GoTo Err_List106_Click Dim varItm As Variant
Screen.PreviousControl.SetFocus
For Each varItm In List106.ItemsSelected
Me.ActiveControl.Value = Nz(Trim(Me.ActiveControl.Value)) + Trim(List106.ItemData(varItm)) Next varItm Exit_List106_Click: Exit Sub
Err_List106_Click:
MsgBox \输入的内容类型不匹配\End Sub
在标题中显示记录项（也可以在窗体页脚中显示）
Private Sub Form_Current()
Me.RecordsetClone.findfirst \编号]\
Me.Caption = \目前是第\条记录，总共有\Me.RecordsetClone.RecordCount & \条记录\End Sub
怎样做到填完出生日期,年龄自动计算出,
ID ID 表的自动编号连到窗体上 出生日期 出生日期 表的时间日期格式连到窗体上 年龄 年龄 表的数字格式 新建一过程：'这个函数是由 Tim Walters写的'由BINBOW更改并注释 Function Age(Bdate As Date, DateToday As Date) As Integer
' 返回两个日期的相隔年数'此函数还可以用来计算工龄和年龄 ' 请将输入的日期小于今天
If Month(DateToday) < Month(Bdate) Or (Month(DateToday) = _ Month(Bdate) And Day(DateToday) < Day(Bdate)) Then Age = Year(DateToday) - Year(Bdate) - 1 Else
Age = Year(DateToday) - Year(Bdate)
End If End Function 窗体事件如下：
Private Sub 出生日期_AfterUpdate() 年龄 = Age(出生日期, Date) End Sub
最大化窗体1
1. 建一宏：宏名为 max 操作：Maximize 2. 窗体设计视图中属性：打开中输入max 3. ok
最大化窗体2
Private Sub Form_Open(Cancel As Integer) DoCmd.Maximize End Sub
在开启一窗体时需判断另一窗体是否在活动中
可以写这样的函数
Function IsLoaded(FormName)
IsLoaded = (SysCmd(SYSCMD_GETOBJECTSTATE, A_FORM, FormName) 〈> 0) End Function
然后在窗体的代码中就可以写IF IsLoaded(\窗体名\）then ....
三次输入不正确退出系统
在窗体上建确定按纽Cmd1一个文本框Text1，可见性为 否 格式为 常规数字 默认值 0
Private Sub Cmd1_Click() '口令记数
txt记数 = txt记数 + 1 '如果三次输入错误 If txt记数 = 3 Then '退出系统 DoCmd.Quit End If Beep
MsgBox \口令错误，请重新输入！\警告：\ Txt用户口令.SetFocus End If End sub
事件(属性) AfterDelConfirm 发生时机 使用者在确认删除之对话框内完成操作时，不论是否真的删除 AfterInsert AfterUpdate 新增记录后 更新记录后 窗体 窗体及在窗体上的结合对象窗体 使用位置 框、复选框、组合方块方块、组、文字方块、切换按钮 BeforeUpdate BeforeDelConfirm 更新记录前 同上 清单方块、选项按钮、选项群删除记录时，ACCESS显示对窗体 话框确认是否删除前(在Delete事件前) BeforeInsert OnActivate 输入新记录的第一字符时 窗体或报表切换为作用中窗口时 窗体 窗体﹑报表 OnApplyFilter 使用筛选或移除筛选时(除窗体筛选) 窗体 OnChange 更改记录内容时 在窗体的组合方块方块、文字方块 OnClick 按下左键时 窗体、窗体区段﹑在窗体的结合对象框、图表、复选框、组合方块方块、命令按钮、卷标清单方块、选项按钮、选项群钮、非结合对象框 OnDblClick OnClose 按两下左键时 关闭窗体或报表并由屏幕消失后 同上 窗体﹑报表 组、矩形、文字方块、切换按事件(属性) OnCurrent 发生时机 切换至另一笔记录或开启窗体时 窗体 使用位置 OnDeactivate 当窗体或报表由作用中窗口切换至背景时 窗体﹑报表 OnError OnDirty OnEnter 发生执行中错误时 在窗体更改记录时 由同窗体的另一控件获得焦点前(在GotFocus前) 窗体﹑报表 窗体 在窗体的结合对象框、图表、复选框、组合方块方块、命令按钮、清单方块、选项按钮、切换按钮、非结合对象框 OnExit 焦点移至同窗体的另一控件(在LostFocus前) OnDelete OnFilter OnFormat OnGotFocus 删除记录前 使用窗体筛选时 为区段内容设定打印格式前 窗体或控件获得焦点 窗体 窗体 报表区段 同上 选项群组、子窗体、文字方块窗体及在窗体的结合对象框、复选框、组合方块方块、命令按钮、清单方块、选项按钮、对象框 OnLostFocus OnKeyDown OnKeyPress 窗体或控件失去焦点 按下某按键时 同上 同上 文字方块、切换按钮、非结合按下可转换为ANSI码的按键同上 时 OnKeyUp OnLoad 放开某按键时 开启窗体及显示第一笔记录后 同上 窗体 OnOpen 窗体或报表开启后，第一笔记窗体﹑报表