[Resolvido] Inserir na BD a hora e a data automáticamente.

Boa-tarde,

Existe alguma forma de :

Ter um formulário, e existir nesse formulário duas caixas de texto, e nessas caixas de texto, aparecer numa a hora exacta do computador e na outra a data ?

E depois ter um botão de guardar a data/hora na BD ?


Sei que dá para criar uma mascara numa caixa de texto, mas ai tem que se inserir a hora e data do momento à mão, resumidamente queria que guarda-se na BD a hora e data que foi feita a inserção.

Aguardo sugestões e ajudas.

Obrigado, Miguel Freitas

http://maximoaccess.forumeiros.com/t213-quem-introduziu-quem-alterou

http://maximoaccess.forumeiros.com/t530-registra-um-historico-de-alteracoes

http://maximoaccess.forumeiros.com/t526-resolvidohistorico-de-alteracoes

http://dl.dropbox.com/u/771097/RegistraAlteracoes_II.rar

Boas JPaulo, realmente este faz exactamente o que eu quero, guarda a hora e a data.

Onde está a parte do código LogData ?

Veja nas propriedades do botão Salvar e não só.

Mexa e remexa até conseguir, esse é o caminho das pedras.

JPaulo, já virei o access ao contrário, e não consigo : s

Não me poderia dizer onde está o código , ou como se faz ? Agradecia muito

Sei que o valor do campo LogData é a variável Now(), mas onde é que ela actua ?

Você entrou nas propriedades do botão Salvar ?

Viu a instrução:

strSQL = "INSERT INTO tblLog (Utilizador, LogData, NomeForm, NomeCampo, ValorAntigo, ValorAtual, Status) Values('" & strUser & "', Now(),'" & Me.Form.Name & "','" & ctl.Name & "','" & ctl.OldValue & "','" & ctl.Value & "','" & "Registro Alterado" & "')"

Sim, claro que vi. Porque ?

strSQL = "INSERT INTO tblLog (LogData) Values(Now())"

Fica assim , é ?

Sem duvida que sim.

Tem de incluir, um campo na sua tabela em formato Data/Hora e no seu Insert fazer igual ao exemplo.

No seu caso seria;

CurrentDb.Execute "INSERT INTO [vendas] (ref,qt,CampoDataHora) VALUES ('" & xREF & "'," & xQT & ", Now())"

Ou no seu UPdate;

DoCmd.RunSQL "Update produtos set [produtos].[stock] = [produtos].[stock] - " & xQT & ", [produtos].[CampoDataHora]=Now() where [produtos].[ref]='" & xREF & "'"

Boa, deu

Só que aconteceu uma estupidez, apaguei todos os dados da tabela vendas, e se eu quiser registar uma venda não deixa, dá este erro:

"Invalid use of Null"

e dá erro aqui :

xREF = Me.ref.Value

mas se eu for a tabela vendas, e meter à mão, a referencia A e 2 na quantidade, depois se eu quiser confirmar uma venda no formulário já consigo, ou seja, se não existir venda nenhum efectuada daquela referencia não deixa abrir ....

Mas não estupidez o facto de eu ter apagado as vendas todas, porque mais para a frente, vou querer fazer um processo assim:

Todos os dias às 00:00 apaga os registos do dia anterior..

Dim xREF As String
Dim xQT, xStock As Integer
On Error Resume Next

xQT = Me.qt.Value

If IsNull(xREF) Then
xREF = "A"
Else
xREF = Me.ref.Value
End If

O erro não aparece, mas não acontece nada .... confirmo a venda e nada, fecha o form só...

Utilize o comando Save, quando estiver a efectuar a venda, o erro do Null é porque você ainda não tem os dados na tabela.

DoCmd.RunCommand acCmdSave

Este tópico resolve automaticamente o erro que referia acima :
http://maximoaccess.forumeiros.com/t2487-resolvido-cancelar-se-o-resultado-da-subtracao-for-menor-que-0


a resolução deste actual tópico é :

strSQL = "INSERT INTO nome_tabela (LogData) Values(Now())"


Obrigado JPaulo por me ter ajudado mais uma vez

Obrigado pelo retorno o forum agradece.