(Resolvido) (Resolvido) Data fica trocada

[Luis Castro]

Boas a todos e muito especial ao MrMALJ

Depois de me resolveres a questão da minha base de dados em access 2003, da qual deixo aqui o link para te lembrares RESOLVIDO

Na altura não verifiquei a data, e a questão é que introduzo 03-09-2010 e na base de dados fica 09-03-2010, aparece o mês primeiro que o dia. Já vi as minha configurações regionais e está tudo ok.

Já fiz imensas alterações e não consegui resolver, será que me podes ajudar.

1abraço

Editado Setembro 5, 2010 por Luis Castro

[Humm]

verifique a mascara de entrada e o formato de data na tabela e no form.

[Luis Castro]

Já vi isso tudo Humm, e está tudo bem.

Pelo menos penso que está.

Isto é uma base de dados de lançamentos de recibos, na parte de lançar recibo a recibo está ok.

Tem uma parte que gera recibos automaticamente, e é nessa que fica mal.

1abraço

[Humm]

voce tem q ver etapa por etapa..

por ex.. abrir a tabela e ver se ta ok o formato.

abrir consulta e ver

em algum lugar o formato ta mudando, saca?

[Alexandre Neves]

Boa tarde,

Veja agora

Dim inicio, final As Variant

Dim strSql As String

If Not IsNull(Me.txtVend) And Not IsNull(Me.txtData) And Not IsNull(Me.txtIni) And Not IsNull(Me.txtQtd) Then

DoCmd.SetWarnings False

inicio = Me.txtIni

final = Me.txtIni + Me.txtQtd

While inicio <= final

Let strSql = "insert into tstMALJ (recData,recVendedor,recNumero) values(#" & Format(Me.txtData,"dd-mm-yyyy") & "#,'" & Me.txtVend & "','" & inicio & "')"

DoCmd.RunSQL strSql

inicio = inicio + 1

Wend

DoCmd.SetWarnings True

MsgBox "Geração automática Concluída!", vbOKOnly + vbInformation, " Mr. MALJ"

Else

MsgBox "Para geração automática de recibos é necessário informar todos os Requisitos!", vbOKOnly + vbInformation, " Mr. MALJ"

End If

[Luis Castro]

Obrigado ao Alexandre Neves e ao Humm

Mas fiz como vocês dizem e não resolveu.

Continua a gerar a data trocada.

[Alexandre Neves]

Veja se será assim

Format(Me.txtData,"mm-dd-yyyy")

[Luis Castro]

Obrigado amigo Alexandre Neves

Fiz como disseste, e já está bem. Ok.

Muito obrigado, grande abraço