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]Automatização com datas

    Compartilhe

    marcomantuano
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 28
    Registrado : 07/02/2016

    [Resolvido]Automatização com datas

    Mensagem  marcomantuano em Qua 10 Fev 2016, 12:28

    Amigos,
    Estou tentando criar uma automatização em formulário do access através de código VBA.
    Não entendo quase nada de VBA, mas estou me esforçando para aprender..
    Este código me foi fornecido por um colega deste fórum para uma situação idêntica em outro formulário, porém quando tento copiar o código para outro acontece um resultado diferente. Entendo que não é exatamente a mesma situação, mas tentei fazer a mesma coisa no mesmo formulário e o resultado foi igual. Vamos lá:
    Tenho um formulário onde tenho uma caixa de seleção vinculada a um campo de uma tabela sim/não. Ao lado tenho uma caixa de texto, também vinculada a mesma tabela... Preciso que ao clicar na caixa de seleção desmarcando-a (transformando o que está com padrão "sim" em "não) automaticamente a caixa de texto mostre a data de hoje, ou seja, a data que o registro foi alterado de sim para não... Acontece que com o código abaixo a data que aparece é 30/12/1889... O que falta para resolver isso. O código está correto, mas falta fazer alguma coisa. O que seria?
    Eis o código:
    Option Compare Database

    Private Sub Ativar_Desativar49_Click()
    Me.AllowEdits = True
    End Sub

    Private Sub Ativo_Click()
    If Me.Ativo.Value = 0 Then
    Me.Desligado_em.Value = txtdataatual
    Else
    Me.Desligado_em = Null

    End If
    End Sub

    Private Sub Form_Current()

    End Sub

    Private Sub Form_Open(Cancel As Integer)
    DoCmd.Maximize
    End Sub

    Private Sub NOME_DO_ALUNO_BeforeUpdate(Cancel As Integer)

    End Sub

    Private Sub NOME_DO_ALUNO_Enter()

    End Sub

    Private Sub novo_Click()

    End Sub

    Podem me ajudar? No No No

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    Registrado : 04/11/2009

    Re: [Resolvido]Automatização com datas

    Mensagem  JPaulo em Qua 10 Fev 2016, 14:06

    Simples, mas não no evento ao pressionar, é no evento depois de atualizar,

    Private Sub Ativo_AfterUpdate()
    If Me.Ativo.Value = 0 Then
    Me.Desligado_em.Value = Date()
    Else
    Me.Desligado_em = Null
    End If
    End Sub


    .................................................................................
    Sucesso e Bons Estudos
    Success and Good Studies

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

    marcomantuano
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 28
    Registrado : 07/02/2016

    Re: [Resolvido]Automatização com datas

    Mensagem  marcomantuano em Qua 10 Fev 2016, 14:27

    Obrigado J Paulo,
    Quando chegar em casa vou testar. Me chamou a atenção que ao invés de usar txtdataatual você usou date().
    Quanto ao evento, vou testar também e posto o resultado aqui

    marcomantuano
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 28
    Registrado : 07/02/2016

    Re: [Resolvido]Automatização com datas

    Mensagem  marcomantuano em Qua 10 Fev 2016, 19:49

    100%%%

    obrigado!!

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    Registrado : 04/11/2009

    Re: [Resolvido]Automatização com datas

    Mensagem  JPaulo em Qui 11 Fev 2016, 14:13

    Obrigado pelo retorno o forum agradece.


    .................................................................................
    Sucesso e Bons Estudos
    Success and Good Studies

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

      Data/hora atual: Dom 04 Dez 2016, 12:14