Private Sub Action_BeforeUpdate(Cancel As Integer)
If Action.Value = 1 Then
Me.Archive.Visible = True
Me.DateDestroyed.Visible = False
Me.DateMoved.Visible = False
Me.MovedTo.Visible = False
End If
If Action.Value = 2 Then
Me.Archive.Visible = False
Me.DateDestroyed.Visible = False
Me.DateMoved.Visible = True
Me.MovedTo.Visible = True
End If
If Action.Value = 3 Then
Me.Archive.Visible = False
Me.DateDestroyed.Visible = True
Me.DateMoved.Visible = False
Me.MovedTo.Visible = False
End If
End Sub
Private Sub EndDate_AfterUpdate()
Me.DestructionYear = Year(Me.EndDate) + ([Retain] + 1)
End Sub
Private Sub Form_Current()
If IsNull(Me.InspectionDate.Column(1)) Or Me.InspectionDate.Column(1) = vbNullString Then
Me.RecordHistory.Visible = False
Else
Me.RecordHistory.Visible = True
End If
Me.Officer = Me.IssuedTo.Column(1) & " " & Me.IssuedTo.Column(2) & " " & Me.IssuedTo.Column(3)
Me.Retain = Me.Item.Column(2)
Me.InspectionDate.Requery
If Action.Value = 1 Then
Me.Archive.Visible = True
Me.DateDestroyed.Visible = False
Me.DateMoved.Visible = False
Me.MovedTo.Visible = False
End If
If Action.Value = 2 Then
Me.Archive.Visible = False
Me.DateDestroyed.Visible = False
Me.DateMoved.Visible = True
Me.MovedTo.Visible = True
End If
If Action.Value = 3 Then
Me.Archive.Visible = False
Me.DateDestroyed.Visible = True
Me.DateMoved.Visible = False
Me.MovedTo.Visible = False
End If
End Sub
Private Sub Form_Open(Cancel As Integer)
DoCmd.GoToRecord , , acNewRec
Me.Item.SetFocus
End Sub
Private Sub IssuedTo_AfterUpdate()
Me.Officer = Me.IssuedTo.Column(1) & " " & Me.IssuedTo.Column(2)
End Sub
Private Sub Item_AfterUpdate()
Me.Retain = Me.Item.Column(2)
End Sub
Private Sub Previous_Click()
On Error GoTo Err_Previous_Click
DoCmd.GoToRecord , , acPrevious
Exit_Previous_Click:
Exit Sub
Err_Previous_Click:
MsgBox Err.Description
Resume Exit_Previous_Click
End Sub
Private Sub Next_Click()
On Error GoTo Err_Next_Click
DoCmd.GoToRecord , , acNext
Exit_Next_Click:
Exit Sub
Err_Next_Click:
MsgBox Err.Description
Resume Exit_Next_Click
End Sub
Private Sub Add_Click()
On Error GoTo Err_Add_Click
DoCmd.GoToRecord , , acNewRec
Exit_Add_Click:
Exit Sub
Err_Add_Click:
MsgBox Err.Description
Resume Exit_Add_Click
End Sub
Private Sub Close_Click()
On Error GoTo Err_Close_Click
DoCmd.Close
Exit_Close_Click:
Exit Sub
Err_Close_Click:
MsgBox Err.Description
Resume Exit_Close_Click
End Sub
'Private Sub Inspection_History_Click()
'On Error GoTo Err_Inspection_History_Click
'Dim stDocName As String
'Dim stLinkCriteria As String
'stDocName = "frmInspectionDate"
' stLinkCriteria = "[InspectionID]=" & Me![Inspection]
'DoCmd.OpenForm stDocName, , , stLinkCriteria
''Exit_Inspection_History_Click:
'Exit Sub
'Err_Inspection_History_Click:
' MsgBox Err.Description
' Resume Exit_Inspection_History_Click
'End Sub
Private Sub Inspections_Click()
On Error GoTo Err_Inspections_Click
Dim stDocName As String
stDocName = "qryInspectItem"
DoCmd.OpenQuery stDocName, acNormal, acEdit
Exit_Inspections_Click:
Exit Sub
Err_Inspections_Click:
MsgBox Err.Description
Resume Exit_Inspections_Click
End Sub
Private Sub RecordHistory_Click()
On Error GoTo Err_RecordHistory_Click
Dim stDocName As String
stDocName = "rptRecordInspectionHistory"
DoCmd.OpenReport stDocName, acPreview
Exit_RecordHistory_Click:
Exit Sub
Err_RecordHistory_Click:
MsgBox Err.Description
Resume Exit_RecordHistory_Click
End Sub