MaximoAccess

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

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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

    [Resolvido]Alterar base de dados de um formulário;

    FernandoRogerio
    FernandoRogerio
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 13
    Registrado : 30/12/2016

    [Resolvido]Alterar base de dados de um formulário; Empty [Resolvido]Alterar base de dados de um formulário;

    Mensagem  FernandoRogerio em 25/3/2020, 05:01

    Boa noite amigos, tudo bem, tenho um formulário, onde eu preciso abrir valores de outras tabelas.
    Seria possível um botão que escolhesse ou uma caixa de diálogo qual tabela quero atribuir a ele?
    Desde já agradeço.

    FernandoRogerio gosta desta mensagem

    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6787
    Registrado : 15/03/2013

    [Resolvido]Alterar base de dados de um formulário; Empty Re: [Resolvido]Alterar base de dados de um formulário;

    Mensagem  ahteixeira em 25/3/2020, 10:03

    Olá Fernando,

    Na moral nhãs opinião poderá ser pelo Recordeset, pesquise no fórum.
    Pode criar uma caixa de listagem com o nome das tabelas.
    Veja se este tópico ajuda:
    https://www.maximoaccess.com/t31511-resolvidoalterar-a-origem-de-registos-e-novo-caminho-bd-via-vba

    Abraço

    FernandoRogerio gosta desta mensagem

    FernandoRogerio
    FernandoRogerio
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 13
    Registrado : 30/12/2016

    [Resolvido]Alterar base de dados de um formulário; Empty Re: [Resolvido]Alterar base de dados de um formulário;

    Mensagem  FernandoRogerio em 25/3/2020, 15:40

    Olá, obrigado por responder, é bem isto mesmo que eu estava procurando.
    Porém ... quando em clico em importar tabelas ela mostra 0 tabelas importadas,
    será que isso é porque o Microsoft Office 12.0 Object Library está desabilitado?
    pois não o encontrei Neutral
    Caso puder ajudar agradeço. obrigado

    Código:
    Public Function fncLocalizarArquivo()
    '''Para funcionar esta linha abaixo eu tenho que habilitar a referencia Microsoft Office 12.0 Object Library
    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

    FernandoRogerio gosta desta mensagem

    FernandoRogerio
    FernandoRogerio
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 13
    Registrado : 30/12/2016

    [Resolvido]Alterar base de dados de um formulário; Empty Re: [Resolvido]Alterar base de dados de um formulário;

    Mensagem  FernandoRogerio em 30/6/2020, 12:57

    Resolvido obrigado
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6787
    Registrado : 15/03/2013

    [Resolvido]Alterar base de dados de um formulário; Empty Re: [Resolvido]Alterar base de dados de um formulário;

    Mensagem  ahteixeira em 30/6/2020, 16:58

    cheers

      Data/hora atual: 16/7/2020, 13:45