[Resolvido]salvar nome relatório em tabela

Boa tarde! Sou iniciante no access e tenho estudado e aprendido muito através do fórum. Porém, apesar de receber a ajuda dos nobres colegas, que disponibilizam alguns modelos de bd, tenho dificuldades em executar algumas rotinas simples.

Atualmente, estou trabalhando em um banco de dados que gera relatórios de orçamentos e salva em pdf.
Gostaria de salvar os nomes desses relatorios em uma tabela para posterior consulta. Já recebi o exemplo do nosso amigo FabioPaes de um bd que faz isso, mas não consegui entender o código para salvar na tabela.

O código que uso para salvar os pdfs é esse:

Private Sub save_Click()
Dim MSG As VbMsgBoxResult
MSG = MsgBox("Deseja salvar o Relatório na Pasta Padrão?", vbQuestion + vbYesNo, "Salvar Relatório")
If MSG = vbYes Then
Dim strArquivo As String
Dim strLocal As String
Dim strnomepdf As String
strArquivo = Me!EMPR & "_" & Format(data(), "ddmmyy") & "_" & loc & ".PDF"
strLocal = CurrentProject.Path & "\orçamentos\" & "\2017\" & strArquivo
DoCmd.OutputTo acOutputReport, "REL", acFormatPDF, strLocal, False
MsgBox "Relatório salvo com sucesso", vbInformation + vbOKOnly, "Aviso"
Else
If MSG = vbNo Then
Dim str As String
str = Me!EMPR & "_" & Format(data(), "ddmmyy") & "_" & loc & ".PDF"

Dim fso As Object
Set fso = Application.FileDialog(4)
fso.AllowMultiSelect = False

If fso.Show Then
DoCmd.OutputTo acOutputReport, "rel", acFormatPDF, fso.SelectedItems(1) & "\" & str, True
End If
End If
End If
End Sub

Gostaria de salvar o nome do arquivo em uma tabela chamada TBPDF que possue os campos: Empr , Data, Loc

Desde já, agradeço a ajuda nos nobres colegas!!

Amigo, você gostaria de salvar o nome do relatório em qual desses campos:

possue os campos: Empr , Data, Loc

Pode realizar um INSERT na tabela...

Veja alguns exemplos de INSERT:
https://www.maximoaccess.com/t8443-resolvidoadicionar-registros-com-insert-into
https://www.maximoaccess.com/t8395-resolvidocurrentdb-execute-insert-into-vs-consulta-acrescimo
https://www.maximoaccess.com/t18510-resolvidousando-a-instrucao-insert-into

Boa tarde FabioPaes!

Obrigado pelas informações. Olhei os links que vc disponibilizou e realmente é isso o que eu preciso, porém não estou conseguindo escrever o código de forma correta.

o nome do relatorio é gerado dessa forma:

strArquivo = Me!EMPR & "_" & Format(data(), "ddmmyy") & "_" & loc & ".PDF"

Inicialmente, gostaria de salvar cada parte em campos exclusivos da tabela. Porém, analisando os exemplos que vc já havia me enviado anteriormente, vai complicar demais o projeto.

Simplifiquei a tabela apenas com campo "pdf"

Estou tentando fazer da seguinte forma o código:

CurrentDb.Execute "INSERT TO tbpdf.pdf ='" & strArquivo & "'"

mas está dando erro de sintaxe. Nao estou conseguindo desenrolar a linha de codigo corretamente.

Fabio, muito obrigado por tudo! Encontrei a solução do problema nessa resposta do Nobezinho em um outro tópico.

Lucio

Veja:

DoCmd.RunSQL "INSERT INTO tblParecer (NomedoCampo) VALUES ('" & TextoParecer & "')"

Como pode ver, faltou o nome do campo, por isso dava erro.

Se precisar adicionar mais campos, separe-os por virgula e os valores também respectivamente.

meu código ficou da seguinte forma:

CurrentDb.Execute "INSERT INTO tbPDF (PDF) VALUES ('" & Me.EMPR & "')"

Muito obrigado pela ajuda, paciência e disposição em ajudar e compartilhar seu conhecimento com os demais!!

Abraço!!

Que bom que conseguiu sozinho... ja ia postar a resposta... Assim aprendeu melhor!

Grato pelo retorno e até a próxima se Deus quiser!



Complementando...

Se tivesse mais de um campo ficaria assim:


CurrentDb.Execute "INSERT INTO tbPDF (PDF,Campo1,Campo2) VALUES ('" & NomePDF & "','" & ValorCampo1 & "','" & ValorCampo2 & "')"