[Resolvido]Regra de Validação em Campo na tabela...

Tenho uma tabela onde armazeno as kilometragens Final do veículo
Tenho um campo no form onde adiciono a ultima kilometragem do veiculo no novo registro na tebela

Como fazer para que se a km inserida no form form < que a Km no ultimo registro da tabela não seja permitido a inserção?

Se puderem ajudar fico grato

Pensei em algo assim, mas não está a da certo o dlokup

If Me.txtKm.Value < DLookup("[KilometrosFinais]", "[tbl_Veiculos]") Then
MSG = MsgBox("A kilometragem inserida não pode ser menor que a Kilometragem final !!!", vbOKOnly + vbExclamation, "AVISO")
Exit Sub

Seria algo assim?

If Me.SeuCampo < DLookup("NomeDoCampo", "NomeDaTabela", "Código=" & Me!Código) Then
    MsgBox "Sua mensagem", vbOkOnly + vbExclamation, Atenção
Else
    Exit Sub
End If

Perdão, agora que me apercebi do "último registro na tabela":

If Me.SeuCampo < DLast("NomeDoCampo", "NomeDaTabela") Then
    MsgBox "Sua mensagem", vbOkOnly + vbExclamation, Atenção
Else
    Exit Sub
End If

Amigão, Vamos la...

Preciso antes que caso não tenha nenhum registro, igonarar a linha com o D'Last

Seria algo assim:

If IsNull DLookup("ID_Veiculo", "Tbl_Veiculos") Then Go To AdicionarNovo
Else
If Me.txtKm < DLast("KilometrosFinais", "tbl_Veiculos") Then
MsgBox "A kilometragem inserida não pode ser menor que a Kilometragem final !!!", vbOKOnly + vbExclamation, "Atenção"
Else
Exit Sub
AdicionarNovo:
Me.lst_Abastecimento.Enabled = True
Me.IncluirProduto

End If

Poderia me ajudar a corrigir esse codigo?
Grato

O formulário é vinculado ou o registro é feito por RecordSet?

Amigão, a tabela não é vinculada...
Eu preencho campos e uso uma consulta adição para adiciona-los na tabela..

Tentei assim:
Private Sub cmdIncluirProduto_Click()
If Me.txtKm < DLast("KilometrosFinais", "tbl_Veiculos") Then
MsgBox "A kilometragem inserida não pode ser menor que a Kilometragem final !!!", vbOKOnly + vbExclamation, "Atenção"
Exit Sub
Else
Me.lst_Abastecimento.Enabled = True
Me.IncluirProduto (Aqui chama o codigo que insere os campos preenchidos na tabela)
End If
End Sub

'Referência ao cmdIncluirProduto_GotFocus() no Form,(Botão) usado para incluir produtos na LtxProdutos
Public Sub IncluirProduto()
'Dim QtdeItens As Integer
'Dim Qtde As Integer
'Dim Subtotal As Double
'Dim Total As Double
Incluir = True
If Incluir = False Then Exit Sub
DoCmd.SetWarnings False
DoCmd.OpenQuery "cnsINS_Abastecimento"
DoCmd.SetWarnings True
Me.lst_Abastecimento.Requery
Me.lst_Abastecimento.Selected(Me.lst_Abastecimento.ListCount - 1) = True
Incluir = False
Me.lst_Abastecimento.SetFocus
Me.LimpaEntrada

Exit Sub
End Sub

Continua a inserir km menor....

Para informacao...
Campo Matricula, Tem no form e na Tabela...
Mas a ID da tabela não existe no form

Marquei as linha em tempo de execucao.. e quando chega no If Me.txtKm..
Ja pula pro else...

Se altero o sinal para > ele mostra a msg para qualquer valor inserido na caixatexto..

O modelo e esse do veiculo que te enviei ontem

Grato

Está tudo no exemplo de ontem? Vou dar uma verificada daqui a alguns minutos. Agora preciso preencher espaço não ocupado no interior de um órgão interno e que está me atormentando

Ok.. o exemplo e esse que te enviei..
Aguardo...

Grato

Tente assim:

If Me.txtKm <= DMax("KilometrosFinais", "tbl_Veiculos") Then
    MsgBox "Kilometragem menor ou igual à atualmente registrada", , ""
