[Resolvido]criar pasta

tenho um form que ao imprimir me gera um pdf

Como posso fazer para que ao clicar em imprimir me crie uma pasta e de seguida guarde um pdf do relatório que imprime dentro dessa pasta?

Tipo

Nome1_ID
Se existir --> "não criar pasta"
Criar PDF na Pasta "C\pasta minha bd\relatórios\Nome1_ID"
Se não existir --> Criar pasta em "C\pasta minha bd\relatórios\Nome1_ID"
Criar PDF na Pasta "C\pasta minha bd\relatórios\Nome1_ID"
Imprimir "quantas páginas";

-----------------
Currente Nome1_ID é o nome do campo tipo campo "Nome1" + ID como chave primária com numeração automática da tabela

ou seja, escrevo no campo Nome 1 um texto tipo 125F no qual o registo ID chave primária é o 32, então ao imprimir cria-me uma pasta com o nome 125F_32 na pasta relatórios que está na pasta da minha bd com o pdf chamado Empregado 125F_32, mas se essa pasta 125F_32 já existir, então cria-me o pdf dentro dessa pasta, quando trabalho em outro form com o relatório dias trabalho, cria-me o pdf nessa pasta com o nome dias trabalho 125F_39 (o 39 é chave primária de outro form)

Se for mais facil sem o ID, então também se pode tirar

Olá

com a função DIR() vc testa se a pasta existe e com a função MKDIR() cria a pasta

Bom estudo!

Aqui nos 102 códigos:

Código "Cria Pasta com SubPasta"

http://maximoaccess.forumeiros.com/t11-102-codigos-vba-para-access

JPaulo
obrigado pela dica, por acaso já tinha visto mas não me parece bem o que quero
a minha duvida é criar a pasta dentro de uma já criada por mim na pasta raiz do bd e dentro dela ciar um pdf

explico melhor, crio um funcionário nome "João", no forme funcionários que tem um botão para horas trabalho e outro pagamentos, mando imprimir horas trabalho e o botão imprime o report horas trabalho, cria a pasta joão e dentro dela o pdf horas trabalho. mando imprimir pagamentos e o botão imprime o repor pagamentos, cria a pasta joão se não existir e dentro dela o pdf pagamentos, caso já exista não cria pasta apenas cria o pdf pagamentos dentro dela.

queria que fizesse isso nos botões imprimir de forma automática para futuras consultas


Julgo ser tipo isto
strLocal = CurrentProject.Path & "\Empregados\"& Nome empregado & strArquivo
DoCmd.OutputTo acOutputReport, "horas trabalho", acFormatPDF, strLocal

Olá amigo Paulo!

Por que usar o scripting se temos a função DIR() para isso.

Não estou dizendo que é errado ou certo usar o scripting, apenas estou querendo demonstrar que a função DIR também verifica pastas.

Exemplo:

Dim strLocal As String
Dim strDocumento As String
strLocal = CurrentProject.Path & "\Empregados\" & Me.SeuCampoNomeFuncionario.Value & "\"
strDocumento = "SeuRelatorio"
If len(dir(strLocal,vbDirectory))> 0 Then ' verifica se ja existe
DoCmd.OutputTo acOutputReport, strDocumento, acFormatPDF, strLocal & strDocumento & ".pdf", False
Else
MkDir strLocal ' se nao existir cria
DoCmd.OutputTo acOutputReport, strDocumento, acFormatPDF, strLocal & strDocumento & ".pdf", False
End If


Sucesso!

Grande Avelino, sem duvida que funciona e utilizo muito, foi apenas o aproveitamento do código existente, feito em 2009 pelo habito de trabalhar com VBS.

Alterando o mesmo agora, daria uma imagem de que não se deve utilizar o scripting, o que não é correto, mas sem duvida alguma que com o DIR() fica mais facil sim.

JPaulo
Obrigado funciona perfeitamente

Avelino Sampaio
Obrigado também, só não vou utilizar porque já tinha adaptado o Código do JPaulo, no entanto fica registado, obrigado a ambos

Obrigado pelo retorno o fórum agradece.