[Resolvido]acrescentar as extensões, accde, e accdr

Boa tarde

Como acrescentar as extensões, accde e accdr, na linha  --   .Filters.Add ".accdb", "*.accdb", 1

Private Sub CMD_CAMINHO_SISTEMA_Click()
On Error Resume Next
   Dim strFilePath As String
   With Application.FileDialog(msoFileDialogFilePicker)
   .Title = "Selecionar arquivo" & DataBaseName
   .ButtonName = "Confirmar"
   .InitialFileName = DataBaseName
   .AllowMultiSelect = False
   .Filters.Add ".accdb", "*.accdb", 1 'acrescentar aqui as extensões accde, e accdr  
   .Show
   If .SelectedItems.Count > 0 Then
       strFilePath = .SelectedItems(1)
       Me.REC_SIS = strFilePath
  End If
   End With


End Sub


Obrigado

Ola amigo boa noite

Seria só você adicionar mais 2 Filtros abaixo da linha

.filters.add ".accdb", "*.accdb",1

Sendo

.accdb - o nome
*.accdb - a extençao do arquivo
,1 - sendo a ordem do filtro

Ficará assim:

Private Sub CMD_CAMINHO_SISTEMA_Click()
On Error Resume Next
Dim strFilePath As String
With Application.FileDialog(msoFileDialogFilePicker)
.Title = "Selecionar arquivo" & DataBaseName
.ButtonName = "Confirmar"
.InitialFileName = DataBaseName
.AllowMultiSelect = False
.Filters.Add ".accdb", "*.accdb", 1
.Filters.Add ".accde", "*.aacce", 2
.Filters.Add ".accdr", "*.accdr", 3
.Show
If .SelectedItems.Count > 0 Then
strFilePath = .SelectedItems(1)
Me.REC_SIS = strFilePath
End If
End With


End Sub

As linhas destacadas em vermelho sao as alteraçoes..

Espero ter ajudo....

Obrigado
Richael

O forum agradece