Ir para conteúdo
Fórum Script Brasil
  • 0

(Resolvido) (Resolvido) Data fica trocada


Luis Castro

Pergunta

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 por Luis Castro
Link para o comentário
Compartilhar em outros sites

7 respostass a esta questão

Posts Recomendados

  • 0

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

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,7k
×
×
  • Criar Novo...