GD Access    GD Access    Grupo de Discussão  Ir para Categorias  Grupos técnicos  Ir para Fóruns  Access    Abrir PDF em um formulário do Access...
Go
Novo
Procurar
Notificar
Ferramentas
Responder
  
Abrir PDF em um formulário do Access...
 Login/Cadastrar
 
Estagiário

postado
Bom dia galera...
Esse é o meu primeiro post e já estou enchendo o saco...
Juro que já pesquisei muito aqui no fórum, achei diversos temas abordando o tema, mas não consegui fazer algo que me service, não tenho conhecimentos avançados em VBA e o que eu andei encontrando estava muito complicado.
Estou desenvolvendo um cadastro de Certificados Sanitários Internacionais - CSI, e gostaria de poder inserir um arquivo *.pdf*.pdf com a cópia do CSI para que quando o usuário fizer uma consulta ele possa ver o documento na integra, após o cadastro teria um botão que o usuário iria clicar e uma caixa iria abrir para que possa escolher o arquivo que iria ser inserido, vou postar os dados do meu Banco de Dados.

TABELA: tbl_CadastroCSI

Data_Emissao
Nomenclatura_Oficial
Produto
Peso
Pais_Destino
Porto_Destino
Navio
Container
Lacre
Caminho_Arquivo (Obs: neste campo eu gostaria de inserir apenas o caminho do arquivo, pois inserir o arquivo ficaria muito pesado)

FORMULÁRIO: frm_CadastroCSI

Não estou querendo ser chupim, mas acontece que estou desesperado, se alguém puder me ajudar serei eternamente grato.
Se alguém tiver algum modelo que pudesse ser enviado via email...

Abraços a todos!!!
 
Postagens: 26 | Registrado: 10 May 2008Reply With QuoteReport This Post
Coordenador

Figura de  JBSR
postado Hide Post
Dentro da pasta C:\Arquivos de programas\Adobe\Acrobat 5.0\Reader (acredito que
deve ter a mesma ocx nas outras versões) tem uma ocx chamada pdf.ocx.
Registre ela através do access. Não a encontrei registrada por padrão juntamente
com as outras OCX, por isso, registre pelo access.
Feito isso, inclua ela em um formulário. Crie um botão com o seguinte comando:
Pdf0.LoadFile ("c:\seuarquivo.pdf")
Onde:
pdf0 = nome da ocx
.loadfile = comando
c:\seuarquivo.pdf") = rota do arquivo.
Feito isso, você poderá agora abrir seus relatorios para .PDF que é bem mais
pratico e rápido e visualiza-los de dentro do formulario.


"Conhecimento é poder."
“Entia non sunt multiplicanda praeter necessitatem (as entidades não devem ser multiplicadas além da necessidade) - William de Ockham”

Microsoft Access na Web:
Desenvolvimento e integração de aplicações em Microsoft Access com base de dados na web, e integração à Websites. Maiores informações em: MS Access na Web

NFe, NFSe, , CTe, Boleto Bancário, SMS, dentre outros:
Módulos em código fonte aberto feitos especialmente para desenvolvedores em Access: Clique aqui
 
Postagens: 2487 | Localização: São Paulo - (SP) | Registrado: 15 July 2003Reply With QuoteReport This Post
Estagiário

postado Hide Post
Valew amigo, vou dar uma olhadinha nisso...
 
Postagens: 26 | Registrado: 10 May 2008Reply With QuoteReport This Post
Estagiário

postado Hide Post
Kara é quase isso...
O problema é que eu gostaria de armazenar o endereço do arquivo pdf junto com o cadastro...
O tal botão não funcionou ainda, mas consegui inserir um pdf pelo ocx.

Mesmo assim, obrigado pela atenção!!!
 
Postagens: 26 | Registrado: 10 May 2008Reply With QuoteReport This Post
Estagiário

postado Hide Post
Achei algo, mas está incompatível...
Galera dei uma procurada pela comunidade, até que encontrei um modelo bem interessante, porém fica aparecendo uma mensagem "TIPOS INCOMPATÍVEIS".
Seria por causa do Access 2007???

Segue abaixo o código:

