这是代码
Option Compare Database
Private Sub Form_Load()
Me.RecordSource = "SELECT * FROM tbl岗位 WHERE 职工编号 ='" & selectstr & "'"
g_CurrentSelectStrID = selectstr
End Sub
Private Sub ToolbarFrm_ButtonClick(ByVal Button As Object)
If IsNull(Me.单位名称) Then
MsgBox "请输入单位名称!", vbCritical, "提示:"
Me.单位名称.SetFocus
Exit Sub
End If
Me.Refresh
DoCmd.Echo False
Forms!usysfrmMain!frmChild.SourceObject = "frm_岗位_child"
DoCmd.Echo True
'触发子窗体计时器事件
Forms!usysfrmMain!frmChild.Form.TimerInterval = 300
DoCmd.Close acForm, "frm_岗位_child_Edit"
End Sub
Private Sub 培训时间止4_AfterUpdate()
If Not IsNull(Me.培训时间止4) Then
Me.到期时间4 = DateAdd("m", 36, Me.培训时间止4)
End If
End Sub
Private Sub 培训时间止4_Updated(Code As Integer)
Me.到期时间4 = DateAdd("m", 36, Me.培训时间止4)
End Sub
Private Sub 培训时间止5_AfterUpdate()
If Not IsNull(Me.培训时间止5) Then
Me.到期时间5 = DateAdd("m", 36, Me.培训时间止5)
End If
End Sub
Private Sub 培训时间止5_Updated(Code As Integer)
Me.到期时间5 = DateAdd("m", 36, Me.培训时间止5)
End Sub
Private Sub 培训时间止6_AfterUpdate()
If Not IsNull(Me.培训时间止6) Then
Me.到期时间6 = DateAdd("m", 36, Me.培训时间止6)
End If
End Sub
Private Sub 培训时间止6_Updated(Code As Integer)
Me.到期时间6 = DateAdd("m", 36, Me.培训时间止6)
End Sub
Private Sub 培训时间止7_AfterUpdate()
If Not IsNull(Me.培训时间止7) Then
Me.到期时间7 = DateAdd("m", 36, Me.培训时间止7)
End If
End Sub
Private Sub 培训时间止7_Updated(Code As Integer)
Me.到期时间7 = DateAdd("m", 36, Me.培训时间止7)
End Sub
Private Sub 年龄_GotFocus()
年龄 = Year(Date) - Year(Me.出生日期)
End Sub
Private Sub 单位编号_AfterUpdate()
Me.单位名称 = Me.单位编号.Column(1)
End Sub