MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    Corrigir formato de data em código vba

    Compartilhe

    mathusalmeida
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Corrigir formato de data em código vba

    Mensagem  mathusalmeida em Dom 06 Abr 2014, 07: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
    Developer
    Developer

    Respeito às Regras 100%

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

    Re: Corrigir formato de data em código vba

    Mensagem  Silvio em Dom 06 Abr 2014, 07: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.
    [Você precisa estar registrado e conectado para ver este link.]

    mathusalmeida
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Re: Corrigir formato de data em código vba

    Mensagem  mathusalmeida em Dom 06 Abr 2014, 15: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
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: Corrigir formato de data em código vba

    Mensagem  Avelino Sampaio em Dom 06 Abr 2014, 17:36

    Olá

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

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

    Aguardamos


    .................................................................................
    ============ Quer aprender Access em alta velocidade ? ============

    || [Você precisa estar registrado e conectado para ver esta imagem.] Acesse o site UsandoAccess.com.br e veja um ótimo kit de ensino que tenho para você.

    ===========================================================

    mathusalmeida
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Re: Corrigir formato de data em código vba

    Mensagem  mathusalmeida em Dom 06 Abr 2014, 20: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?

      Data/hora atual: Dom 04 Dez 2016, 09:10