MaximoAccess

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

Obrigado

Administração do MaximoAccess

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]Controle da validade de CNH

    avatar
    AMarcos
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 218
    Registrado : 26/07/2016

    [Resolvido]Controle da validade de CNH Empty [Resolvido]Controle da validade de CNH

    Mensagem  AMarcos em 26/2/2020, 18:04

    Caros mestres gostaria de ter um controle da validade de CNH quando toda vez for selecionar um motorista para pilotar ao atualizar através de um combo, se a data da validade da carteira dele for MENOR que a função criada "=Date()" (campo não visível), apareça uma mensagem na tela de que o motorista não pode ser escalado e volte o foco para a escolha de um outro motorista.

    Estou utilizando este código abaixo, mas não está emitindo a mensagem de CNH VENCIDA dando a opção de escalar o motorista irregularmente para dirigir:

    Private Sub comb_Mot_AfterUpdate()

    Me.txt_SUMot.Value = comb_Mot.Column(2)
    Me.txt_Cat.Value = comb_Mot.Column(4)
    Me.txt_Venc.Value = comb_Mot.Column(6)

    If txt_Venc < Date Then
    MsgBox "CNH VENCIDA, motorista não pode ser escalado!!!", vbOKOnly + vbCritical, "Atenção"
    Me.txt_SUMot.Value = ""
    Me.txt_Cat.Value = ""
    Me.txt_Venc.Value = ""
    Me.comb_Mot.SetFocus
    End If
    End Sub


    Algo nesse código que preciso acrescentar? Creio que a idéia da lógica está correta.


    AMarcos
    avatar
    AMarcos
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 218
    Registrado : 26/07/2016

    [Resolvido]Controle da validade de CNH Empty Re: [Resolvido]Controle da validade de CNH

    Mensagem  AMarcos em 27/2/2020, 00:45

    Mestres consegui adaptar alterando o meu código para esse abaixo:

    Private Sub comb_Mot_AfterUpdate()

    Me.txt_SUMot.Value = comb_Mot.Column(2)
    Me.txt_Cat.Value = comb_Mot.Column(4)
    Me.txt_Venc.Value = comb_Mot.Column(6)

    intDias = DateDiff("d", txt_Venc, Date)

    If intDias > 30 Then
    MsgBox "CNH VENCIDA, motorista não pode ser escalado!!!", vbOKOnly + vbCritical, "Atenção"
    Me.txt_SUMot.Value = ""
    Me.txt_Cat.Value = ""
    Me.txt_Venc.Value = ""
    Me.intDias = ""
    Me.comb_Mot.SetFocus
    End If
    End Sub


    Ficou certinho!!!

    Obg a todos.

      Data/hora atual: 22/10/2020, 04:56