ElseIf Me.txtKm > DMax("KilometrosFinais", "tbl_Veiculos") Then
    ...
End If

Amigão.. não esta dando certo
Temos que ter algo que identifique para qual veiculo...
A unica coisa que temos para comparar ai é a Placa...
No Form: txtPlaca
Na tabela; Matricula
São os mesmo valores, ja que não ha no form referencia a ID_Veiculo

Grato

O codigo identifica o valor da txtKm mas não esta fazendo a comparacao com o campo kilometros Final na tabela...

Ele pula direto para o else

Temos aí a id da placa que pode ser usada:

Dim KMax As Double
    KMax = DMax("KilometrosFinais", "tbl_Veiculos", "Matricula='" & Me!ID_Placa & "'")

    If Me.txtKm <= KMax Then
        MsgBox "Sua mensagem", , ""
    Else
        Seus procedimentos
    End If

Teste se é isso mesmo.

MESTRE PEPANP digo eu agora.. rsrsrs
Agora amigão, so um detalhe dentro desse mesmo assunto, este exemplo do JP se adiciona dois abastecimentos para a mesma data, ele nao faz o cálculo da kilometragem final.. tem que ser com intervalo de 1 dia...
Como usar o mesmo codigo acima para que se a data inseria for igual a ja cadastrada por veiculo/matricula, que emita mensagem e impeça a inserção de data igual por id_placa?

Poederia me ajudar com mais isso?

Grato

Seria talvez isso?

Dim KMax As Double, UData As Date

    KMax = DMax("KilometrosFinais", "tbl_Veiculos", "Matricula='" & Me!ID_Placa & "'")
    UData = DMax("DataVeiculo", "tbl_Veiculos", "Matricula='" & Me!ID_Placa & "'")

If Me.txtKm <= KMax Then
    MsgBox "Km menor", , ""
ElseIf Me.txtData <= UData Then
    MsgBox "Data repetida", , ""
Else
    Seus procedimentos aqui.
End If

Como aplicar os dois juntos..
no mesmo evento,.. para checar tanto a data como a Km?

Ficou assim Amigão...

Private Sub cmdIncluirProduto_Click()
Dim KMax As Double, UData As Date

KMax = DMax("KilometrosFinais", "tbl_Veiculos", "Matricula='" & Me!ID_Placa & "'")
UData = DMax("DataVeiculo", "tbl_Veiculos", "Matricula='" & Me!ID_Placa & "'")
If Me.txtKm <= KMax Then
MsgBox "Kilometragem menor ou igual à atualmente registrada", , ""
Exit Sub
ElseIf Me.txtData <= UData Then
MsgBox "Data repetida", , ""
Exit Sub
Else
Me.lst_Abastecimento.Enabled = True
Me.IncluirProduto
End If
End Sub

Grato pela ajuda..

Nos esquecemos de fazer o tratamento de erros. Veja uma forma mais completa e mais eficaz:

Dim KMax As Double, UData As Date

If IsNull(Me.ID_Placa) Or Me.ID_Placa.Value = "" Then
    MsgBox "Campo ""Viatura"" está nulo. Escolha uma viatura", vbOKOnly + vbCritical, "Atenção"
    Me.cboViatura.SetFocus
    Me.cboViatura.Dropdown

Else

KMax = DMax("KilometrosFinais", "tbl_Veiculos", "Matricula='" & Me!ID_Placa & "'")
UData = DMax("DataVeiculo", "tbl_Veiculos", "Matricula='" & Me!ID_Placa & "'")

    If IsNull(Me.txtData) Or Me.txtData.Value = "" Then
        MsgBox "Campo ""Data"" não pode ser nulo. Insira a data", vbOKOnly + vbCritical, "Atenção"
        Me.txtData.SetFocus
    ElseIf Me.txtData <= UData Then
        MsgBox "Data menor ou igual à data atualmente registrada. Corrija-a." & vbCrLf & "Última data registrada: " & UData, vbOKOnly + vbCritical, "Atenção"
        Me.txtData = Null
        Me.txtData.SetFocus
    ElseIf IsNull(Me.txtKm) Or Me.txtKm.Value = "" Then
        MsgBox "Campo ""Km atual"" não pode ser nulo. Insira a kilometragem", vbOKOnly + vbCritical, "Atenção"
        Me.txtKm.SetFocus
    ElseIf Me.txtKm <= KMax Then
        MsgBox "Kilometragem menor ou igual ao total já registrado. Corrija a kilometragem" & vbCrLf & "Total registrado: " & KMax, vbOKOnly + vbCritical, "Atenção"
        Me.txtKm = Null
        Me.txtKm.SetFocus
    End If

