Boa Tarde
Eu precisava que este código evitasse o envio do registo e que só enviasse quando todos esses campos estivessem preenchidos, ele no formulário corre normal, aparece incluvise a mensagem quando não se encontram todos preenchidos mas o registo é salvo na mesma
Existe alguma maneira de resolver este problema, sem adicionar "necessário" no tabela? pois isso não irá resolver verdadeiramente o meu problema
Obrigado
Eu precisava que este código evitasse o envio do registo e que só enviasse quando todos esses campos estivessem preenchidos, ele no formulário corre normal, aparece incluvise a mensagem quando não se encontram todos preenchidos mas o registo é salvo na mesma
Existe alguma maneira de resolver este problema, sem adicionar "necessário" no tabela? pois isso não irá resolver verdadeiramente o meu problema
Obrigado
- Código:
Private Sub Salvar_Click()
On Error Resume Next
If IsNull(Me.Data) Or Me.Data.Value = "" Then
MsgBox "O campo ""Data"" é de preenchimento obrigatório.", vbOKOnly + vbCritical, "Atenção"
Me.Data.SetFocus
ElseIf IsNull(Me.Requesitante_do_Serviço) Or Me.Requesitante_do_Serviço.Value = "" Then
MsgBox "O campo ""Requesitante do Serviço"" é de preenchimento obrigatório.", vbOKOnly + vbCritical, "Atenção"
Me.Requesitante_do_Serviço.SetFocus
ElseIf IsNull(Me.ServiçoPrestado) Or Me.ServiçoPrestado.Value = "" Then
MsgBox "O campo ""Serviço Prestado"" é de preenchimento obrigatório.", vbOKOnly + vbCritical, "Atenção"
Me.ServiçoPrestado.SetFocus
ElseIf IsNull(Me.Da_Localidade) Or Me.Da_Localidade.Value = "" Then
MsgBox "O campo ""Da Localidade"" é de preenchimento obrigatório.", vbOKOnly + vbCritical, "Atenção"
Me.Da_Localidade.SetFocus
ElseIf IsNull(Me.Para_a_Localidade) Or Me.Para_a_Localidade.Value = "" Then
MsgBox "O campo ""Para a Localidade"" é de preenchimento obrigatório.", vbOKOnly + vbCritical, "Atenção"
Me.Para_a_Localidade.SetFocus
ElseIf IsNull(Me.Destino) Or Me.Destino.Value = "" Then
MsgBox "O campo ""Destino"" é de preenchimento obrigatório.", vbOKOnly + vbCritical, "Atenção"
Me.Destino.SetFocus
ElseIf IsNull(Me.HoraSaida) Or Me.HoraSaida.Value = "" Then
MsgBox "O campo ""Hora de Saida"" é de preenchimento obrigatório.", vbOKOnly + vbCritical, "Atenção"
Me.HoraSaida.SetFocus
ElseIf IsNull(Me.HoraChegada) Or Me.HoraChegada.Value = "" Then
MsgBox "O campo ""Hora de Chegada"" é de preenchimento obrigatório.", vbOKOnly + vbCritical, "Atenção"
Me.HoraChegada.SetFocus
ElseIf IsNull(Me.Viatura) Or Me.Viatura.Value = "" Then
MsgBox "O campo ""Viatura"" é de preenchimento obrigatório.", vbOKOnly + vbCritical, "Atenção"
Me.Viatura.SetFocus
ElseIf IsNull(Me.KM_Inicial) Or Me.KM_Inicial.Value = "" Then
MsgBox "O campo ""KM Inicial"" é de preenchimento obrigatório.", vbOKOnly + vbCritical, "Atenção"
Me.KM_Inicial.SetFocus
ElseIf IsNull(Me.KM_Final) Or Me.KM_Final.Value = "" Then
MsgBox "O campo ""KM Final"" é de preenchimento obrigatório.", vbOKOnly + vbCritical, "Atenção"
Me.KM_Final.SetFocus
ElseIf IsNull(Me.HoraSaida) Or Me.HoraSaida.Value = "" Then
MsgBox "O campo ""Nº do Condutor"" é de preenchimento obrigatório.", vbOKOnly + vbCritical, "Atenção"
Me.HoraSaida.SetFocus
ElseIf IsNull(Me.Assinatura) Or Me.Assinatura.Value = "" Then
MsgBox "O campo ""Assinatura"" é de preenchimento obrigatório.", vbOKOnly + vbCritical, "Atenção"
Me.Assinatura.SetFocus
End If
Exit Sub
DoCmd.GoToRecord , , acNewRec
Me.Refresh
End Sub