Boa Tarde amigos, quando clico no botão "Selecionar Novo Destino" do frmBackup,
ele me retorna um erro "O tipo definido pelo usuário não foi definido"
Public Function fncLocalizarArquivo()
Dim fd As Office.FileDialog
On Error GoTo trataerro
Set fd = Application.FileDialog(msoFileDialogOpen)
With fd
With .Filters
.Clear
.Add "Banco de Dados", "*.accdb", 1
.Add "Todos", "*.*", 2
End With
.Title = "Selecionar Banco de Dados)"
.AllowMultiSelect = False
.InitialFileName = "c:\"
.InitialView = msoFileDialogViewPreview
If .Show Then
fncLocalizarArquivo = .SelectedItems(1)
End If
End With
sair:
Exit Function
trataerro:
fncLocalizarArquivo = ""
Resume sair:
End Function
Public Function fncLocalizarPasta(strTitulo As String)"o erro esta nessa linha o que fazer?"
Dim fd As Office.FileDialog
On Error GoTo trataerro
Set fd = Application.FileDialog(msoFileDialogFolderPicker)
With fd
.AllowMultiSelect = False
.ButtonName = "Selecionar"
.InitialFileName = "c:\"
.InitialView = msoFileDialogViewList
'.Title = "Selecione a pasta de destino"
.Title = strTítulo
End With
If fd.Show = -1 Then
fncLocalizarPasta = fd.SelectedItems(1)
End If
sair:
Exit Function
trataerro:
fncLocalizarPasta = ""
Resume sair:
End Function
....
ele me retorna um erro "O tipo definido pelo usuário não foi definido"
Public Function fncLocalizarArquivo()
Dim fd As Office.FileDialog
On Error GoTo trataerro
Set fd = Application.FileDialog(msoFileDialogOpen)
With fd
With .Filters
.Clear
.Add "Banco de Dados", "*.accdb", 1
.Add "Todos", "*.*", 2
End With
.Title = "Selecionar Banco de Dados)"
.AllowMultiSelect = False
.InitialFileName = "c:\"
.InitialView = msoFileDialogViewPreview
If .Show Then
fncLocalizarArquivo = .SelectedItems(1)
End If
End With
sair:
Exit Function
trataerro:
fncLocalizarArquivo = ""
Resume sair:
End Function
Public Function fncLocalizarPasta(strTitulo As String)"o erro esta nessa linha o que fazer?"
Dim fd As Office.FileDialog
On Error GoTo trataerro
Set fd = Application.FileDialog(msoFileDialogFolderPicker)
With fd
.AllowMultiSelect = False
.ButtonName = "Selecionar"
.InitialFileName = "c:\"
.InitialView = msoFileDialogViewList
'.Title = "Selecione a pasta de destino"
.Title = strTítulo
End With
If fd.Show = -1 Then
fncLocalizarPasta = fd.SelectedItems(1)
End If
sair:
Exit Function
trataerro:
fncLocalizarPasta = ""
Resume sair:
End Function
....