End If

Perfeito Amigão.. Mas me ajuda a inserir o procedimento.. pois quando o inseri, se a data estava inferior, apareceu a mensagem mas mesmo assim inseriu
Grato

Me.lst_Abastecimento.Enabled = True
Me.IncluirProduto

Tente colocar um Cancel = True após cada evento rejeitado ou um DoCmd.CancelEvent

Coloquei um exit sub... funcionou, mas amanha testarei o cancel, pois nao estou no pc do sistema agora
Grato pela ajuda.. ficou muito bom

Boa noite

Falou companheiro.

Amigão.. baixei o modelo que postei no repositorio e percebi um bug,,
No primieiro registro de abastecimento da uso de null invalido..
erro na primeira linha
KMax = DMax("KilometrosFinais", "tbl_Veiculos", "Matricula='" & Me!ID_Placa & "'")

Amanha da uma ajuda com isso
Grato

O último código que eu postei já foi feito para prevenir isso. Acredito que com ele não terá problemas.

Amigão, testei com o último código.. quando não há registros ainda para o veícúlo.. dá uso de null inválido...

Se puder ver isso para mim fico-lhe grato

Saudações

Como o uso de Null Invalido produz um erro pensei em tratar o erro e o desviar dos codigos adicionando a linha se passar pela checagem do Kmax...

Private Sub cmdIncluirProduto_Click()
On Error GoTo Err_cmdIncluirProduto_Click
Dim KMax As Double, UData As Date
If IsNull(Me.ID_Placa) Or Me.ID_Placa.Value = "" Then
MsgBox "Campo ""Viatura"" está nulo. Escolha uma viatura", vbOKOnly + vbCritical, "Atenção"
Me.cboViatura.SetFocus
Me.cboViatura.Dropdown
Else
KMax = DMax("KilometrosFinais", "tbl_Veiculos", "Matricula='" & Me!ID_Placa & "'")
UData = DMax("DataVeiculo", "tbl_Veiculos", "Matricula='" & Me!ID_Placa & "'")
If IsNull(Me.txtData) Or Me.txtData.Value = "" Then
MsgBox "Campo ""Data"" não pode ser nulo. Insira a data", vbOKOnly + vbCritical, "Atenção"
Me.txtData.SetFocus
Exit Sub
ElseIf Me.txtData <= UData Then
MsgBox "Data menor ou igual à data atualmente registrada. Corrija-a." & vbCrLf & "Última data registrada: " & UData, vbOKOnly + vbCritical, "Atenção"
Me.txtData = Null
Me.txtData.SetFocus
Exit Sub
ElseIf IsNull(Me.txtKm) Or Me.txtKm.Value = "" Then
MsgBox "Campo ""Km atual"" não pode ser nulo. Insira a kilometragem", vbOKOnly + vbCritical, "Atenção"
Me.txtKm.SetFocus
Exit Sub
ElseIf Me.txtKm <= KMax Then MsgBox "Kilometragem menor ou igual ao total já registrado. Corrija a kilometragem" & vbCrLf & "Total registrado: " & KMax, vbOKOnly + vbCritical, "Atenção"
Me.txtKm = Null
Me.txtKm.SetFocus
Exit Sub
Else
Me.lst_Abastecimento.Enabled = True
Me.IncluirProduto
End If
End If

