Private Sub btn_sairNovoExame_Click()
On Error GoTo errorTrap
Call logMe("btn_sairNovoExame_Click", "start")
If IsNull(Me.frm_MotivoExame) Then
MsgBox "Motivo de Exame não preenchido"
End If
If IsNull(Me.frm_dataExame) Then
MsgBox "Data de Exame não preenchida"
End If
Me.frm_idExame = Forms![_intData].frm_exameRecCount
Forms![_intData].frm_exameSalvo = True
DoCmd.RunCommand acCmdSaveRecord
Forms("frmPaciente").frmExameLista.Requery
Call logMe("btn_sairNovoExame_Click", "start")
DoCmd.Close
Exit Sub
errorTrap:
MsgBox "[btn_sairNovoExame_Click]." & "[" & Err.Number & "].[" & Err.Description & "]"
Call logMe("btn_sairNovoExame_Click", "errorTrap:" & "[btn_sairNovoExame_Click]." & "[" & Err.Number & "].[" & Err.Description & "]")
Resume Next
End Sub
ASKER
If Me.Dirty = True Then
Me.Dirty = False
End If
ASKER
Microsoft Access is a rapid application development (RAD) relational database tool. Access can be used for both desktop and web-based applications, and uses VBA (Visual Basic for Applications) as its coding language.
TRUSTED BY
ASKER
will be OK?