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


4 participantes

    [Resolvido]Como retornar mensagem de aviso de data de vencimento ao abrir formulário principal

    avatar
    wgc
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 6
    Registrado : 12/03/2015

    [Resolvido]Como retornar mensagem de aviso de data de vencimento ao abrir formulário principal Empty [Resolvido]Como retornar mensagem de aviso de data de vencimento ao abrir formulário principal

    Mensagem  wgc 12/3/2015, 06:55

    Bom dia a todos...

    Primeiramente gostaria de esclarecer aos amigos que sou iniciante no Access, e tenho lido bastante sobre o mesmo afim de, me familiarizar. Já venho por um bom tempo a criar um projeto que esta até então satisfazendo minhas expectativas, mas não estou conseguindo concluir por um motivo apenas; e este é:

    Uso a Vs. 2007 do Access c/ SPK 3, rodando no Win7 ultimate; tenho um projeto na qual contem uma Tabela e um Formulário que preencho com dados de contas a pagar como: Água, luz, telefone, aluguel, etc... nos mesmos, contem três campos, que tenho como principais, e são estes:  “Data atual”( =Data() ),  “Data de Vencimento”  e “Pagamento Efetuado” (do tipo Sim/Não), e no evento “No atual“ do formulário em questão coloquei um procedimento (vba) que em toda as vezes que abro o formulário ele me retorna uma mensagem dizendo que faltam X dias para o vencimento da conta cadastrada ou X dias de vencido se for o caso, isso quando o campo do tipo Sim/Não esta desmarcado,  e a mesma mensagem é apresentada quando navego entre os demais registros, até ai tudo funciona bem, mas o que eu quero, é que quando eu abrir o Banco e ele me apresentar o formulário principal, ele já faça uma varredura na tabela que contem os campos citados acima e me retorne a mensagem dizendo que existem datas vencendo ou vencidas antes mesmo de eu abrir o formulário da tabela em questão.

    Alguém pode me ajudar, por favor! Se possível de forma clara e detalhada para que eu aprenda.

    Desde já,
    Grato...

    Wellington Corrêa  –  Piúma - ES


    Última edição por wgc em 14/3/2015, 22:13, editado 2 vez(es)
    daniloreiis
    daniloreiis
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 338
    Registrado : 14/02/2011

    [Resolvido]Como retornar mensagem de aviso de data de vencimento ao abrir formulário principal Empty Como retornar mensagem de aviso de data de vencimento ao abrir formulário principal

    Mensagem  daniloreiis 12/3/2015, 17:01

    Olá boa tarde!

    se possível disponibilizar o projeto para melhor atende-lo.


    .................................................................................
    Att, Danilo Reis
    -------------------------------------------------------------------------------------------------------------------------------------------------

    Se alguém não quiser trabalhar, não coma também.
    2 Tessalonicenses 3:10
    avatar
    wgc
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 6
    Registrado : 12/03/2015

    [Resolvido]Como retornar mensagem de aviso de data de vencimento ao abrir formulário principal Empty Re: [Resolvido]Como retornar mensagem de aviso de data de vencimento ao abrir formulário principal

    Mensagem  wgc 13/3/2015, 00:58

    Boa tarde Danilo.

    desculpe, não será possível ceder o projeto, mas tenho certeza que no meio de tantas feras do Access como tem aqui no site será fácil resolver o meu problema, vou explicar mais resumidamente pra ver se ajuda o teu entendimento. e o seguinte: tenho uma tabela cujo nome é "PAGAMENTOS DE CONTAS", nele contem alguns campos que armazeno oque preciso, dentre eles os principais são: "DATA DE VENCIMENTO" no formato data/hora, e "PAGAMENTO EFETUADO" do tipo Sim/Não.

    Preciso então de um código que eu possa inserir no evento ao abrir do meu formulário principal que leia todos os registro dessa tabela e no caso dele encontrar em algum registro o campo "PAGAMENTO EFETUADO" desmarcado, compara com o campo "DATA DE VENCIMENTO" se estiver faltando 2 dias para vencer ou estiver atrasado, ele me mostre uma MsgBox dizendo por exemplo: " existem pagamentos de contas a serem efetuados, verifique! "

    é isso que eu preciso, para mim é difícil mas para vocês, não é nada, tenho certeza disso, tava dando uma olhada nos tópicos e vi que aqui vou resolver meu problema

    Se puder me ajudar sou grato, se não puder, sou grato da mesma forma!

    fico aguardo...
    avatar
    wgc
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 6
    Registrado : 12/03/2015

    [Resolvido]Como retornar mensagem de aviso de data de vencimento ao abrir formulário principal Empty Re: [Resolvido]Como retornar mensagem de aviso de data de vencimento ao abrir formulário principal

    Mensagem  wgc 13/3/2015, 01:17

    No Evento “Ao abrir" do meu formulário principal, escrevi esse código que peguei num exemplo de um site, mas nada acontece quando abro o formulario, nem erro se quer ele dá

    Dim iVerificaRegistros As Integer
    iVerificaRegistros = Nz(DCount("PAGAMENTO EFETUADO", "PAGAMENTO DE CONTAS", "PAGAMENTO EFETUADO Like '0'"), 0)
    If iVerificaRegistros > 0 Then
    MsgBox "Exite(m) Registro(s) com pendência de manutenção no formulário CONTAS A PAGAR. Verifique!", vbOKOnly, "Alerta"
    Else
    End If


    tem algo de errado neste exemplo que testei?

    fiquem a vontade para elaborar outro se for o caso, contanto que fique dentro do que pedi na mensagem anterior, lembrando que o exemplo acima so peguei para testar, iria tentar adapta-lo depois se ele funcionasse.
    daniloreiis
    daniloreiis
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 338
    Registrado : 14/02/2011

    [Resolvido]Como retornar mensagem de aviso de data de vencimento ao abrir formulário principal Empty Como retornar mensagem de aviso de data de vencimento ao abrir formulário principal

    Mensagem  daniloreiis 13/3/2015, 01:38

    Olá amigo boa noite, tem skype?


    .................................................................................
    Att, Danilo Reis
    -------------------------------------------------------------------------------------------------------------------------------------------------

    Se alguém não quiser trabalhar, não coma também.
    2 Tessalonicenses 3:10
    avatar
    Convidado
    Convidado


    [Resolvido]Como retornar mensagem de aviso de data de vencimento ao abrir formulário principal Empty Re: [Resolvido]Como retornar mensagem de aviso de data de vencimento ao abrir formulário principal

    Mensagem  Convidado 13/3/2015, 09:48

    Bom dia,

    Teste codigo abaixo no evento "ao abrir" do seu formulário.

    Dim iVerificaRegistros As Integer
    Dim idataregistos As Integer
    iVerificaRegistros = DCount("[PAGAMENTO EFETUADO]", "PAGAMENTOS DE CONTAS", "[PAGAMENTO EFETUADO] =0")
    idataregistos = Day((Date) + 2) - Day(DMax("[Data de vencimento]", "PAGAMENTOS DE CONTAS")) < 2
    If iVerificaRegistros > 0 And idataregistos < 2 Then
    MsgBox "Exite(m) Registro(s) " & iVerificaRegistros & " com pendência de manutenção no formulário CONTAS A PAGAR. Verifique!", vbOKOnly, "Alerta"
    Else
    End If

    Abraço... Cool
    avatar
    wgc
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 6
    Registrado : 12/03/2015

    [Resolvido]Como retornar mensagem de aviso de data de vencimento ao abrir formulário principal Empty Ola roberto

    Mensagem  wgc 13/3/2015, 23:45

    Ola Roberto,

    funcionou certinho, valeu!!!
    mas quero aproveitar a oportunidade e te perguntar, é o seguinte:

    tem como você fazer com que esse código, me de o aviso e também abra uma consulta já pronta na qual ele me mostre todos os registros que estão desmarcados  ou que estão dentro dos requisitos dos critérios que coloquei no código do formulário contas a pagar? mostrando só os campos principais,  "CÓDIGO","DATA DE VENCIMENTO" e "PAGAMENTO EFETUADO" de forma que se eu clicar sobre o código por exemplo, ele me direcione para o meu formulário no registro que eu cliquei....  

    minha tabela e formulario são essas que seguem em anexo, talvez te ajude mais..... to mandando só um banco de exemplo mais a tabela e formulário e a mesma que ta aqui no meu banco oficial
    Anexos
    [Resolvido]Como retornar mensagem de aviso de data de vencimento ao abrir formulário principal AttachmentContas a Pagar.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (88 Kb) Baixado 149 vez(es)


    Última edição por wgc em 14/3/2015, 15:23, editado 1 vez(es)

    Gilbert gosta desta mensagem

    avatar
    wgc
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 6
    Registrado : 12/03/2015

    [Resolvido]Como retornar mensagem de aviso de data de vencimento ao abrir formulário principal Empty Como retornar mensagem de aviso de data de vencimento ao abrir formulário principal

    Mensagem  wgc 14/3/2015, 04:57

    Boa noite a todos,

    Há alguém mais que pode me ajudar no que eu preciso?
    daniloreiis
    daniloreiis
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 338
    Registrado : 14/02/2011

    [Resolvido]Como retornar mensagem de aviso de data de vencimento ao abrir formulário principal Empty Como retornar mensagem de aviso de data de vencimento ao abrir formulário principal

    Mensagem  daniloreiis 14/3/2015, 20:40

    Olá boa tarde!

    segue baixo a solução, espero que ajude.

    abraços
    Anexos
    [Resolvido]Como retornar mensagem de aviso de data de vencimento ao abrir formulário principal AttachmentAVISO_VENCIMENTO.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (92 Kb) Baixado 288 vez(es)


    .................................................................................
    Att, Danilo Reis
    -------------------------------------------------------------------------------------------------------------------------------------------------

    Se alguém não quiser trabalhar, não coma também.
    2 Tessalonicenses 3:10

    Gilbert gosta desta mensagem

    avatar
    wgc
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 6
    Registrado : 12/03/2015

    [Resolvido]Como retornar mensagem de aviso de data de vencimento ao abrir formulário principal Empty Como retornar mensagem de aviso de data de vencimento ao abrir formulário principal

    Mensagem  wgc 14/3/2015, 21:52

    Muito bom, perfeito!!

    assumiu completamente minhas expectativas, eu esperava bem menos do que isso, mas voce me deu mais!!

    Tenho uma divida com voce, Muito Obrigado mesmo, que DEUS abençoe sua vida e te acrescente cada dia mais e mais inteligencia e boa vontade de abençoar os outros, voce é uma benção, pode acreditar.....Valeu!!!

    Agradeço tambem a todos que participaram de alguma forma.

    Boa noite a todos e um ótimo final de semana...
    avatar
    alexnilto
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 17
    Registrado : 27/08/2016

    [Resolvido]Como retornar mensagem de aviso de data de vencimento ao abrir formulário principal Empty Aviso de data de vencimento de contrato com 5 dias de antecedência.

    Mensagem  alexnilto 10/4/2017, 20:33

    Boa tarde Danilo Reis. Como faço, então, para adaptar esse código para um banco de contratos que me avise com 5 dias de antecedência que o contrato está para vencer?
    daniloreiis
    daniloreiis
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 338
    Registrado : 14/02/2011

    [Resolvido]Como retornar mensagem de aviso de data de vencimento ao abrir formulário principal Empty [Resolvido]Como retornar mensagem de aviso de data de vencimento ao abrir formulário principal

    Mensagem  daniloreiis 11/4/2017, 11:59

    Olá bom dia!

    se possível disponibilizar o projeto para melhor atende-lo.


    .................................................................................
    Att, Danilo Reis
    -------------------------------------------------------------------------------------------------------------------------------------------------

    Se alguém não quiser trabalhar, não coma também.
    2 Tessalonicenses 3:10

    taivbs gosta desta mensagem

    avatar
    alexnilto
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 17
    Registrado : 27/08/2016

    [Resolvido]Como retornar mensagem de aviso de data de vencimento ao abrir formulário principal Empty Aviso de data de vencimento de contrato com 5 dias de antecedência.

    Mensagem  alexnilto 11/4/2017, 14:43

    Oi Danilo. Infelizmente não será possível enviar todo o projeito, mas estou te enviando um exemplo da parte que se refere ao contrato, porque todo o projeto é muito grande. Mas, basicamente é o seguinte: Uma tabela de Contratos com data de início e Data de vencimento do contrato. O que eu gostaria é que quando eu abrisse o formulário principal fosse gerado um aviso, com 5 dias de antecedência, que existem  contratos a vencer e que, ao mesmo tempo, me reportasse para uma consulta que trás a relação de contratos a vencer, indicando quantos dias faltam para o vencimento de cada um.
    Caro Danilo, ficarei muito grato com a sua ajuda. Estou lutando com isso a dias e não fui para lugar nenhum
    avatar
    alexnilto
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 17
    Registrado : 27/08/2016

    [Resolvido]Como retornar mensagem de aviso de data de vencimento ao abrir formulário principal Empty Aviso de data de vencimento de contrato com 5 dias de antecedência.

    Mensagem  alexnilto 11/4/2017, 14:45

    Oi Danilo. Infelizmente não será possível enviar todo o projeito, mas estou te enviando um exemplo da parte que se refere ao contrato, porque todo o projeto é muito grande. Mas, basicamente é o seguinte: Uma tabela de Contratos com data de início e Data de vencimento do contrato. O que eu gostaria é que quando eu abrisse o formulário principal fosse gerado um aviso, com 5 dias de antecedência, que existem  contratos a vencer e que, ao mesmo tempo, me reportasse para uma consulta que trás a relação de contratos a vencer, indicando quantos dias faltam para o vencimento de cada um.
    Caro Danilo, ficarei muito grato com a sua ajuda. Estou lutando com isso a dias e não fui para lugar nenhum
    daniloreiis
    daniloreiis
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 338
    Registrado : 14/02/2011

    [Resolvido]Como retornar mensagem de aviso de data de vencimento ao abrir formulário principal Empty [Resolvido]Como retornar mensagem de aviso de data de vencimento ao abrir formulário principal

    Mensagem  daniloreiis 2/5/2017, 13:07

    Bom dia meu amigo, segue projeto, com a condição solicitada!

    Sucesso!

    Att
    Anexos
    [Resolvido]Como retornar mensagem de aviso de data de vencimento ao abrir formulário principal AttachmentContratos.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (317 Kb) Baixado 171 vez(es)


    .................................................................................
    Att, Danilo Reis
    -------------------------------------------------------------------------------------------------------------------------------------------------

    Se alguém não quiser trabalhar, não coma também.
    2 Tessalonicenses 3:10

    Gilbert e taivbs gostam desta mensagem

    avatar
    alexnilto
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 17
    Registrado : 27/08/2016

    [Resolvido]Como retornar mensagem de aviso de data de vencimento ao abrir formulário principal Empty Re: [Resolvido]Como retornar mensagem de aviso de data de vencimento ao abrir formulário principal

    Mensagem  alexnilto 2/5/2017, 13:21

    Muito Obrigado Danilo. Foi de grande ajuda. Muito obrigado mesmo
    avatar
    Gilbert
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 49
    Registrado : 20/09/2011

    [Resolvido]Como retornar mensagem de aviso de data de vencimento ao abrir formulário principal Empty como retornar mensagem de aviso de data de vencimento ao abrir formulario principal

    Mensagem  Gilbert 28/3/2023, 13:03

    Olá Danilo, bom dia!

    Muito bom teus exemplos, implementei o "AVISO VENCIMENTO" na minha aplicação, porém, no formulário "frm_duplicatas", o meu não está ficando com fundo vermelho nos que estão vencidos. Como faço para ficar vermelho somente os que estão vencidos?

    Já te agradeço desde já sua atenção, independente de solução.

    Abs
    Gilbert

    Conteúdo patrocinado


    [Resolvido]Como retornar mensagem de aviso de data de vencimento ao abrir formulário principal Empty Re: [Resolvido]Como retornar mensagem de aviso de data de vencimento ao abrir formulário principal

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 29/3/2024, 08:39