Pessoal, bom dia/tarde/noite.
Fiz a pesquisa aqui no fórum sobre o problema de salvar data no formato USA mas nenhuma das soluções corrigiu o problema.
O meu problema é o seguinte:
Faço o cadastro do registro novo no BD com a data no formato dd/mm/aaaa, sem problemas.
Ocorre que preciso de atualizar essa data em determinado momento.
Uso uma textbox (txDataBaixa) com a função DATE para pegar a data atual.
E coloco o UPDATE para atualizar o registro
Mas a data que está no formato dd/mm/aaaa no UPDATE sempre salva como mm/dd/aaaa na tabela.
Já coloquei direto no SQL Me.txDataBaixa e não resolveu.
Algum forma de resolver isso???
private sub btSalvar_onClick()
Dim NomeResp As String, DataBaixa As Date
Debug.Print "Data TEXTBOX: " & Me.txDataBaixa
Debug.Print "Data FORMAT: " & Format(Me.txDataBaixa, "dd/mm/yyyy")
DataBaixa = Format(Me.txDataBaixa, "yyyy/mm/dd")
Debug.Print "Data TRANSF: " & DataBaixa
If MsgBox("Deseja salvar a baixa do livro?", vbYesNo, "Baixa no livro " & codigo_livro) = vbYes Then
Debug.Print "Usuário dando baixa: " & codigo_usuario
NomeResp = DLookup("UserNome", "T_Usuarios", "User_id=" & codigo_usuario)
DoCmd.SetWarnings Falsee
cmd = "UPDATE T_Livros SET [Baixa] = True, [Observacao] ='" & Me.txOBS.Value & "', [Responsavel] ='" _
& NomeResp & "',[Entrada] = #" & DataBaixa & "# WHERE [Livro_id] = " & codigo_livro
##### Resultados dos prints:
Data TEXTBOX: 12/11/2022
Data FORMAT: 12/11/2022
Data TRANSF: 12/11/2022
Ao visualizar a tabela aparece 11/12/2022
Fiz a pesquisa aqui no fórum sobre o problema de salvar data no formato USA mas nenhuma das soluções corrigiu o problema.
O meu problema é o seguinte:
Faço o cadastro do registro novo no BD com a data no formato dd/mm/aaaa, sem problemas.
Ocorre que preciso de atualizar essa data em determinado momento.
Uso uma textbox (txDataBaixa) com a função DATE para pegar a data atual.
E coloco o UPDATE para atualizar o registro
Mas a data que está no formato dd/mm/aaaa no UPDATE sempre salva como mm/dd/aaaa na tabela.
Já coloquei direto no SQL Me.txDataBaixa e não resolveu.
Algum forma de resolver isso???
private sub btSalvar_onClick()
Dim NomeResp As String, DataBaixa As Date
Debug.Print "Data TEXTBOX: " & Me.txDataBaixa
Debug.Print "Data FORMAT: " & Format(Me.txDataBaixa, "dd/mm/yyyy")
DataBaixa = Format(Me.txDataBaixa, "yyyy/mm/dd")
Debug.Print "Data TRANSF: " & DataBaixa
If MsgBox("Deseja salvar a baixa do livro?", vbYesNo, "Baixa no livro " & codigo_livro) = vbYes Then
Debug.Print "Usuário dando baixa: " & codigo_usuario
NomeResp = DLookup("UserNome", "T_Usuarios", "User_id=" & codigo_usuario)
DoCmd.SetWarnings Falsee
cmd = "UPDATE T_Livros SET [Baixa] = True, [Observacao] ='" & Me.txOBS.Value & "', [Responsavel] ='" _
& NomeResp & "',[Entrada] = #" & DataBaixa & "# WHERE [Livro_id] = " & codigo_livro
##### Resultados dos prints:
Data TEXTBOX: 12/11/2022
Data FORMAT: 12/11/2022
Data TRANSF: 12/11/2022
Ao visualizar a tabela aparece 11/12/2022