MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

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

    Compartilhe
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3508
    Registrado : 06/11/2009

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

    Mensagem  Assis em 4/2/2018, 12:47

    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


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    rfnunes01
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 77
    Registrado : 05/09/2016

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

    Mensagem  rfnunes01 em 4/2/2018, 22:07

    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....


    .................................................................................
    Richael Fernando Nunes
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3508
    Registrado : 06/11/2009

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

    Mensagem  Assis em 5/2/2018, 19:06

    Obrigado
    Richael


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    rfnunes01
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 77
    Registrado : 05/09/2016

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

    Mensagem  rfnunes01 em 5/2/2018, 19:08

    O forum agradece


    .................................................................................
    Richael Fernando Nunes

      Data/hora atual: 22/9/2018, 12:42