[resolvido] Exibir apenas .pdf

Moderador: Avelino Sampaio

Avatar do usuário
José Waldick
Mensagens: 269
Registrado em: 08 Mar 2016, 19:39

[resolvido] Exibir apenas .pdf

Mensagempor José Waldick » 17 Jan 2018, 22:54

Exibir apenas arquivo tipo .pdf

Código: Selecionar todos

Private Sub cmdanexos_Click()

On Error GoTo TErro
   
   Dim fDialog As Office.FileDialog, varFile As Variant, varPath As Variant, varPath2 As String

   Set fDialog = Application.FileDialog(msoFileDialogFilePicker)

   With fDialog

      .InitialFileName = CurrentProject.Path
      .AllowMultiSelect = True
      .Title = "Anexar arquivo"
      .Filters.Clear
      .Filters.Add "Imagens", "*.bmp;*.gif;*.ico;*.jpg;*.jpeg;*.png;*.tiff"
      .Filters.Add "Excel", "*.xls;*.xlsx"
      .Filters.Add "PowerPoint", "*.ppt;*.pptx;*.pps;*.ppsx"
      .Filters.Add "Word", "*.doc;*.docx"
      .Filters.Add "Todos os arquivos", "*.*"
      .ButtonName = "Abrir arquivo(s)"

      If .Show = True Then
         For Each varFile In .SelectedItems
           
            varPath = Split(varFile, "\")
            For i = 0 To UBound(varPath)
               varPath2 = varPath(i)
            Next i

            Me.lstAnexos.AddItem varFile & ";" & varPath2
         Next

      Else
         Exit Sub
      End If
   End With
   
'O bloco abaixo ajusta a altura da listbox de acordo o número de linhas.
' Caso tenha menos de 15 anexos, a list se ajusta ao número de linhas
' Caso tenha de 15 a mais, fica com altura fixa equivalente à altura de 14 linhas.
   
    If Me.lstAnexos.ListCount > 4 Then
        Me.lstAnexos.Height = 275 * 4
    ElseIf Me.lstAnexos.ListCount <= 4 Then
        Me.lstAnexos.Height = Me.lstAnexos.ListCount * 275
    Else
    End If
   
' O bloco abaixo torna a list e controles associados visíveis quando ouverem anexos e
' os torna invisíveis quando não ouver anda para exibir.

If Me.lstAnexos.ListCount > 0 Then
    Me.lstAnexos.Visible = True
    'Me.lblPreVis.Visible = True
    'Me.ctlImagem.Visible = True
Else
    Me.lstAnexos.Visible = False
    'Me.lblPreVis.Visible = False
    'Me.ctlImagem.Visible = False
End If

' O bloco abaixo faz um tratamento de erro

TErro:
If Err.Number = 5 Then
    DoCmd.CancelEvent
    Resume Next
End If

End Sub
Deus é bom e fiel!

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.


Avatar do usuário
Avelino Sampaio
Mensagens: 1883
Registrado em: 04 Jun 2015, 18:27
Contato:

Re: Exibir apenas .pdf

Mensagempor Avelino Sampaio » 20 Jan 2018, 10:05

José

altere conforme abaixo:

Código:
...
With fDialog

.InitialFileName = CurrentProject.Path
.AllowMultiSelect = True
.Title = "Anexar arquivo"
.Filters.Clear
.Filters.Add "PDF", "*.PDF"
.ButtonName = "Abrir arquivo(s)"
...


Aguardamos
==================================================
Clique no link abaixo e veja um ótimo kit de ensino que tenho para você.
http://www.usandoaccess.com.br
==================================================

Avatar do usuário
José Waldick
Mensagens: 269
Registrado em: 08 Mar 2016, 19:39

Re: Exibir apenas .pdf

Mensagempor José Waldick » 21 Jan 2018, 13:14

Obrigado!
Deus é bom e fiel!

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.



Voltar para “Formulários”

Quem está online

Usuários neste fórum: Google [Bot] e 2 visitantes