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


3 participantes

    evento ao clicar

    avatar
    missura
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 48
    Registrado : 22/05/2012

    evento ao clicar Empty evento ao clicar

    Mensagem  missura 17/12/2012, 13:16

    bom dia.
    galera, duvida
    tenho uma tabela com o campo data.
    eu quero criar um botao para o usuario clicar nesse momento gerar o evento que preencha o campo data da tabela com a data/hora atual.

    abraço
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    evento ao clicar Empty Re: evento ao clicar

    Mensagem  criquio 17/12/2012, 14:18

    Me.NomeDoCampo = Date


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    missura
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 48
    Registrado : 22/05/2012

    evento ao clicar Empty Re: evento ao clicar

    Mensagem  missura 17/12/2012, 15:14

    Criquio, boa tarde

    Private Sub Comando1_Click()
    Me.entrada = Date
    End Sub

    nao funcionou no evento ao clicar.
    tenho que por o nome da tabela?

    o campo chama "entrada"
    a tabela se chama "Tabela1"

    esse botao quero usar como um controle de ponto dos funcionarios.. no caso vou criar 4 botoes para que ao clicar registre na tabela a data e hora do clique.
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    evento ao clicar Empty Re: evento ao clicar

    Mensagem  criquio 17/12/2012, 15:28

    Não tem esse campo vinculado no formulário? Se sim, esse seria o procedimento. Caso a gravação seja feita via código, tem que passar o código do registro em uma instrução SQL. Algo como:

    Código:
    CurrentDb.Execute "UPDATE NomeTabela SET NomeCampo=#" & Format(Now, "General Date") & "# WHERE Código=" & Me.Código & ""
    Isso para o caso de estar atualizando um registro já existente. Se for para inserir como novo registro, aí seria com INSERT ao invés de UPDATE.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    missura
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 48
    Registrado : 22/05/2012

    evento ao clicar Empty Re: evento ao clicar

    Mensagem  missura 17/12/2012, 17:04

    Criquio, vou add caixas de texto ai consegui fazer o botao funcionar. duvida para aparecer data e hora o que muda no final do codigo?

    Private Sub Comando1_Click()
    Me.entrada = Date
    End Sub

    abraço
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    evento ao clicar Empty Re: evento ao clicar

    Mensagem  criquio 17/12/2012, 17:11

    Observe o meu post anterior que você irá perceber...


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    missura
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 48
    Registrado : 22/05/2012

    evento ao clicar Empty Re: evento ao clicar

    Mensagem  missura 17/12/2012, 17:22

    Criquio, vi o post com a instrução sql, eu fiz o seguinte no formulario criei uma caixa de texto que liga ao campo da tabela. no caso o botao funcionou, porem ele colocou somente a data, precisaria que colocasse data e hora.
    ai como fica o codigo/
    Me.entrada = Date
    Lupércio
    Lupércio
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1143
    Registrado : 07/05/2011

    evento ao clicar Empty Re: evento ao clicar

    Mensagem  Lupércio 20/12/2012, 23:16

    Experimente assim:

    Private Sub comando1_Click()
    Me.Entrada = Now()
    End Sub

    Esqueça a caixa de texto!

    Conteúdo patrocinado


    evento ao clicar Empty Re: evento ao clicar

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 20:47