[Resolvido]Data 12/01/2014 aparece 01/12/2014 quando lançada?

lanço a data 12/01/2014 em uma tabela por consulta acrescimo e aparece 01/12/2014 ? por que? ja formatei no format e nada, algumas outras datas como 19/01/2014 não acontece isso

faço via Vba

Boa noite,
Já procurou no fórum? Lembro-me de se ter abordado várias vezes o assunto

não sei como buscar mas vou tentar

Ao tempo que frequenta o fórum, já devia ter lido este tema

mas é muito estranho, sei o format, sei Cdate,
no 1-CurrentDb.Execute "INSERT INTO datatemp( dt ) SELECT #" & Format(CDate(g), "dd/mm/yyyy") & "# AS d4"
não funciona com qualquer formatação, ou sem é sempre complicado formato de datas
e o engraçado que nas debaixo todas funciona bem simples
acrescento 3 datas e a primeira(acima) vem invertido ja a partir da segunda vem normal
a gente faz coisas dificeis e atola numa facil

uso esta função

Function f(d As Date)
Dim g As Date
g = CDate(Forms![aluguelcampo]!di)
CurrentDb.Execute "Delete * from datatemp"
1-CurrentDb.Execute "INSERT INTO datatemp( dt ) SELECT #" & Format(CDate(g), "dd/mm/yyyy") & "# AS d4"
(d, "mm") & "/" & Format(d, "yyyy")) & "# AS d4"
h = Left(Format(d, "dddd"), 3)
If h = "seg" Then
ElseIf Forms![aluguelcampo]![seg] = -1 Then
g = CDate(IIf(dias(h) < dias("seg"), d + dias("seg") - dias(h), d + 7 - (dias(h) - dias("seg"))))
CurrentDb.Execute "INSERT INTO datatemp( dt ) SELECT #" & g & "# AS d4"
End If
If h = "ter" Then
ElseIf Forms![aluguelcampo]![ter] = -1 Then
g = CDate(IIf(dias(h) < dias("ter"), d + dias("ter") - dias(h), d + 7 - (dias(h) - dias("ter"))))
CurrentDb.Execute "INSERT INTO datatemp( dt ) SELECT #" & g & "# AS d4"
End If
If h = "qua" Then
ElseIf Forms![aluguelcampo]![qua] = -1 Then
g = CDate(IIf(dias(h) < dias("qua"), d + dias("qua") - dias(h), d + 7 - (dias(h) - dias("qua"))))
CurrentDb.Execute "INSERT INTO datatemp( dt ) SELECT #" & g & "# AS d4"
End If
If h = "qui" Then
ElseIf Forms![aluguelcampo]![qui] = -1 Then
g = CDate(IIf(dias(h) < dias("qui"), d + dias("qui") - dias(h), d + 7 - (dias(h) - dias("qui"))))
CurrentDb.Execute "INSERT INTO datatemp( dt ) SELECT #" & g & "# AS d4"
End If
If h = "sex" Then
ElseIf Forms![aluguelcampo]![sex] = -1 Then
g = CDate(IIf(dias(h) < dias("sex"), d + dias("sex") - dias(h), d + 7 - (dias(h) - dias("sex"))))
CurrentDb.Execute "INSERT INTO datatemp( dt ) SELECT #" & g & "# AS d4"
End If
If h = "sáb" Then
ElseIf Forms![aluguelcampo]![sáb] = -1 Then
g = CDate(IIf(dias(h) < dias("sáb"), d + dias("sáb") - dias(h), d + 7 - (dias(h) - dias("sáb"))))
CurrentDb.Execute "INSERT INTO datatemp( dt ) SELECT #" & g & "# AS d4"
End If
If h = "dom" Then
ElseIf Forms![aluguelcampo]![dom] = -1 Then
g = CDate(IIf(dias(h) < dias("dom"), d + dias("dom") - dias(h), d + 7 - (dias(h) - dias("dom"))))
CurrentDb.Execute "INSERT INTO datatemp( dt ) SELECT #" & g & "# AS d4"
End If

End Function

Algumas datas têm a função aplicada, outras não. Formate ou retire a formatação nas datas que não estão como pretende

ja fiz isso, e sobre a busca, parece um labirinto de coisas que nao e exatamente o que eu preciso,
as debaixo funcionam e a primeira funciona invertido usando a mesma formataçao


veja em anexo o pepino

alguem pode ajudar!?

Acho que tem muita gente fazendo programas em Access sem ver esses detalhes, achando que é perfeito e não é, eu sempre testo muitos dados

mais uma observação, via recordset da certo sem problemas mas é bem mais complicado
e via CurrentDb.Execute "INSERT INTO datatemp( dt ) SELECT #" & data & "# AS d4"
nao da certe em algumas datas como mensionei acima,
se alguem resolver via currentdb me ajuda bastante

Colegas
desse jeito aqui deu certo aparentemente, espero que funcione em tudo
CurrentDb.Execute "INSERT INTO datatemp( dt ) SELECT #" & Format(CDate(d), "mm") & "/" & Format(CDate(d), "dd") & "/" & Format(CDate(d), "yyyy") & "# AS d4"

então eu agradeço a todos e vou dar por resolvido mas se tiverem outra solução mais simples eu agradeço mais ainda

Galera, só pra contribuir, vi na internet agora em um site em ingles

CurrentDb.Execute "INSERT INTO datatemp( dt ) SELECT #" & Format(data, "mm\/dd\/yyyy") & "# AS d4"

da certinho

quando for usar currentdb.execute "SQL"
tem que ser assim se nao inverte

valeu a todos e obrigado

Já agora podias postar a bd para consulta da malta.

tai o exemplo simples com o codigo funcionando

ta ai onde???

olha la de novo, tinha me esquecido do anexo
é so um expmplo da funçao

agora se quiseres ver meus exemplos de programas
adicione meu skype "cleberaccessgo"
pois aqui nao pode colocar exemplos grandes