MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


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

    avatar
    Convidado
    Convidado


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

    Mensagem  Convidado 28/5/2011, 13:43

    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
    avatar
    Convidado
    Convidado


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

    Mensagem  Convidado 28/5/2011, 13:56

    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
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

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

    Mensagem  criquio 28/5/2011, 13:57

    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


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

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

    Mensagem  criquio 28/5/2011, 13:58

    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


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    Convidado
    Convidado


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

    Mensagem  Convidado 28/5/2011, 14:45

    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
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

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

    Mensagem  criquio 28/5/2011, 14:48

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


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    Convidado
    Convidado


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

    Mensagem  Convidado 28/5/2011, 14:51

    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
    avatar
    Convidado
    Convidado


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

    Mensagem  Convidado 28/5/2011, 14:53

    Continua a inserir km menor....
    avatar
    Convidado
    Convidado


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

    Mensagem  Convidado 28/5/2011, 14:55

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


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

    Mensagem  Convidado 28/5/2011, 15:00

    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
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

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

    Mensagem  criquio 28/5/2011, 15:29

    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 Very Happy


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    Convidado
    Convidado


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

    Mensagem  Convidado 28/5/2011, 15:56

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

    Grato
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

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

    Mensagem  criquio 28/5/2011, 17:13

    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 I
    f


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    Convidado
    Convidado


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

    Mensagem  Convidado 28/5/2011, 17:31

    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
    avatar
    Convidado
    Convidado


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

    Mensagem  Convidado 28/5/2011, 17:36

    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
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

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

    Mensagem  criquio 28/5/2011, 18:22

    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.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    Convidado
    Convidado


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

    Mensagem  Convidado 28/5/2011, 19:44

    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
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

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

    Mensagem  criquio 28/5/2011, 19:54

    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 I
    f


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    Convidado
    Convidado


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

    Mensagem  Convidado 28/5/2011, 20:04

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


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

    Mensagem  Convidado 28/5/2011, 20:18

    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..
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

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

    Mensagem  criquio 28/5/2011, 20:25

    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


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    Convidado
    Convidado


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

    Mensagem  Convidado 28/5/2011, 20:39

    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
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

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

    Mensagem  criquio 28/5/2011, 20:49

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


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    Convidado
    Convidado


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

    Mensagem  Convidado 28/5/2011, 22:22

    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
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

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

    Mensagem  criquio 28/5/2011, 23:19

    Falou companheiro.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    Convidado
    Convidado


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

    Mensagem  Convidado 28/5/2011, 23:45

    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
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

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

    Mensagem  criquio 29/5/2011, 00:51

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


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    Convidado
    Convidado


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

    Mensagem  Convidado 29/5/2011, 16:57

    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
    avatar
    Convidado
    Convidado


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

    Mensagem  Convidado 29/5/2011, 17:05

    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..
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

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

    Mensagem  criquio 29/5/2011, 17:24

    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"
    Else
    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


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    Convidado
    Convidado


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

    Mensagem  Convidado 29/5/2011, 18:29

    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
    avatar
    Convidado
    Convidado


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

    Mensagem  Convidado 29/5/2011, 18:33

    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?
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

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

    Mensagem  criquio 29/5/2011, 19:09

    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


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    Convidado
    Convidado


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

    Mensagem  Convidado 29/5/2011, 19:10

    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
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

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

    Mensagem  criquio 29/5/2011, 19:20

    Ótimo. Se está resolvido, resolvido está Very Happy


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    Convidado
    Convidado


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

    Mensagem  Convidado 29/5/2011, 20:47

    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
    avatar
    Convidado
    Convidado


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

    Mensagem  Convidado 29/5/2011, 20:51

    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

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 9/12/2024, 03:04