四、 修改窗体  frmBxmx_child_Edit

1、仿照新增窗体，调整布局，格式，页眉拷贝控件，添加5个文本框

2、  标签：报销日期 报销类别 员工姓名 报销金额 报销摘要

3、文本框名称（其他-名称）bxrq  lbId ygId  bxje  bxzy

4、控件来源（新增可不设，修改必须设）bxrq,lbId,ygId,bxje,bxzy

5、界面美化

6、报销类别 员工姓名修改为组合框，行来源和其他属性同新增

7、修改窗体属性

     标题：报销明细修改；    滚动条：两者均无；记录选定器：否；

    导航按钮：否； 分隔线：否； 自动调整：否； 自动居中：是；

    边框样式：对话框边框； 控制框：否（新增窗体不需要修改这一属性）；

    最大化最小化按钮：无； 关闭按钮：否。

    允许添加：否

     弹出方式：是； 模式：是。

8、frmBxmx_child 报销编号文本框获得焦点事件代码：

On Error GoTo Err_报销编号_GotFocus:
selectstr = Me.报销编号
Forms!usysfrmMain!labFind.Tag = 1
Forms!usysfrmMain!btnEdit.Tag = 999
Exit_报销编号_GotFocus:
Exit Sub
Err_报销编号_GotFocus:
Resume Exit_报销编号_GotFocus

     窗体的成为当前 代码：=selectrecord()

9、 frmBxmx_child_Edit 加载代码：

     Me.RecordSource = "Select * FROM tblBxmx Where mxId = '" & selectstr & "'"

  

     Private Sub ToolbarFrm_ButtonClick(ByVal Button As Object)

 If IsNull(Me.bxrq) Then
MsgBox "请输入报销日期!", vbCritical, "提示："
Me.bxrq.SetFocus
Exit Sub
End If

If IsNull(Me.lbId) Then
MsgBox "请输入报销类别!", vbCritical, "提示："
Me.lbId.SetFocus
Exit Sub
End If

If IsNull(Me.ygId) Then
MsgBox "请输入员工姓名!", vbCritical, "提示："
Me.ygId.SetFocus
Exit Sub
End If

If IsNull(Me.bxje) Then
MsgBox "请输入报销金额!", vbCritical, "提示："
Me.bxje.SetFocus
Exit Sub
End If

Me.Refresh
DoCmd.Echo False
Forms!usysfrmMain!frmChild.SourceObject = "frmBxmx_child"
DoCmd.Echo True
'触发子窗体计时器事件
Forms!usysfrmMain!frmChild.Form.TimerInterval = 300
DoCmd.Close acForm, "frmBxmx_child_Edit"
End Sub

   10、导航 权限 测试

 

上一课