MaximoAccess

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

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
    avatar
    João Ricardo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 466
    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.] 
    avatar
    ÓscarSantos
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 333
    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.]
    avatar
    João Ricardo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 466
    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.] 
    avatar
    Uilson Brasil
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1020
    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
    avatar
    ÓscarSantos
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 333
    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.]
    avatar
    João Ricardo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 466
    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.] 
    avatar
    Uilson Brasil
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1020
    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
    avatar
    João Ricardo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 466
    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: Ter 27 Jun 2017, 11:20