Exit_cmdIncluirProduto_Click:
If IsNull(Me.txtData) Or Me.txtData.Value = "" Then
MsgBox "Campo ""Data"" não pode ser nulo. Insira a data", vbOKOnly + vbCritical, "Atenção"
Me.txtData.SetFocus
Exit Sub
ElseIf Me.txtData <= UData Then
MsgBox "Data menor ou igual à data atualmente registrada. Corrija-a." & vbCrLf & "Última data registrada: " & UData, vbOKOnly + vbCritical, "Atenção"
Me.txtData = Null
Me.txtData.SetFocus
Exit Sub
ElseIf IsNull(Me.txtKm) Or Me.txtKm.Value = "" Then
MsgBox "Campo ""Km atual"" não pode ser nulo. Insira a kilometragem", vbOKOnly + vbCritical, "Atenção"
Me.txtKm.SetFocus
Exit Sub
ElseIf Me.txtKm <= KMax Then MsgBox "Kilometragem menor ou igual ao total já registrado. Corrija a kilometragem" & vbCrLf & "Total registrado: " & KMax, vbOKOnly + vbCritical, "Atenção"
Me.txtKm = Null
Me.txtKm.SetFocus
Else
Me.lst_Abastecimento.Enabled = True
Me.IncluirProduto
End If
Exit Sub

Err_cmdIncluirProduto_Click:
MsgBox "Não existe registros ainda para esta viatura, adicionar registro...", vbOKOnly + vbCritical, "Atenção"
Resume Exit_cmdIncluirProduto_Click

End Sub

Mas creio que tem como fazer sem utilizar isso no tragtamento do erro..

Try it please:

Dim KMax As Double, UData As Date

If DCount("*", "tbl_Veiculos",  "Matricula='" & Me!ID_Placa & "'") = 0 Then
    MsgBox "Ainda não há registros para esse veículo", vbOKOnly + vbCritical, "Atenção"
ElseIf IsNull(Me.ID_Placa) Or Me.ID_Placa.Value = "" Then
    MsgBox "Campo ""Viatura"" está nulo. Escolha uma viatura", vbOKOnly + vbCritical, "Atenção"
    Me.cboViatura.SetFocus
    Me.cboViatura.Dropdown

Else

KMax = DMax("KilometrosFinais", "tbl_Veiculos", "Matricula='" & Me!ID_Placa & "'")
UData = DMax("DataVeiculo", "tbl_Veiculos", "Matricula='" & Me!ID_Placa & "'")

    If IsNull(Me.txtData) Or Me.txtData.Value = "" Then
        MsgBox "Campo ""Data"" não pode ser nulo. Insira a data", vbOKOnly + vbCritical, "Atenção"
        Me.txtData.SetFocus
    ElseIf Me.txtData <= UData Then
        MsgBox "Data menor ou igual à data atualmente registrada. Corrija-a." & vbCrLf & "Última data registrada: " & UData, vbOKOnly + vbCritical, "Atenção"
        Me.txtData = Null
        Me.txtData.SetFocus
    ElseIf IsNull(Me.txtKm) Or Me.txtKm.Value = "" Then
        MsgBox "Campo ""Km atual"" não pode ser nulo. Insira a kilometragem", vbOKOnly + vbCritical, "Atenção"
        Me.txtKm.SetFocus
    ElseIf Me.txtKm <= KMax Then
        MsgBox "Kilometragem menor ou igual ao total já registrado. Corrija a kilometragem" & vbCrLf & "Total registrado: " & KMax, vbOKOnly + vbCritical, "Atenção"
        Me.txtKm = Null
        Me.txtKm.SetFocus
    End If

End If

Amigao passa uma vista no codigo completo...
Atencão ao select case quando nao ha registro
Esta dando erro no VBNo


Private Sub cmdIncluirProduto_Click()
On Error GoTo Err_cmdIncluirProduto_Click

Dim KMax As Double, UData As Date
Dim Msg

If DCount("*", "tbl_Veiculos", "Matricula='" & Me!ID_Placa & "'") = 0 Then
Msg = MsgBox("Ainda não há registros para esse veículo!" & vbCrLf & _
"Adicionar Abastecimento?", vbYesNo + vbQuestion, "Atenção")
Select Case Msg
Case vbYes

If IsNull(Me.ID_Placa) Or Me.ID_Placa.Value = "" Then
MsgBox "Campo ""Viatura"" está nulo. Escolha uma viatura", vbOKOnly + vbCritical, "Atenção"
Me.cboViatura.SetFocus
Me.cboViatura.Dropdown

