CARTAO PONTO
oi pessoal estou tentando criar um relogio ponto de funcionario mas infelizmente nao acerto a rotina para salvar a data e hora no meu bd(access) no meu form elas sao exibida em textbox, como posso salvar a data e hora no meu bd ao clicar em um botao.
segue minha rotina porem parace que nao acontece nada.
segue minha rotina porem parace que nao acontece nada.
Private Sub cmdregistrar_Click()
datadomeusistema = Format(Now, [Ô]dd,mm,yyyy[Ô])
horadomeusistema = Format(Now, [Ô]h:mm:ss[Ô])
Data1.RecordSource = [Ô]Insert into funcionario(data,entrada,nome)values(datadomeusistema, horadomeusistema,nome)[Ô]
End Sub
Antes de mais nada, sugiro que utilize ADO ao invés de CONTROLE VINCULADO.
Depois desta alteração, ficará MUITO mais fácil de implementar a rotina que deseja.
Se precisar é só falar.
Depois desta alteração, ficará MUITO mais fácil de implementar a rotina que deseja.
Se precisar é só falar.
Amigo para voce botar um relogio dentro de um txt
voce poem um timer na tela e no
campo intervalo 1
coloca esse codigo dentro dessa procedure
Private Sub Timer1_Timer()
Textseucampohora.Text = Time
End Sub
agora no Load do Formulario voce coloca
Textseucampodata.Text = Date
no ACCESS
voce tem varias opcoes , o pro cartao tb,
se voce vai guardar Data com Hora juntos ou somente data ou somente Hora, ou entrada e saida
resumindo
se voce for dar um insert sera somente na entrada ,
e depois verificar novamente se existe entrada grava a saida no mesmo registro
as vezes voce precisa gravar 1 campo data , horaentrada hora saida
ou mesmo gravar 1 registro como entrada e depois outro registro como saida
o modo a qual destinar influenciara nos codigos posteriores , como faltas . pensar quais comandos se encaixam melhor
Abs
Marcelo
voce poem um timer na tela e no
campo intervalo 1
coloca esse codigo dentro dessa procedure
Private Sub Timer1_Timer()
Textseucampohora.Text = Time
End Sub
agora no Load do Formulario voce coloca
Textseucampodata.Text = Date
no ACCESS
voce tem varias opcoes , o pro cartao tb,
se voce vai guardar Data com Hora juntos ou somente data ou somente Hora, ou entrada e saida
resumindo
se voce for dar um insert sera somente na entrada ,
e depois verificar novamente se existe entrada grava a saida no mesmo registro
as vezes voce precisa gravar 1 campo data , horaentrada hora saida
ou mesmo gravar 1 registro como entrada e depois outro registro como saida
o modo a qual destinar influenciara nos codigos posteriores , como faltas . pensar quais comandos se encaixam melhor
Abs
Marcelo
tipo
2 tabelas
1 funcionario e outra 1 frequfunc
relaciono no Acess , id do funcionario com id funcionario na tabela de frequenciasfunc
tipo impor integridade referencial
tipos de associacao 2 coloco 2
propagar exclusao de registro relacionados assim , se deletar 1 funcionario deleta todas frequencias
ficando relacao 1 para muitos
na tabela de frequencia ,
o campo dtdia - Coloco como data / hora - e na opcao formato Data Geral DDMMAAAA
o campo hora - Coloco como data / Hora - e na opcao Formato Hora completa HHMMSS
seria por ai no ACCESS
2 tabelas
1 funcionario e outra 1 frequfunc
relaciono no Acess , id do funcionario com id funcionario na tabela de frequenciasfunc
tipo impor integridade referencial
tipos de associacao 2 coloco 2
propagar exclusao de registro relacionados assim , se deletar 1 funcionario deleta todas frequencias
ficando relacao 1 para muitos
na tabela de frequencia ,
o campo dtdia - Coloco como data / hora - e na opcao formato Data Geral DDMMAAAA
o campo hora - Coloco como data / Hora - e na opcao Formato Hora completa HHMMSS
seria por ai no ACCESS
pessoal num tem como me manda um exemplo de como faço para adicionar hora/data em acces.
assim
assim irá funcionar, desde que no banco de dados os campos data, entrada sejam do tipo data/hora, e o campo nome do tipo texto
Private Sub cmdregistrar_Click()
Dim DataSistema As Date
Dim HoraSistema As Date
Dim Nome As String
DataSistema = Format(Date, [Ô]mm/dd/yyyy[Ô])
HoraSistema = Format(Time, [Ô]hh:nn:ss[Ô])
Nome = [Ô]Marcelo[Ô]
Data1.RecordSource = [Ô]Insert into funcionario(data,entrada,nome)values(#[Ô] & datadomeusistema & [Ô]#,#[Ô] & horadomeusistema & [Ô]#,[ô][Ô] & Nome & [Ô][ô])[Ô]
End Subassim irá funcionar, desde que no banco de dados os campos data, entrada sejam do tipo data/hora, e o campo nome do tipo texto
Sugiro que mude o nome do campo DATA, (palavra reservada)
um abraço!
um abraço!
Tópico encerrado , respostas não são mais permitidas