Private Sub Comando3_Click()
DoCmd.GoToRecord , , acNewRec
Dim strCaminho As String, strPastaInicial As String
strPastaInicial = "C:\Meus Documentos"
strCaminho = Buscar(Me.hwnd, "Localizar arquivo", strPastaInicial, _
"(*.pdf; *.gif; *.swf; *.pps; *.ppt; *.doc; *.xls)" & vbNullChar & "*.pdf; *.gif; *.swf; *.pps; *.ppt; *.doc; *.xls")
If Len(strCaminho) > 0 Then
Me.txtCaminho = strCaminho
Me.WebBrowser0.Navigate txtCaminho.Value

End If
End Sub

Private Sub Comando5_Click()
If IsNull(txtCaminho) Then
MsgBox "Você só pode atualizar se tiver algo cadastrado"
Else
Me.WebBrowser0.Navigate txtCaminho.Value
End If
End Sub

Private Sub Form_Open(Cancel As Integer)
DoCmd.Maximize
CommandBars("Menu bar").Enabled = False
End Sub
Private Sub Comando6_Click()
On Error GoTo Err_Comando6_Click


DoCmd.GoToRecord , , acFirst
Me.WebBrowser0.Navigate txtCaminho.Value

Exit_Comando6_Click:
Exit Sub

Err_Comando6_Click:
MsgBox Err.Description
Resume Exit_Comando6_Click

End Sub
Private Sub Comando7_Click()
On Error GoTo Err_Comando7_Click


DoCmd.GoToRecord , , acPrevious
Me.WebBrowser0.Navigate txtCaminho.Value

Exit_Comando7_Click:
Exit Sub

Err_Comando7_Click:
MsgBox Err.Description
Resume Exit_Comando7_Click

End Sub

Private Sub Comando9_Click()
On Error GoTo Err_Comando9_Click


DoCmd.GoToRecord , , acLast
Me.WebBrowser0.Navigate txtCaminho.Value

Exit_Comando9_Click:
Exit Sub

Err_Comando9_Click:
MsgBox Err.Description
Resume Exit_Comando9_Click

End Sub

Esse ai tá filé mas quando vou clicar no botão para confirmar a inclusão do registro ele dá a tal mensagem de "TIPOS INCOMPATÍVEIS".

Alguém tem noção de como resolver isso???

Valew!!!
 
Postagens: 26 | Registrado: 10 May 2008Reply With QuoteReport This Post
Estagiário

postado Hide Post
E ai galera, alguém pode me ajudar nessa empreitada???

Pelo amor de deus estou desesperado!!!

Abraços a todos...
 
Postagens: 26 | Registrado: 10 May 2008Reply With QuoteReport This Post
Estagiário

postado Hide Post
Só mais uma observação:

Na empresa o Sistema Operacional é o Windows Vista e o Office 2007.

No formulário do mdb que eu estou usando como modelo tem um tal de "WEB BROWSER" e é nele que o arquivo pdf é visualizado, como eu não manjo de VBA nem tentei fuçar no módulo, por isso eu estou implorando para que alguém possa me ajudar!!!

Abraços
 
Postagens: 26 | Registrado: 10 May 2008Reply With QuoteReport This Post
Coordenador

Figura de  JBSR
postado Hide Post
Marcos, uma solução para seu problema seria gravar o caminho do arquivo .pdf em um campo da sua tabela através de uma API, que gravará a rota do arquivo para você.

Neste link tem o exemplo da API que possa ser adptada por você, alterando a extenção do arquivo desejado.

Esperto ter ajudado.


"Conhecimento é poder."
“Entia non sunt multiplicanda praeter necessitatem (as entidades não devem ser multiplicadas além da necessidade) - William de Ockham”

Microsoft Access na Web:
Desenvolvimento e integração de aplicações em Microsoft Access com base de dados na web, e integração à Websites. Maiores informações em: MS Access na Web

NFe, NFSe, , CTe, Boleto Bancário, SMS, dentre outros:
Módulos em código fonte aberto feitos especialmente para desenvolvedores em Access: Clique aqui
 
Postagens: 2487 | Localização: São Paulo - (SP) | Registrado: 15 July 2003Reply With QuoteReport This Post
  Powered by Social Strata  
 

GD Access    GD Access    Grupo de Discussão  Ir para Categorias  Grupos técnicos  Ir para Fóruns  Access    Abrir PDF em um formulário do Access...

©