If IsNull(Me.txtData) Or Me.txtData.Value = "" Then
MsgBox "Campo ""Data"" não pode ser nulo. Insira a data", vbOKOnly + vbCritical, "Atenção"
Me.txtData.SetFocus
Exit Sub
ElseIf Me.txtData <= UData Then
MsgBox "Data menor ou igual à data atualmente registrada. Corrija-a." & vbCrLf & "Última data registrada: " & UData, vbOKOnly + vbCritical, "Atenção"
Me.txtData = Null
Me.txtData.SetFocus
Exit Sub
ElseIf IsNull(Me.txtKm) Or Me.txtKm.Value = "" Then
MsgBox "Campo ""Km atual"" não pode ser nulo. Insira a kilometragem", vbOKOnly + vbCritical, "Atenção"
Me.txtKm.SetFocus
Exit Sub
ElseIf Me.txtKm <= KMax Then MsgBox "Kilometragem menor ou igual ao total já registrado. Corrija a kilometragem" & vbCrLf & "Total registrado: " & KMax, vbOKOnly + vbCritical, "Atenção"
Me.txtKm = Null
Me.txtKm.SetFocus
Me.lst_Abastecimento.Enabled = True
Me.IncluirProduto
Case vbNo (Erro Case sem Select)
End Select
Exit Sub


ElseIf IsNull(Me.ID_Placa) Or Me.ID_Placa.Value = "" Then
MsgBox "Campo ""Viatura"" está nulo. Escolha uma viatura", vbOKOnly + vbCritical, "Atenção"
Me.cboViatura.SetFocus
Me.cboViatura.Dropdown
Else
KMax = DMax("KilometrosFinais", "tbl_Veiculos", "Matricula='" & Me!ID_Placa & "'")
UData = DMax("DataVeiculo", "tbl_Veiculos", "Matricula='" & Me!ID_Placa & "'")
If IsNull(Me.txtData) Or Me.txtData.Value = "" Then
MsgBox "Campo ""Data"" não pode ser nulo. Insira a data", vbOKOnly + vbCritical, "Atenção"
Me.txtData.SetFocus
Exit Sub
ElseIf Me.txtData <= UData Then
MsgBox "Data menor ou igual à data atualmente registrada. Corrija-a." & vbCrLf & "Última data registrada: " & UData, vbOKOnly + vbCritical, "Atenção"
Me.txtData = Null
Me.txtData.SetFocus
Exit Sub
ElseIf IsNull(Me.txtKm) Or Me.txtKm.Value = "" Then
MsgBox "Campo ""Km atual"" não pode ser nulo. Insira a kilometragem", vbOKOnly + vbCritical, "Atenção"
Me.txtKm.SetFocus
Exit Sub
ElseIf Me.txtKm <= KMax Then MsgBox "Kilometragem menor ou igual ao total já registrado. Corrija a kilometragem" & vbCrLf & "Total registrado: " & KMax, vbOKOnly + vbCritical, "Atenção"
Me.txtKm = Null
Me.txtKm.SetFocus
Exit Sub
Else
Me.lst_Abastecimento.Enabled = True
Me.IncluirProduto
End If
End If
Exit_cmdIncluirProduto_Click:
Exit Sub

Err_cmdIncluirProduto_Click:
MsgBox err.Description
Resume Exit_cmdIncluirProduto_Click


End Sub

A logica e assim..
Se não houver registro.. *Dcount)
remete a todos os trabamentos de erro e executa a adicao do registro...

Caso haja registro...
Ttratamento de erros mais k max..

Entendeu amigào?

Eu faria um pouco diferente. Criaria uma função pública de nome NovoDado por exemplo ou um salto no código para ir para NovoDado:, aonde faria o registro do novo carro.

Dim KMax As Double, UData As Date

If DCount("*", "tbl_Veiculos",  "Matricula='" & Me!ID_Placa & "'") = 0 Then

    If MsgBox ("Esse veículo ainda não está cadastrado. Deseja cadastrá-lo agora?", vbYesNo + vbQuestion, "Atenção") = vbYes Then
        Call NovoDado ' ou GoTo NovoDado
    Else
        Exit Sub
    End If

