Boa tarde
Usando essa rotina para campo obrigatório
............
On Error GoTo Form_Err
' na linha abaixo coloca-se quantos campos forem necessários
If Len(CboDominante & "") = 0 Then
MsgBox "Questionamento lado dominânica obrigatório.", vbCritical, "Registro incompleto"
DoCmd.CancelEvent
End If
Form_Exit:
Exit Sub
Form_Err:
MsgBox Error$
Resume Form_Exit
...........
identifica a necessidade.
Todavia se uso logo após para:
1) Abrir um form:
Private Sub BtEctoscopia_Click()
On Error GoTo Form_Err
' na linha abaixo coloca-se quantos campos forem necessários
If Len(CboDominante & "") = 0 Then
MsgBox "Questionamento lado dominânica obrigatório.", vbCritical, "Registro incompleto"
DoCmd.CancelEvent
End If
Form_Exit:
Exit Sub
Form_Err:
MsgBox Error$
Resume Form_Exit
DoCmd.OpenForm "Frm_AntebracoEctoscopiaD"
End Sub
Ele identifica, preencho o campo e não abre o form desejado.
2) Salvar registro:
Private Sub BtSalvar_Click()
On Error GoTo Form_Err
' na linha abaixo coloca-se quantos campos forem necessários
If Len(CboDominante & "") = 0 Then
MsgBox "Questionamento lado dominânica obrigatório.", vbCritical, "Registro incompleto"
DoCmd.CancelEvent
End If
Form_Exit:
Exit Sub
Form_Err:
MsgBox Error$
Resume Form_Exit
'Se lá acima tudo foi verificado e tudo está conforme o programado, então salva o registro
DoCmd.RunCommand acCmdSave
' DoCmd.RunCommand acCmdSave
MsgBox "Registro Salvo", vbInformation, "Aviso"
'DoCmd.Close
End Sub
Ele identifica, preencho o campo e não salva.
3) Fechar e salvar um form:
Private Sub BtSair_Click()
On Error GoTo Form_Err
' na linha abaixo coloca-se quantos campos forem necessários
If Len(CboDominante & "") = 0 Then
MsgBox "Questionamento lado dominânica obrigatório.", vbCritical, "Registro incompleto"
DoCmd.CancelEvent
End If
Form_Exit:
Exit Sub
Form_Err:
MsgBox Error$
Resume Form_Exit
'Se lá acima tudo foi verificado e tudo está conforme o programado, então salva o registro
DoCmd.RunCommand acCmdSave
MsgBox "Registro Salvo", vbInformation, "Aviso"
DoCmd.Close
End Sub
Ele identifica, preencho o campo e não salva e nem fecha.
Como poderia resolver.
Obrigado
Usando essa rotina para campo obrigatório
............
On Error GoTo Form_Err
' na linha abaixo coloca-se quantos campos forem necessários
If Len(CboDominante & "") = 0 Then
MsgBox "Questionamento lado dominânica obrigatório.", vbCritical, "Registro incompleto"
DoCmd.CancelEvent
End If
Form_Exit:
Exit Sub
Form_Err:
MsgBox Error$
Resume Form_Exit
...........
identifica a necessidade.
Todavia se uso logo após para:
1) Abrir um form:
Private Sub BtEctoscopia_Click()
On Error GoTo Form_Err
' na linha abaixo coloca-se quantos campos forem necessários
If Len(CboDominante & "") = 0 Then
MsgBox "Questionamento lado dominânica obrigatório.", vbCritical, "Registro incompleto"
DoCmd.CancelEvent
End If
Form_Exit:
Exit Sub
Form_Err:
MsgBox Error$
Resume Form_Exit
DoCmd.OpenForm "Frm_AntebracoEctoscopiaD"
End Sub
Ele identifica, preencho o campo e não abre o form desejado.
2) Salvar registro:
Private Sub BtSalvar_Click()
On Error GoTo Form_Err
' na linha abaixo coloca-se quantos campos forem necessários
If Len(CboDominante & "") = 0 Then
MsgBox "Questionamento lado dominânica obrigatório.", vbCritical, "Registro incompleto"
DoCmd.CancelEvent
End If
Form_Exit:
Exit Sub
Form_Err:
MsgBox Error$
Resume Form_Exit
'Se lá acima tudo foi verificado e tudo está conforme o programado, então salva o registro
DoCmd.RunCommand acCmdSave
' DoCmd.RunCommand acCmdSave
MsgBox "Registro Salvo", vbInformation, "Aviso"
'DoCmd.Close
End Sub
Ele identifica, preencho o campo e não salva.
3) Fechar e salvar um form:
Private Sub BtSair_Click()
On Error GoTo Form_Err
' na linha abaixo coloca-se quantos campos forem necessários
If Len(CboDominante & "") = 0 Then
MsgBox "Questionamento lado dominânica obrigatório.", vbCritical, "Registro incompleto"
DoCmd.CancelEvent
End If
Form_Exit:
Exit Sub
Form_Err:
MsgBox Error$
Resume Form_Exit
'Se lá acima tudo foi verificado e tudo está conforme o programado, então salva o registro
DoCmd.RunCommand acCmdSave
MsgBox "Registro Salvo", vbInformation, "Aviso"
DoCmd.Close
End Sub
Ele identifica, preencho o campo e não salva e nem fecha.
Como poderia resolver.
Obrigado