MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


3 participantes

    Corrigir formato de data em código vba

    mathusalmeida
    mathusalmeida
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 264
    Registrado : 30/08/2011

    Corrigir formato de data em código vba Empty Corrigir formato de data em código vba

    Mensagem  mathusalmeida 6/4/2014, 12:02

    Olá a todos do fórum.

    Bom, já pesquisei no fórum e li inúmeros exemplos de como formatar um campo data.

    Acontece que depois de muitas tentativas sem sucesso, estou com forte impressão que a coisa tem que ser resolvida no próprio código que estou usando.

    O código, que exibo abaixo, foi tirado aqui do fórum baseado numa aplicação do Agravina e possívelmente inspirada na aplicação do JPaulo Parcelas2008:

    Código:
    Dim I As Integer
    Dim StrDateAdd As Date
    Dim StrValorParc As Double
    Dim Parc As String
    StrValorParc = Me.txtValorMês
    For I = 1 To Me.txtParc
    StrDateAdd = DateAdd("m", 1 * I, Me.txtData)
    StrParc = I & "/" & Me.txtParc
    CurrentDb.Execute "INSERT INTO tblExemplo(CpNome, CpMatrícula, cpCompra,CpData,CpValor, CpConveniada)" _
                    & " Values(""" & tNome & """, """ & cboMatricula & """, """ & Me.txtDescricao.Value & """,#" & StrDateAdd & "#, """ & StrValorParc & """,  """ & cboConveniada & """);"
    Next
    Me.lstParcelas.Requery

    Após executado, a listbox que exibe os dados gravados me retorna a data que era no formato dd/mm/yyyy, assim mm/dd/yyyy, e desta mesma forma grava na tabela.

    Um outro detalhe é que o valor padrão do meu campo Data (CpData) é =Date$, que quando o form abre o formato carregado é mm/dd/yyyy, mas quando entro no campo e utilizo o selecionador de datas o formato fica dd/mm/yyyy, como quero, contudo quando gero as parcelas e grava no formato mm/dd/yyyy.

    Sei para os grandes participantes deste fórum a questão sera resolvida com poucas linhas de código.

    Aguardando.
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5074
    Registrado : 20/04/2011

    Corrigir formato de data em código vba Empty Re: Corrigir formato de data em código vba

    Mensagem  Silvio 6/4/2014, 12:55

    Bom dia, penso eu, que poderia ser algo assim...

    ,#" & StrDateadd(Format(DateValue,"dd/mm/yyyy")) & "#,


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    mathusalmeida
    mathusalmeida
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 264
    Registrado : 30/08/2011

    Corrigir formato de data em código vba Empty Re: Corrigir formato de data em código vba

    Mensagem  mathusalmeida 6/4/2014, 20:40

    Olá Silvio e obrigado pela dica, mas resultou em erro:

    "erro de compilação:
    o objeto não é opcional"

    e aponta para o controle """ & cboMatricula & """ do form, quando retirado "..,#" & StrDateadd(Format(DateValue,"dd/mm/yyyy")) & "#,..., roda o parcelamento normal.

    O que seria?
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3880
    Registrado : 04/04/2010

    Corrigir formato de data em código vba Empty Re: Corrigir formato de data em código vba

    Mensagem  Avelino Sampaio 6/4/2014, 22:36

    Olá

    Experimente utilizando as Aspa Duplas no lugar da #. Exemplo:

    .. & Me.txtDescricao.Value & """,""" & StrDateAdd & """, """ & StrValorParc &

    Aguardamos


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    mathusalmeida
    mathusalmeida
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 264
    Registrado : 30/08/2011

    Corrigir formato de data em código vba Empty Re: Corrigir formato de data em código vba

    Mensagem  mathusalmeida 7/4/2014, 01:51

    Grande Mestre Avelino Sampaio.

    Funcionou perfeitamente como todas as outras orientações suas aqui no fórum.

    Obrigado por compartilhar seus conhecimentos aqui. Sua ajude tem motivado muitos a mergulharem neste mundo maravilhoso do access.

    Só peço sua ajuda neste a última dúvida:
    ..."Um outro detalhe é que o valor padrão do meu campo Data (CpData) é =Date$, que quando o form abre o formato carregado é mm/dd/yyyy, mas quando entro no campo e utilizo o selecionador de datas o formato fica dd/mm/yyyy, como quero, contudo quando gero as parcelas e grava no formato mm/dd/yyyy"...

    Como/onde fazer o format?

    Conteúdo patrocinado


    Corrigir formato de data em código vba Empty Re: Corrigir formato de data em código vba

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 27/4/2024, 00:44