MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    Formato de data com ponto ao invés de barra

    Compartilhe

    ricardo.lima
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 17
    Registrado : 20/12/2017

    Formato de data com ponto ao invés de barra

    Mensagem  ricardo.lima em Seg 12 Fev 2018, 02:02

    Pessoal,

    No tópico [Você precisa estar registrado e conectado para ver este link.] alguns amigos me ajudaram a mudar o formato da data para exportação, porém, possuo outros campos de data e na consulta onde informo os campos de exportação (query), fui limitado pelos caracteres, já que são muitos campos, sendo assim, gostaria de aplicar o format na expressão abaixo,alterando o formato do campo "data_acordo", por exemplo, para exibir a data com "." ao invés de "/" . Podem me ajudar?

    Private Sub gerar_parcela_Click()
    Set db = CurrentDb()
      Set rs = db.OpenRecordset("layout") 'Nome da Tabela
      For i = Me.parcela_de To Me.parcela_ate  'Calcula o Loop
          'Campos e valores a serem preenchidos
          rs.AddNew
          rs("tipo_registro") = Me.tipo_registro 'campos do cabeçalho
          rs("ato") = Me.ATO
          rs("cpf_administrador") = Me.cpf_administrador
          rs("numero_acordo") = Me.numero_acordo
          rs("data_acordo") = Me.data_acordo
          rs("qtde_pendencias") = Me.qtde_pendencias
          rs("qtde_parcelas") = Me.qtde_parcelas
          rs("Cod_juncao") = Me.Cod_juncao
          rs("conta_corrente") = Me.conta_corrente
          rs("num_carteira") = Me.num_carteira
          rs("num_contrato") = Me.num_contrato
          rs("data_vencimento") = Me.data_vencimento
          rs("data_venc_parcela") = DateAdd("m", i - 1, (Me.primeiro_vencimento))
          rs("valor_parcela") = Me.valor_parcela
          rs("valor_honorario") = Me.valor_honorario
          rs("taxa_referencia") = Me.taxa_referencia
          rs("obs") = Me.obs
          rs("cod_erro") = Me.cod_erro
          rs("nome_escritorio") = Me.nome_escritorio
          rs("ddd_escritorio") = Me.ddd_escritorio
          rs("Tel_escritorio") = Me.Tel_escritorio
          rs("nome_cliente") = Me.nome_cliente
          rs("end_cliente") = Me.end_cliente
          rs("Num_end_cliente") = Me.Num_end_cliente
          rs("compl_end_cliente") = Me.compl_end_cliente
          rs("bairro_cliente") = Me.bairro_cliente
          rs("Municipio_cliente") = Me.Municipio_cliente
          rs("ud_cliente") = Me.ud_cliente
          rs("cep_cliente") = Me.cep_cliente
          rs("compl_ccep") = Me.compl_ccep
          rs("ddd_cliente") = Me.ddd_cliente
          rs("tel_cliente") = Me.tel_cliente
          rs("valor_total_acordo") = Me.valor_total_acordo
          rs("data_venc_ultima_parcela") = Me.data_venc_ultima_parcela
          rs("parcela_ultimo_pagto") = Right("00" & i, 2) & Me.parcela_ultimo_pagto
          rs("cpf_cnpj_cliente") = Me.cpf_cnpj_cliente
          rs("filial_cpf_cnpj_cliente") = Me.filial_cpf_cnpj_cliente
          rs("controle_cpf_cnpj_cliente") = Me.controle_cpf_cnpj_cliente
          rs("cod_meio_pagto") = Me.cod_meio_pagto
          rs("valor_IOF") = Me.valor_IOF
          rs("taxa_juros_acordo") = Me.taxa_juros_acordo
          rs("acordo_aprovado_drc") = Me.acordo_aprovado_drc
          rs("data_aprovacao") = Me.data_aprovacao
          rs("nome_operador") = Me.nome_operador
          rs("nome_avalista_1") = Me.nome_avalista_1
          rs("nome_avalista_2") = Me.nome_avalista_2
          rs("cpf_avalista_1") = Me.cpf_avalista_1
          rs("cpf_avalista_2") = Me.cpf_avalista_2
          rs("valor_confessado") = Me.valor_confessado
          rs("ind_acordo") = Me.ind_acordo
          rs.Update
      Next
      rs.Close
      db.Close
    Me.Recalc
    Me.parcela_de = ""
    Me.parcela_ate = ""
    End Sub
    avatar
    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3191
    Registrado : 29/06/2012

    Re: Formato de data com ponto ao invés de barra

    Mensagem  Noobezinho em Seg 12 Fev 2018, 12:53

    Ricardo

    Tópicos duplicados é proibido.

    Na próxima vez, como percebeu, é só ter paciência e esperar alguém responder.



    .................................................................................
    Noobezinho

    * A solução funcionou?  [Você precisa estar registrado e conectado para ver esta imagem.] 
    Agradeça e feche o tópico clicando no botão Resolvido
    Se não sabe como, veja [Você precisa estar registrado e conectado para ver este link.].

    Como anexar imagem no teu post do fórum : [Você precisa estar registrado e conectado para ver este link.]

    * Criar arquivos.zip com o Winrar - veja [Você precisa estar registrado e conectado para ver este link.].

    Atualmente estou verificando se ajudamos alguém e não retornou.
    Se não deu retorno, não ajudo novamente .

    ricardo.lima
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 17
    Registrado : 20/12/2017

    Re: Formato de data com ponto ao invés de barra

    Mensagem  ricardo.lima em Qua 14 Fev 2018, 23:58

    Desculpe. Aguardo o tempo que for necessário.

    Preciso saber aplicar a formatação com "." ao invés de "/", nos seguintes campos em negrito, pelo VB:

    Private Sub gerar_parcela_Click()
    Set db = CurrentDb()
     Set rs = db.OpenRecordset("layout") 'Nome da Tabela
     For i = Me.parcela_de To Me.parcela_ate  'Calcula o Loop
         'Campos e valores a serem preenchidos
         rs.AddNew
         rs("tipo_registro") = Me.tipo_registro 'campos do cabeçalho
         rs("ato") = Me.ATO
         rs("data_acordo") = Me.data_acordo
         rs("data_venc_parcela") = DateAdd("m", i - 1, (Me.primeiro_vencimento))
    avatar
    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3191
    Registrado : 29/06/2012

    Re: Formato de data com ponto ao invés de barra

    Mensagem  Noobezinho em Qui 15 Fev 2018, 00:44

    Experimente



    rs("data_acordo") = Format(Me.data_acordo, "dd\.mm\.yyyy")
    rs("data_venc_parcela") = Format(DateAdd("m", i - 1, (Me.primeiro_vencimento)), "dd\.mm\.yyyy")


    .................................................................................
    Noobezinho

    * A solução funcionou?  [Você precisa estar registrado e conectado para ver esta imagem.] 
    Agradeça e feche o tópico clicando no botão Resolvido
    Se não sabe como, veja [Você precisa estar registrado e conectado para ver este link.].

    Como anexar imagem no teu post do fórum : [Você precisa estar registrado e conectado para ver este link.]

    * Criar arquivos.zip com o Winrar - veja [Você precisa estar registrado e conectado para ver este link.].

    Atualmente estou verificando se ajudamos alguém e não retornou.
    Se não deu retorno, não ajudo novamente .

    ricardo.lima
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 17
    Registrado : 20/12/2017

    Re: Formato de data com ponto ao invés de barra

    Mensagem  ricardo.lima em Sab 17 Fev 2018, 00:28

    Olá amigo!

    Desculpe a demora no retorno.

    Segue o banco, caso tenha tempo de analisar...

    O formulário chama-se "Negociação". Precisa inserir nos dois primeiros campos (Parcela de e parcela até), por exemplo 1 e 2 e clicar no botão "Gerar Arquivo..."

    Desde já, obrigado
    Anexos
    Gerador.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (102 Kb) Baixado 5 vez(es)

      Data/hora atual: Sab 24 Fev 2018, 00:37