ElseIf IsNull(Me.ID_Placa) Or Me.ID_Placa.Value = "" Then
    MsgBox "Campo ""Viatura"" está nulo. Escolha uma viatura", vbOKOnly + vbCritical, "Atenção"
    Me.cboViatura.SetFocus
    Me.cboViatura.Dropdown

Else

KMax = DMax("KilometrosFinais", "tbl_Veiculos", "Matricula='" & Me!ID_Placa & "'")
UData = DMax("DataVeiculo", "tbl_Veiculos", "Matricula='" & Me!ID_Placa & "'")

    If IsNull(Me.txtData) Or Me.txtData.Value = "" Then
        MsgBox "Campo ""Data"" não pode ser nulo. Insira a data", vbOKOnly + vbCritical, "Atenção"
        Me.txtData.SetFocus
    ElseIf Me.txtData <= UData Then
        MsgBox "Data menor ou igual à data atualmente registrada. Corrija-a." & vbCrLf & "Última data registrada: " & UData, vbOKOnly + vbCritical, "Atenção"
        Me.txtData = Null
        Me.txtData.SetFocus
    ElseIf IsNull(Me.txtKm) Or Me.txtKm.Value = "" Then
        MsgBox "Campo ""Km atual"" não pode ser nulo. Insira a kilometragem", vbOKOnly + vbCritical, "Atenção"
        Me.txtKm.SetFocus
    ElseIf Me.txtKm <= KMax Then
        MsgBox "Kilometragem menor ou igual ao total já registrado. Corrija a kilometragem" & vbCrLf & "Total registrado: " & KMax, vbOKOnly + vbCritical, "Atenção"
        Me.txtKm = Null
        Me.txtKm.SetFocus
    End If

End If

RESOLVI Assim amigão:

Private Sub cmdIncluirProduto_Click()
On Error GoTo Err_cmdIncluirProduto_Click
Dim KMax As Double, UData As Date
Dim NoRegister As Integer
If DCount("*", "tbl_Veiculos", "Matricula='" & Me!ID_Placa & "'") = 0 Then GoTo NovoRegistro

If IsNull(Me.ID_Placa) Or Me.ID_Placa.Value = "" Then
MsgBox "Campo ""Viatura"" está nulo. Escolha uma viatura", vbOKOnly + vbCritical, "Atenção"
Me.cboViatura.SetFocus
Me.cboViatura.Dropdown
Else
KMax = DMax("KilometrosFinais", "tbl_Veiculos", "Matricula='" & Me!ID_Placa & "'")
UData = DMax("DataVeiculo", "tbl_Veiculos", "Matricula='" & Me!ID_Placa & "'")
If IsNull(Me.txtData) Or Me.txtData.Value = "" Then
MsgBox "Campo ""Data"" não pode ser nulo. Insira a data", vbOKOnly + vbCritical, "Atenção"
Me.txtData.SetFocus
Exit Sub
ElseIf Me.txtData <= UData Then
MsgBox "Data menor ou igual à data atualmente registrada. Corrija-a." & vbCrLf & "Última data registrada: " & UData, vbOKOnly + vbCritical, "Atenção"
Me.txtData = Null
Me.txtData.SetFocus
Exit Sub
ElseIf IsNull(Me.txtKm) Or Me.txtKm.Value = "" Then
MsgBox "Campo ""Km atual"" não pode ser nulo. Insira a kilometragem", vbOKOnly + vbCritical, "Atenção"
Me.txtKm.SetFocus
Exit Sub
ElseIf Me.txtKm <= KMax Then MsgBox "Kilometragem menor ou igual ao total já registrado. Corrija a kilometragem" & vbCrLf & "Total registrado: " & KMax, vbOKOnly + vbCritical, "Atenção"
Me.txtKm = Null
Me.txtKm.SetFocus

Exit Sub
Else
Me.lst_Abastecimento.Enabled = True
Me.IncluirProduto
End If
End If
Exit Sub

NovoRegistro:

NoRegister = MsgBox("Ainda não há registros para esse veículo!" & vbCrLf & _
"Adicionar Abastecimento?", vbYesNo + vbQuestion, "Atenção")
Select Case NoRegister

