Private Sub Form_Current()
Me.DateCompleted = Now()
Me.Ward.Requery
Hospital_AfterUpdate
End Sub
Private Sub Form_Load()
If IsNull(Hospital) Then
Me.Hospital = Me.Hospital.ItemData(0)
Call Hospital_AfterUpdate
End If
End Sub
Private Sub Command861_Click()
On Error GoTo Err_Command861_Click
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Exit_Command861_Click:
Exit Sub
Err_Command861_Click:
MsgBox Err.Description
Resume Exit_Command861_Click
End Sub
Private Sub Command862_Click()
On Error GoTo Err_Command862_Click
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Exit_Command862_Click:
Exit Sub
Err_Command862_Click:
MsgBox Err.Description
Resume Exit_Command862_Click
End Sub
Private Sub Command863_Click()
On Error GoTo Err_Command863_Click
DoCmd.GoToRecord , , acPrevious
Exit_Command863_Click:
Exit Sub
Err_Command863_Click:
MsgBox Err.Description
Resume Exit_Command863_Click
End Sub
Private Sub Command864_Click()
On Error GoTo Err_Command864_Click
DoCmd.GoToRecord , , acNext
Exit_Command864_Click:
Exit Sub
Err_Command864_Click:
MsgBox Err.Description
Resume Exit_Command864_Click
End Sub
Private Sub Command865_Click()
On Error GoTo Err_Command865_Click
Screen.PreviousControl.SetFocus
DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70
Exit_Command865_Click:
Exit Sub
Err_Command865_Click:
MsgBox Err.Description
Resume Exit_Command865_Click
End Sub
Private Sub Command866_Click()
On Error GoTo Err_Command866_Click
Screen.PreviousControl.SetFocus
DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70
Exit_Command866_Click:
Exit Sub
Err_Command866_Click:
MsgBox Err.Description
Resume Exit_Command866_Click
End Sub
Private Sub Command867_Click()
On Error GoTo Err_Command867_Click
Screen.PreviousControl.SetFocus
DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70
Exit_Command867_Click:
Exit Sub
Err_Command867_Click:
MsgBox Err.Description
Resume Exit_Command867_Click
End Sub
Private Sub Command868_Click()
On Error GoTo Err_Command868_Click
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Exit_Command868_Click:
Exit Sub
Err_Command868_Click:
MsgBox Err.Description
Resume Exit_Command868_Click
End Sub
Private Sub Command908_Click()
On Error GoTo Err_Command908_Click
DoCmd.close
Exit_Command908_Click:
Exit Sub
Err_Command908_Click:
MsgBox Err.Description
Resume Exit_Command908_Click
End Sub
Private Sub Hospital_AfterUpdate()
Me.Ward = Null
Me.Ward.Requery
Me.Ward = Me.Ward.ItemData(0)
End Sub
Private Sub Command938_Click()
On Error GoTo Err_Command938_Click
Dim stDocName As String
stDocName = "FindAdmission"
DoCmd.OpenQuery stDocName, acNormal, acEdit
Exit_Command938_Click:
Exit Sub
Err_Command938_Click:
MsgBox Err.Description
Resume Exit_Command938_Click
End Sub
Private Sub Command939_Click()
On Error GoTo Err_Command939_Click
Screen.PreviousControl.SetFocus
DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70
Exit_Command939_Click:
Exit Sub
Err_Command939_Click:
MsgBox Err.Description
Resume Exit_Command939_Click
End Sub