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 : 3199
    Registrado : 06/11/2009

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

    Mensagem  Assis em Dom 04 Fev 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 : 62
    Registrado : 05/09/2016

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

    Mensagem  rfnunes01 em Dom 04 Fev 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 : 3199
    Registrado : 06/11/2009

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

    Mensagem  Assis em Seg 05 Fev 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 : 62
    Registrado : 05/09/2016

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

    Mensagem  rfnunes01 em Seg 05 Fev 2018, 19:08

    O forum agradece


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

      Data/hora atual: Sab 24 Fev 2018, 14:04