Case vbYes

If IsNull(Me.ID_Placa) Or Me.ID_Placa.Value = "" Then
MsgBox "Campo ""Viatura"" está nulo. Escolha uma viatura", vbOKOnly + vbCritical, "Atenção"
Me.cboViatura.SetFocus
Me.cboViatura.Dropdown

ElseIf IsNull(Me.txtData) Or Me.txtData.Value = "" Then
MsgBox "Campo ""Data"" não pode ser nulo. Insira a data", vbOKOnly + vbCritical, "Atenção"
Me.txtData.SetFocus
Exit Sub
ElseIf Me.txtData <= UData Then
MsgBox "Data menor ou igual à data atualmente registrada. Corrija-a." & vbCrLf & "Última data registrada: " & UData, vbOKOnly + vbCritical, "Atenção"
Me.txtData = Null
Me.txtData.SetFocus
Exit Sub
ElseIf IsNull(Me.txtKm) Or Me.txtKm.Value = "" Then
MsgBox "Campo ""Km atual"" não pode ser nulo. Insira a kilometragem", vbOKOnly + vbCritical, "Atenção"
Me.txtKm.SetFocus
Exit Sub
ElseIf Me.txtKm <= KMax Then MsgBox "Kilometragem menor ou igual ao total já registrado. Corrija a kilometragem" & vbCrLf & "Total registrado: " & KMax, vbOKOnly + vbCritical, "Atenção"
Me.txtKm = Null
Me.txtKm.SetFocus
Else
Me.lst_Abastecimento.Enabled = True
Me.IncluirProduto
End If
End Select

Select Case NoRegister
Case vbNo
End Select
Exit Sub

Exit_cmdIncluirProduto_Click:
Exit Sub
Err_cmdIncluirProduto_Click:
MsgBox err.Description
Resume Exit_cmdIncluirProduto_Click
End Sub

Ótimo. Se está resolvido, resolvido está

Realmente.. apesar de os dois códigos executarem o mesmo procedimento, com a função fica mais.. digamos assim... visualmente limpo e eficaz o código..

Obrigado

Agora.. Como escrevi o Select... Veja se esta certo...
Porque o VB no dava como Select sem select case
Ai foi preciso colocar novamente o Select case NoRegister..
Está certo ou faria diferente?

NoRegister = MsgBox("Ainda não há registros para esse veículo!" & vbCrLf & _
"Adicionar Abastecimento?", vbYesNo + vbQuestion, "Atenção")
Select Case NoRegister

Case vbYes

If IsNull(Me.ID_Placa) Or Me.ID_Placa.Value = "" Then
MsgBox "Campo ""Viatura"" está nulo. Escolha uma viatura", vbOKOnly + vbCritical, "Atenção"
Me.cboViatura.SetFocus
Me.cboViatura.Dropdown

ElseIf IsNull(Me.txtData) Or Me.txtData.Value = "" Then
MsgBox "Campo ""Data"" não pode ser nulo. Insira a data", vbOKOnly + vbCritical, "Atenção"
Me.txtData.SetFocus
Exit Sub
ElseIf Me.txtData <= UData Then
MsgBox "Data menor ou igual à data atualmente registrada. Corrija-a." & vbCrLf & "Última data registrada: " & UData, vbOKOnly + vbCritical, "Atenção"
Me.txtData = Null
Me.txtData.SetFocus
Exit Sub
ElseIf IsNull(Me.txtKm) Or Me.txtKm.Value = "" Then
MsgBox "Campo ""Km atual"" não pode ser nulo. Insira a kilometragem", vbOKOnly + vbCritical, "Atenção"
Me.txtKm.SetFocus
Exit Sub
ElseIf Me.txtKm <= KMax Then MsgBox "Kilometragem menor ou igual ao total já registrado. Corrija a kilometragem" & vbCrLf & "Total registrado: " & KMax, vbOKOnly + vbCritical, "Atenção"
Me.txtKm = Null
Me.txtKm.SetFocus
Else
Me.lst_Abastecimento.Enabled = True
Me.IncluirProduto
End If
End Select

Select Case NoRegister
Case vbNo
End Select
Exit Sub