[Resolvido]Ao exportar campos do formulário para uma tabela, a data vai invertida...de dd/mm/aaaa para mm/dd/aaaa

Prezados, boa tarde.

O título diz tudo. Ao clicar em uma caixa sim/não eu exporto para uma tabela (recebidos) os dados que são:

a-valorr
b-data
c-nome
d-idcliente

Eis o código, elaborado pelo Meste JPaulo.

Dim strsql As String, strSQL1 As String
'by JPaulo - maximoaccess.forumeiros.com

'Primeira validação, se está preenchido, se tiver vazio não passa daqui
If IsNull(Me.data1) Or IsNull(Me.valor1) Then Exit Sub

'Segunda validação, pela mensagem
If MsgBox("Cliente realizou esse pagamento?", vbYesNo + vbQuestion, "FASER CAR") = vbNo Then

'Se a resposta for Não, desmarca a checkbox e a instrução morre aqui
Me.Foipago1.Value = 0
Exit Sub
'Se for Sim, então faz um Insert na tabela recebidos, somente aos campos correspondentes
Else
DoCmd.RunCommand acCmdSaveRecord
strsql = "INSERT INTO recebidos (Idcliente,Nome,Data,Valorr) Values (" & Me.Idcliente.Value & ",'" & Me.Nome.Value & "', #" & Me.data1.Value & "#, " & Me.valor1.Value & ")"
CurrentDb.Execute strsql

'Devolve mensagem de confirmação
MsgBox "Confirmado o pagamento realizado pelo cliente !", vbOKOnly + vbInformation, "FASER CAR"

'Limpa dados originais
Me.data1.Value = ""
Me.valor1.Value = ""
Me.Foipago1.Value = 0


DoCmd.RunCommand acCmdSaveRecord
DoCmd.RunCommand acCmdRefresh
DoCmd.GoToRecord , , acNewRec
End If
End Sub

O que está ocorrendo é que quando exporto esses dados para outra tabela ( recebidos) a data de pagamento está indo invertida.
Em vez de ir: 04/12/2012 que seria o certo, esta indo 12/04/2012 para a tabela.
Pois eu preciso demostrar o quanto entrou na empresa por dia e por período quer ele semanal,quinzenal, semestral ou anual.

Já refiz as duas tabelas e nada de dar certo.

Alguém, por algum acaso, já teve esse tipo de problema em mãos ?

Grato desde já pelas respostas !

Verifique o formato da data nas propriedades do campo na tabela.

Criquio já fiz isso, em ambas tabelas se encontram..... data abreviada, formato dd/mm/aaaa. Inclusive fui até no painel de controle, opções regionais, personalizar data/hora. Esta tudo certinho.

Sinceramente, estou perdidinho da silva xavier !

Senhores.....será que alguém pode me dar uma luz ???

Silvio

Quatro olhos conseguem ver melhor que dois.
Poste ai para a gente ver.
Estou no aguardo, e veja se me pode dar uma ajuda no Corretor de Dados em tabelas

Mestre Assis, como tens ido ?

Penhorado lhe sou pela tua resposta !

Bom vamos lá então, para ver o problema, temos que seguir alguns passos antes. Vamos a eles:

a- clicar no ícone "cadastrar clientes" na menu principal.
b- ao entrar, vai estar tudo travado, vá até a combo "buscar cliente" e escolha um qualquer. O formulário vai ser preenchido.
c- clicar, no menu acima do formulário( detalhes ) o botão "Cadastrar O.S.".
d- clicar em ok na caixa de mensagens e quando abrir o formulário de O.S. inserir a "data da ordem de serviço" para o formulário ser preenchido.
e- no subformulário a primeira coluna é tipo de serviço( combo ) a segunda é preenchida de acordo com o gosto do usuário e a terceira é o preço do serviço prestado. Preencha ela( a terceira ) com qualquer valor que queria.
f- salve essa ordem de serviço.
g- para encerrar ela, clicar em "Encerrar O.S." - essa ordem vai ser exportada para uma outra tabela.
h- feche tudo e volte para o menu principal.
i- entre em "contabilidade"....escolha agora "contas a receber"....agora escolha "cadastro de contas a receber"
j- na combo "buscar cliente" estará o cliente que vai ser cadastrado para iniciar o procedimento de pagamento.
k- na combo "condição de pagamento" escolha algum tipo de pagamento qualquer. Salve esses valores.
l- retorne novamente ao menu de contabilidade e clica no ícone "Baixar CR".

******************************************************************************************************************************

A partir de agora é que começa o problema.

vamos lá:

1- ao abrir o formulário, escolha na combo "buscar conta" a pessoa que fora cadastrada antes.
2- irá aparecer todas as condições antes cadastradas.
3- escolha uma qualquer e clica em "confirma Pgto ?". Esses valores são exportados para a tabela " Recebidos".
4- ao abrir essa tabela, teremos a data invertida. A data correta era para ser: dd/mm/yyyy mas está indo mm/dd/yyyy

Desculpe-me ser um pouco longo na explicação, mas acredito que quanto mais claro formos, mais fácil será entender a lógica da coisa.

Haja bem para si !

Aguardo tua resposta.

Ps...o projeto está feito em AC2007.

Assis...

Se precisar em Ac2003 cá está ele.

vou dar uma olhada lá também na tua questão.....

Silvio
Teste

Altera para:

strsql = "INSERT INTO recebidos (Idcliente,Nome,Data,Valorr) Values (" & Me.Idcliente.Value & ",'" & Me.Nome.Value & "', #" & Format(data1, "YYYY/MM/DD") & "#, " & Me.valor1.Value & ")"



Quanto ao meu exemplo
Seleciona a Tabelas - Dados
DEpois em baixo seleciona - Destino

Quando clicar na caixa substituis tem que aparecer Teste

Assis, perfeito !

Exportação ocorrendo de forma correcta agora.

Muito obrigado mesmo. Abraços.

Obrigado pelo retorno

E a minha duvida ?

Assis, bom dia a si !

deu erro na data ao exportar novamente.

Mas fiz a correcção da seguinte maneira:

strsql = "INSERT INTO recebidos (Idcliente,Nome,Data,Valorr) Values (" & Me.Idcliente.Value & ",'" & Me.Nome.Value & "', #" & Format(data1, "mm\/dd\/yyyy") & "#, " & Me.valor1.Value & ")"

e rodou legal. Pesquisei ontem a noite sobre esse bug do Acess. Eis aqui o Link. onde há mais algumas dicas.

Abraços.