[Resolvido]Dúvida ao colocar data automaticamente

Olá pessoal, boa tarde!

eu estou precisando de uma ajudinha para a alteração de um código que o seu avelino me enviou para exportar um relatório para o outlook

o código é o seguinte:

Código:

Dim strArquivo As String
Dim strLocal As String
Dim objOut As Object
Dim objmail As Object
Dim objAnexo As Object
Const olMailItem = 0
Const olByValue = 1
'---------------------------------------------
'Carregando a coleção do Outlook
'Similar ao abrir o Outlook
'---------------------------------------------
Set objOut = CreateObject("Outlook.application")

'------------------------------------------------------------
'Abrindo o formulário de email para inserir os itens de email
'Similar ao clicar no botão NOVO do Outlook
'------------------------------------------------------------
Set objmail = objOut.CreateItem(olMailItem)

'------------------------------------------------------------
'Abrindo a opção anexo
'Similar ao clicar no botão ANEXO do Outlook
'------------------------------------------------------------
Set objAnexo = objmail.Attachments

'------------------------------------------------------------------------------
'Indico o nome do arquivo pdf e o local que será gravado.
'Neste exemplo gero os nomes dos arquivos, aproveitando o número da proposta,
'ficando com o seguinte aspecto: proposta1.pdf, proposta2.pdf,...
'------------------------------------------------------------------------------
strArquivo = "Posicionamento " & txtNomeobra & " " & Me.Frm_ligacao_diario!txtData & " .pdf"
strLocal = CurrentProject.Path & "/Posicionamento Obras/" & strArquivo

'----------------------------------------------------------------------------
'Abre o relatório filtrado e oculto, de acordo com a proposta selecionada.
'----------------------------------------------------------------------------
DoCmd.OpenReport "rlt_ligacao2", acViewPreview

'----------------------------------------------------------------------------
'Gera o pdf do relatório através do comando OutputTo.
'O mecanismo do Access reconhece que o relatório solicitado pelo OutputTo
'já está aberto e então o OutputTo usará o relatório já aberto e filtrado.
'----------------------------------------------------------------------------
DoCmd.OutputTo acOutputReport, "Rlt_Ligacao2", acFormatPDF, strLocal

'---------------------------------------------
'Fecha o relatório que está oculto
'---------------------------------------------
DoCmd.Close acReport, "Rlt_Ligacao2"
 
'-------------------------------------------------------------
'Adiciona o arquivo pdf no anexo, capturado da pasta enviados
'-------------------------------------------------------------
objAnexo.Add strLocal, olByValue, 1

'--------------------------------------------------------
'Mostra o formulário de envio de email
'--------------------------------------------------------
objmail.Display

'-------------------------------------------------------
'Tudo já foi entregue ao Outlook; então podemos esvaziar
'a memória do computador usada pelas variáveis objeto.
'-------------------------------------------------------
Set objAnexo = Nothing
Set objmail = Nothing
Set objOut = Nothing

Neste local (strArquivo = "Posicionamento " & txtNomeobra & " " & Me.Frm_ligacao_diario!txtData & " .pdf") eu gostaria de editar o txtdata para a data de hoje, já tentei de milhares de formas e sempre cai no mesmo problema, o windows não aceita nenhum arquivo com Barra(///) então eu teria que colocar pontos (...) eu já tentei colocar como mascara de entrada os pontos más ele não altera, teria como alguem me dar uma luz da forma de faze-lo?

Obrigado e desde já agradeço a ajuda de todos!

Experimente trocar o txtData por:

now() ou date()


(strArquivo = "Posicionamento " & txtNomeobra & " " & Me.Frm_ligacao_diario!now() & " .pdf")
(strArquivo = "Posicionamento " & txtNomeobra & " " & Me.Frm_ligacao_diario!date() & " .pdf")

Não testei aqui, para ver se dar certo.

Não funcionou amigo...

não sei se você entendeu, ele salva este relatório em pdf e com esses código o campo de data fica como 26/08/2015 e o windows não aceita este formato para ser salvo eu precisava que ficasse 26.08.2015, assim ele salvaria sem problemas, tem alguma outra forma, colocar um campo automatico no proprio formulário más sem a mascara de entrada ou algo do gênero? Obrigado!

Negativo, é padrão de qualquer Windows, desde o seu lançamento, o formato com as barras em datas.

sim amigo eu sei que é padrão do windows.

teria alguma forma de colocar como um campo como valor padrão ("data()") e Alterar a mascara de entrada deste campo?
pq se colocarmos data() ele entra _ _/_ _/ _ _ _ _ teria como entrar sem as barras (/)

Vendo o código, o campo Txtdata, é parte integrante de uma tabela.
Talvez, sem estar com o projeto em mãos, pode-se mudar na origem, ou seja na tabela. Através da manipulação da mascara de entrada, personalizando a mesma para o ponto (.) ao invés de barras (/).

Não sei se vai funfar.....mas tente algo assim...

Format(Txtdata, "mm.dd.yyyy")

(strArquivo = "Posicionamento " & txtNomeobra & " " & Me.Frm_ligacao_diario!Format(Txtdata, "mm.dd.yyyy") & " .pdf")

UOOOOOUUUU!!!

Funcionou amigo, realmente agradeço sua ajuda e que Deus o abençoe grandemente!!

Que bom..

O fórum agradece o retorno !