MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

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

2 participantes

    Abrir outro Banco

    avatar
    ederplopes
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 51
    Registrado : 27/06/2014

    Abrir outro Banco Empty Abrir outro Banco

    Mensagem  ederplopes Qua 25 Set 2019, 16:38

    Boa Tarde!

    tenho um sequencia de banco de dados do access que uso para atualizar uns relatorios

    ex:

    banco 1
    banco 2
    banco 3
    banco 4

    tenho os bancos acima e abro um de cada vez para atualziar, mas gostaria de ao fim de atuaziar o banco 1 ele ja abrisse o banco 2 e assim por diante.

    ou seja, que ao finalizar o processo do primeiro ja chamasse o proximo.

    Att

    Lopes
    abs
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3339
    Registrado : 21/11/2016

    Abrir outro Banco Empty Re: Abrir outro Banco

    Mensagem  DamascenoJr. Qua 25 Set 2019, 18:27

    como você não mostrou código ou anexou o banco então suponho que entenda bem do assunto e precise apenas de uma lógica de funcionamento. Sendo assim sugiro um LOOP.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    avatar
    ederplopes
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 51
    Registrado : 27/06/2014

    Abrir outro Banco Empty Re: Abrir outro Banco

    Mensagem  ederplopes Qui 26 Set 2019, 07:50

    entao conforme falei eu processo um banco de cada vez:

    Ex: rodo as macros no banco 1 ele faz o devidos tratamentos, bases etc.
    finalizo o banco 1 e vou para o 2 pois temos bases que estao vinculadas no 2
    e assim rodo o banco 2, e assim vai indo ate o ultimo...

    o que preciso é colocar na macro um codigo que abra o proximo banco quando as macros terminarem de rodar de cada banco.
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3339
    Registrado : 21/11/2016

    Abrir outro Banco Empty Re: Abrir outro Banco

    Mensagem  DamascenoJr. Qui 26 Set 2019, 16:08

    Código:
    Public Function fncExemplo

      Dim bytQtdBancos as Byte
      Dim bytContador  as byte

      for bytContador = 1 to bytQtdBancos

          select case bytContador
            case 1
                'código que abre o banco 1
            case 2
                'código que abre o banco 1
            case N
                'código que abre o banco N
          end select

      next bytContador

    End Sub

    exemplo simples de um possível caminho.

    anexe aqui a parte do seu projeto que chama a abertura dos outros bancos pra que eu ou outro usuário possa desenvolver um loop mais adequado.

    Sem isso não sei como ajudá-lo pois não conheço sua estrutura.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

      Data/hora atual: Seg 06 Dez 2021, 14:52