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

    avatar
    AMarcos
    Avançado
    Avançado

    Respeito às regras : 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 Qua 26 Fev 2020, 15: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 : 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 Qua 26 Fev 2020, 21: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: Sab 18 Set 2021, 20:25