MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Condição de preenchimento de campos

    Compartilhe

    João Ricardo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 453
    Registrado : 20/01/2013

    [Resolvido]Condição de preenchimento de campos

    Mensagem  João Ricardo em Qua 15 Abr 2015, 15:31

    Amigos, bom dia!
    Estou com uma dificuldade que dá até raiva!!! e Embarassed

    Em um form tem um campo data (DataEntrega, para este campo tenho que ter duas condições:

    1ª - não pode ficar em branco;
    2ª - não pode ser menor que o campo (DataRecebimento) do mesmo frm;

    Já tentei escrever um if dentro do outro nas propriedades ao sair e após atualizar, mas não dá certo.

    Sei que não é difícil, já tentei pela pesquisa no fórum (e vou continuar), mas se alguém tiver uma ideia prática, agradeço.


    .................................................................................
     [Você precisa estar registrado e conectado para ver esta imagem.] Busco aprendizado e gostaria de contato com pessoas de Campo Grande - MS  [Você precisa estar registrado e conectado para ver esta imagem.]   [Você precisa estar registrado e conectado para ver esta imagem.] 

    ÓscarSantos
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 327
    Registrado : 18/09/2013

    Re: [Resolvido]Condição de preenchimento de campos

    Mensagem  ÓscarSantos em Qua 15 Abr 2015, 15:57

    no campo DataEntrega ao perder foco :
    Dim dataentrega as Date
    Dim datarecebimento as Date


    If IsNull(DataEntrega) then
    msgbox("Campo de preechimento obrigatorio")
    Me.undo
    end if

    dataentrega = format(DataEntrega, "dd-mm-yyyy")
    datarecebimento = format(DataRecebimento, "dd-mm-yyyy")

    If "#" & dataentrega & "#" < "#" & datarecebimento & "#" then
    msgbox("Data de entrega nao pode ser menor que data recebimento")
    else
    exit sub
    end if



    .................................................................................
    _________________________________________________________
    sempre a aprender
    para enviar ou postar só access2003 infelizmente é o que tenho no trabalho [Você precisa estar registrado e conectado para ver esta imagem.] .
    para dar tópio como resolvido [Você precisa estar registrado e conectado para ver este link.]

    João Ricardo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 453
    Registrado : 20/01/2013

    Re: [Resolvido]Condição de preenchimento de campos

    Mensagem  João Ricardo em Qua 15 Abr 2015, 23:13

    Olá amigo Óscar Prazer em conhecê-lo.

    Obrigado pelo seu retorno.

    Sua sugestão não funcionou como esperado.
    Estou lhe disponibilizando o arquivo. Se for possível, dê uma olhada.
    Veja se tem relação com o tipo de campo na tabela. Lá estão definidos como data/hora e data abreviada

    [Você precisa estar registrado e conectado para ver este link.]


    .................................................................................
     [Você precisa estar registrado e conectado para ver esta imagem.] Busco aprendizado e gostaria de contato com pessoas de Campo Grande - MS  [Você precisa estar registrado e conectado para ver esta imagem.]   [Você precisa estar registrado e conectado para ver esta imagem.] 

    Uilson Brasil
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 999
    Registrado : 23/04/2013

    Re: [Resolvido]Condição de preenchimento de campos

    Mensagem  Uilson Brasil em Qua 15 Abr 2015, 23:51

    Fala João!!! Tenta aí no evento antes de atualizar:

    Código:
    'Se a data de entrega for maior que data de recebimento
    If DataEntrega < DataRecebimento Then
        'O sistema reporta a mensagem ...
        MsgBox "Data da entrega não pode ser menor que a data do recebimento.", vbInformation, "Sistema"
        '...e cancela o evento
        DoCmd.CancelEvent
    'Ou se a data de entrega for NULO
    ElseIf IsNull(DataEntrega) Or DataEntrega = "" Then
        'O sistema reporta a mensagem ...
        MsgBox "É necessário preencher a data da entrega.", vbInformation, "Sistema"
        '...e cancela o evento
        DoCmd.CancelEvent
    End If

    Você ainda poderá utilizar do código abaixo no evento "ao sair". Creio que esse atenderá melhor a sua necessidade:

    Código:
    'Se a data de entrega for maior que data de recebimento
    If DataEntrega < DataRecebimento Then
        'O sistema reporta a mensagem ...
        MsgBox "Data da entrega não pode ser menor que a data do recebimento.", vbInformation, "Sistema"
        '...e cancela o evento
        Cancel = True
    'Se a data de entrega for NULO
    ElseIf IsNull(DataEntrega) Or DataEntrega = "" Then
        'Se a data de entrega for maior que data de recebimento
        MsgBox "É necessário preencher a data da entrega.", vbInformation, "Sistema"
        '...e cancela o evento
        Cancel = True
    End If

    Abraços,


    .................................................................................
    ::: Uilson Brasil
    ::: Design in Microsoft Access

    ÓscarSantos
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 327
    Registrado : 18/09/2013

    Re: [Resolvido]Condição de preenchimento de campos

    Mensagem  ÓscarSantos em Qui 16 Abr 2015, 08:17

    Olá João como só tenho access2003 ainda não posso ver, mas tenta a dica do Uilson.

    e já agora o formato de data/hora abreviado é "dd-mm-yyyy"

    Abraço


    .................................................................................
    _________________________________________________________
    sempre a aprender
    para enviar ou postar só access2003 infelizmente é o que tenho no trabalho [Você precisa estar registrado e conectado para ver esta imagem.] .
    para dar tópio como resolvido [Você precisa estar registrado e conectado para ver este link.]

    João Ricardo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 453
    Registrado : 20/01/2013

    Re: [Resolvido]Condição de preenchimento de campos

    Mensagem  João Ricardo em Sex 17 Abr 2015, 01:57

    Fala amigo conterrâneo. Como vai nossa capital? cheers

    Obrigado pelo vosso retorno. Funcionou com a sugestão do amigo Uilson.

    Até a próxima.


    .................................................................................
     [Você precisa estar registrado e conectado para ver esta imagem.] Busco aprendizado e gostaria de contato com pessoas de Campo Grande - MS  [Você precisa estar registrado e conectado para ver esta imagem.]   [Você precisa estar registrado e conectado para ver esta imagem.] 

    Uilson Brasil
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 999
    Registrado : 23/04/2013

    Re: [Resolvido]Condição de preenchimento de campos

    Mensagem  Uilson Brasil em Sex 17 Abr 2015, 02:10

    Fala João ... Aqui tudo blz. E os peixes aí estão saindo fora d'água???

    Abraços,


    .................................................................................
    ::: Uilson Brasil
    ::: Design in Microsoft Access

    João Ricardo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 453
    Registrado : 20/01/2013

    Re: [Resolvido]Condição de preenchimento de campos

    Mensagem  João Ricardo em Sex 17 Abr 2015, 13:11

    Tá saindo pacu no Passo do Lontra.
    Fui lá semana passada.

    Abraços


    .................................................................................
     [Você precisa estar registrado e conectado para ver esta imagem.] Busco aprendizado e gostaria de contato com pessoas de Campo Grande - MS  [Você precisa estar registrado e conectado para ver esta imagem.]   [Você precisa estar registrado e conectado para ver esta imagem.] 

      Data/hora atual: Sab 03 Dez 2016, 04:32