Amigos, estou tentando gravar uma data de um formulário, mas ela inverte o dia e o mês. Estou usando:
Dim n_ficha As String
n_ficha = Format([fichaN], "00000000")
Dim c_data As Date
c_data = format([datacomp], "dd/mm/yyyy")
Dim c_hora As Date
c_hora = horacomp
DoCmd.SetWarnings False
DoCmd.RunSQL "INSERT INTO comparecimento (fichaN, datacomp, horacomp) VALUES (" & n_ficha & ", #" & c_data & "#, #" & c_hora & "#)"
DoCmd.SetWarnings True
Na tabela também coloquei formato dd/mm/yyyy.
Meu access é o 2007.
Agradeço muito a ajuda.
Dim n_ficha As String
n_ficha = Format([fichaN], "00000000")
Dim c_data As Date
c_data = format([datacomp], "dd/mm/yyyy")
Dim c_hora As Date
c_hora = horacomp
DoCmd.SetWarnings False
DoCmd.RunSQL "INSERT INTO comparecimento (fichaN, datacomp, horacomp) VALUES (" & n_ficha & ", #" & c_data & "#, #" & c_hora & "#)"
DoCmd.SetWarnings True
Na tabela também coloquei formato dd/mm/yyyy.
Meu access é o 2007.
Agradeço muito a ajuda.