Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Textbox do campo data retorna com formato de mm/dd/yyyy

Esclarecimentos e dúvidas sob o Modelo de Aplicativo de Cadastro em VBA no Microsoft Excel publicado no site e blog http://www.tomasvasquez.com.br
Alessandro.Alberti
Acabou de chegar
Acabou de chegar
Mensagens: 3
Registrado em: Sex Jan 26, 2018 10:56 am

Textbox do campo data retorna com formato de mm/dd/yyyy

Mensagem por Alessandro.Alberti »

Boa tarde pessoal, sou novo no fórum precisei alterar o códi de um form mais ele retorna a data com outro formato.
A data no textbox entra com dd/mm/yyyy mais depois que salva e navego no formulario ela vem com o mm/dd/yyyy.

Já utilizei as duas formas

ActiveCell.Offset(0, 12).Value = Format(txt15.Value, "dd/mm/yyyy")
ActiveCell.Offset(0, 12).Value = Format(txt27.Value, "dd/mm/yyyy")

txt15.Value = Format(txt15.Value, "DD/MM/YYYY")
txt27.Value = Format(txt27.Value, "DD/MM/YYYY")



Tambem coloquei no anexo o arquivo todo.


Agradeço a ajuda.

Obrigado
Anexos
Formulário Padrão Portabilidade PF v3.rar
(123.17 KiB) Baixado 471 vezes
Editado pela última vez por Alessandro.Alberti em Sex Jan 26, 2018 3:32 pm, em um total de 1 vez.


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


srobles
Jedi
Jedi
Mensagens: 805
Registrado em: Qua Mai 06, 2015 7:39 pm

Re: Textbox do campo data retorna com formato de mm/dd/yyyy

Mensagem por srobles »

Alessandro.Alberti,

Isso está ocorrendo pois quando se efetua um novo cadastro, o campo que recebe a data recebe o valor com padrão americano. Logo, ao retornar as informações deste cadastro, o campo respeita esta formatação.

Experimente substituir o trecho de código :

Código: Selecionar todos

ActiveCell.Offset(0, 12).Value = Format(txt15.Value, "dd/mm/yyyy")
ActiveCell.Offset(0, 12).Value = Format(txt27.Value, "dd/mm/yyyy")
em suas rotinas de gravação, para :

Código: Selecionar todos

ActiveCell.Offset(0, 12).Value = Format(txt15, "DD/MM/YYYY")
ActiveCell.Offset(0, 12).Value = Format(txt27, "DD/MM/YYYY")
Em meus teste, esta simples mudança realizou o cadastro com as datas corretas.

Abs


Alessandro.Alberti
Acabou de chegar
Acabou de chegar
Mensagens: 3
Registrado em: Sex Jan 26, 2018 10:56 am

Re: Textbox do campo data retorna com formato de mm/dd/yyyy

Mensagem por Alessandro.Alberti »

Obrigado pela ajuda,
Fiz a alteração e quando ele carrega os dados no form e eu navego pelos registros ele mostra invertido.

O problema persiste.


srobles
Jedi
Jedi
Mensagens: 805
Registrado em: Qua Mai 06, 2015 7:39 pm

Re: Textbox do campo data retorna com formato de mm/dd/yyyy

Mensagem por srobles »

Alessandro.Alberti,

Experimente formatar as colunas da planilha como Texto e mantenha as instruções do formulário que postei anteriormente.

Abs


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Alessandro.Alberti
Acabou de chegar
Acabou de chegar
Mensagens: 3
Registrado em: Sex Jan 26, 2018 10:56 am

Re: Textbox do campo data retorna com formato de mm/dd/yyyy

Mensagem por Alessandro.Alberti »

Obrigado, agora deu certo.


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder