Registrar Data e hora ao clicar

[Exacon]

Pessoal, pretendo fazer um "cartão de ponto" no acess, e gostaria de criar um botao em um formularios que ao clicar, registrasse a data e hora em uma coluna.

Formulario

Nome do Funcionário

[Combo ] Aqui o funcionários escolheria o nome e apertaria OK

[botão OK]

Tabela_Ponto

Data_hora nome

12/10/2010 12:45:25 João

12/10/2010 17:48:00 Maria

13/10/2010 12:16:23 João

[Humm]

no envento "ao clicar" do botao escolha procedimento de evento e aperte no botao ao lado pra invocar o VBA

la no vba, dentro do procedimento seubotao_OnClick coloque

me.CampoQueVaiArmazenarDataHora = now()

só isso!

now() -> data e hora

date -> data

time -> hora

format(date , "DD/MM/YY") -> data em formato Dia/Mes/Ano

[Exacon]

Humm obrigado pelas informações. No final de semana farei o teste com esta. Abraços

[Exacon]

Cara.. .testei e deu tudo certo..

Agora apareceu um novo problema.

Como o funcionário tem que bater o ponto na entrada do dia e saida para o almoço, depois entrada do almoço e saida no final do dia, pretendo com um único botão, que o sistema "verificasse" se o campo anterior já tem horário registrado, e registrasse o horário no próximo campo. Assim o funcionário utilizaria um unico botão para bater todos os horários.

Seria algo assim. Uma tabela com 6 Campos

Nome do funcionario Data Horário01 Horário02 Horário03 Horario04

A cada batida do funcionário, o sistema faria a seguinte análise.

Se (Data ) em branco, registrar Data e Horário01, Se(horário01) com dados, registrar dados em campo horario02, Se (horario02) com dados, registrar em Campo Horário03, se (Horário03) com dados, registrar em campo Horário04, se (Horario04) com dados, não registrar mais batida no dia.

Abraços

[MrMALJ]

Utilize a função dlookup() para fazer a verificação para você (existem muitos exemplos no forum utilize a busca) dai basta fazer as comparações que julgue necessária.

[Humm]

fazendouma analise, não precisa ter 4 campos distintos para cada horario..

faça apenas 1 campo mesmo.. saca?

tipo:

cod_funcionario data hora

teoricamente, você sabe que na mesma data:

primeiro horario = entrada

segundo = saida almoco

terceiro = retorno

quarto = saida

agora, so mais uma dica..

sistema de ponto com botao n tem validade alguma juridica.

se você quer um sistema que seja aceito juridicamente, deve ter um sistema de autenticacao valido.

hj praticamente o que é mais aceito é a biometria.

compre um leitor biometrico de digital.. adapte a sua aplicacao.. de forma que o cara simplesmente poe o dedao la, o sistema já sabe quem é e já faz o ponto. saca?

Editado Dezembro 9, 2010 por Humm

[Exacon]

Puxa vida... saquei..

Precisaria de 2 regras principais. ( que não sei como fazer )

1ª Cada vez que o funcionário clicar, o sistema gravasse em campos distintos. No primeiro exemplo que você me passou, ele fica gravando o horário no mesmo campo.

2º Que o sistema aceitasse que "batesse" o ponto, somente em um determinado intervalo de tempo. Tem funcionário que bate em duplicidade

Sobre o leitor digital não faço idéia como fazer, sei pouco ainda no access. Talvez depois do funcionamento normal, eu comece a aventurar com o leitor.

Abraços

[Humm]

sim.. no mesmo campo.. porem em registros diferentes

cada vez que ele acionar..

vai criar um registro com o codigo de id dele, a data e a hora

para evitar duplicidade, só criar uma rotina no vb

vai precisar de uma consulta para fitrar pelo funcionario e pela data atual.

ai na rotina antes de inserir do formulario:

'abaixo soma-se o ultimo horario lançado + 1 hora e compara-se com o horario atual
if time < (dlookup("[ultima_hora_lancada]" , "consulta_ultima_hora") + 1) then
msgbox "Marcação já realizada"
end if

[Exacon]

Cara.. vc. é fera...

Valeu... vou testar a noite..

abraços