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

    Executar ação ao trocar dia

    avatar
    kelvindeth
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 32
    Registrado : 26/04/2013

    Executar ação ao trocar dia Empty Executar ação ao trocar dia

    Mensagem  kelvindeth 11/9/2013, 15:22

    Galera bom dia!

    Existe algum código em VBA para que execute ou troque uma variável assim que trocar o dia?



    Por exemplo:

    * Tenho uma variável x com o valor "False" no dia 11/09/2013;

    * Tenho um botão que ao clicar sobre ele a variável x fique com o valor "True" ainda no dia 11/09/2013;

    * Quando eu abrir o banco de dados em outro dia, como por exemplo 12/09/2013 e variável volta ao valor padrão para "False"

    Obrigado!
    Cláudio Machado
    Cláudio Machado
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1633
    Registrado : 17/03/2011

    Executar ação ao trocar dia Empty Re: Executar ação ao trocar dia

    Mensagem  Cláudio Machado 12/9/2013, 18:01

    Boa tarde.

    Insira uma caixa de texto de nome DataAtual com o valor padrao =Data()

    No seu form no evento Ao Carregar colo que o seguinte codigo:

    Código:


    If Me.DataAtual > Me.NomeDaCaixaData Then
        Me.Variavel = False
    else
    End If



    Espero que ajude.


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  AQUI.
    Não esqueça de clicar no Joinha Executar ação ao trocar dia 90dssg para agradecer a dica que solucionou seu problema.
    avatar
    CrisMaleta
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 100
    Registrado : 20/08/2013

    Executar ação ao trocar dia Empty Re: Executar ação ao trocar dia

    Mensagem  CrisMaleta 12/9/2013, 20:28

    Fala Kelvin!!!!

    Cara, desculpe minha ignorância, mas qual seria a aplicação dessa variável????

    Pelo que entendi a variável será true sempre....
    Quando você fechar o access, ela vai perder a referencia, até ser usada novamente....

    Entendi muito errado????

    Desde já agradeço....

    Abraço a todos!!!!
    avatar
    kelvindeth
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 32
    Registrado : 26/04/2013

    Executar ação ao trocar dia Empty Re: Executar ação ao trocar dia

    Mensagem  kelvindeth 13/9/2013, 10:24

    Bom dia CrisMaleta,

    No verdade, toda vez que você abrir o access ele voltaria para os valores padrões, por isso que preciso de um código +- assim.

    hoje é dia 13/09/2013, então o código verificaria na tabela x se existe algum registro referente ao dia 13/09/2013, caso exista execute uma ação, caso não, execute outra.

    A única parte que estou com problema é o código de como checar todos os registros de uma tabela.
    avatar
    kelvindeth
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 32
    Registrado : 26/04/2013

    Executar ação ao trocar dia Empty Re: Executar ação ao trocar dia

    Mensagem  kelvindeth 13/9/2013, 10:27

    Bom dia Cláudio Machado, esse comando acho que não me atende muito bem, porque não tenho nenhuma caixa de texto para setar um valor.

    Precisaria de um código que quando abrir o formulário, ele faça a leitura de uma tabela x e procure o valor y, caso encontre me retorna uma ação, caso não, outra!

    Obrigado mesmo assim! Tenha um bom dia!
    avatar
    CrisMaleta
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 100
    Registrado : 20/08/2013

    Executar ação ao trocar dia Empty Re: Executar ação ao trocar dia

    Mensagem  CrisMaleta 13/9/2013, 12:45

    Fala Kelvin....

    Cara...
    Da forma que você está propondo, não tem outra forma, a não ser, trabalhar com registro em tabela.... por isso a opção do Claudio não é viável!!!!
    Você está trabalhando com tabelas vinculadas ou desvinculadas????

    Partindo do princípio que são vinculadas e indo direto ao ponto, você pode usar assim......

    dim inExisteRegistro as integer

    'Verifica se existe algum registro na tabela, levando em consideração a data atual.
    inExisteRegistro = nz(dcount("NomeDeUmCampoChave", "NomeDaTabela", "NomeDoCampoComData = " & date()),0)
    'Decide qual ação tomar, caso exista registro na tabela.
    if inExisteRegistro = 0 then
    'Executa o código quando não existe registro do dia atual.
    else
    'Executa o código quando existe registro do dia atual.
    end if


    Em tempo.....
    Você já possui algum código referente a sua dúvida???
    Poderia facilitar na ajuda!!!!

    Testa lá e vê se matamos o pepino!!!!

    Desde já agradeço....

    Abraço a todos!!!!!!!

    avatar
    Killerz
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 28
    Registrado : 06/09/2013

    Executar ação ao trocar dia Empty Re: Executar ação ao trocar dia

    Mensagem  Killerz 13/9/2013, 12:56

    Ficava melhor com um exemplo do que você quer, não entendi muito bem... Mas se é o que entendi, é só voce criar um recordset (SELECT *campoDaTabela* from tabelaX where *campodaTabela* = valorY) ai faz um "if recordset.RecordCount > 0" (ou seja, se existir um valor) executa sua acao, "else" executa sua outra acao. isso tudo no evento fom_load do seu formulário... Se não entender, edito o código assim que puder, agora estou meio corrido aqui rsrs..
    Cláudio Machado
    Cláudio Machado
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1633
    Registrado : 17/03/2011

    Executar ação ao trocar dia Empty Re: Executar ação ao trocar dia

    Mensagem  Cláudio Machado 13/9/2013, 14:00

    Bom adia a todos.
    Bem a explicação do Kevin não foi bem detalhada, por isso postei este exemplo de código, ele utiliza nomes sem citar o código, o ideal seria postar uma do sistema ou exemplo pra gente poder ajudar ou ser mais especifico.



    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  AQUI.
    Não esqueça de clicar no Joinha Executar ação ao trocar dia 90dssg para agradecer a dica que solucionou seu problema.

    Conteúdo patrocinado


    Executar ação ao trocar dia Empty Re: Executar ação ao trocar dia

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 21:29