Formato de data com ponto ao invés de barra

Pessoal,

No tópico https://www.maximoaccess.com/t32444-resolvidosubstituir-barra-por-ponto-no-campo-data-hora, 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

Ricardo

Tópicos duplicados é proibido.

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

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))

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")

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