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


3 participantes

    Executar consulta de acrescentar numa outra BD

    avatar
    tyna
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Portugal
    Mensagens : 4
    Registrado : 18/05/2015

    Executar consulta de acrescentar numa outra BD Empty Executar consulta de acrescentar numa outra BD

    Mensagem  tyna Seg 18 maio - 13:32

    Boa tarde a todos!

    Sou nova nestas andanças e preciso de uma ajuda...

    Estou a construir uma BD, onde tenho uma consulta de acrescentar dados, a uma tabela numa outra BD.
    A minha questão é se no caminho consigo colocar uma condição no caminho da BD, que localiza-se ...

    ou seja, tenho o seguinte caminho:
    G:\CRM DIRCO\INTERCAMBIO\INTERCAMBIO CRM DIRCO Ricardo Sousa.accdb

    e queria colocar a condição ao invés do nome "Ricardo Sousa":
    G:\CRM DIRCO\INTERCAMBIO\INTERCAMBIO CRM DIRCO [KEY_ACCOUNT].accdb

    tal como fiz no caminho da hiperligação num botão desta BD:
    ="G:\CRM DIRCO\Documentação\BPI - " & [CENTROS]& ".PDF"


    Não sei se me expliquei bem Question
    Desde já obrigado a quem me responder!
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    Executar consulta de acrescentar numa outra BD Empty Re: Executar consulta de acrescentar numa outra BD

    Mensagem  Alvaro Teixeira Sáb 23 maio - 8:15

    Olá, Bem-Vinda ao fórum.

    Para acrescentar dados a outra tabela, veja um exemplo da instrução SQL:
    INSERT INTO tblClientes ( IdCliente, Cliente ) IN 'C:\PastaDestino\BaseDadosDestino.accdb' SELECT tblClientes.IdCliente, tblClientes.Cliente FROM tblClientes;

    Relativamente ao "[KEY_ACCOUNT]" se é um campo com os utilizadores, pode utilizar da mesma forma como para "os pdfs".
    Exemplo:
    "G:\CRM DIRCO\INTERCAMBIO\INTERCAMBIO CRM DIRCO" & str([KEY_ACCOUNT]) & ".accdb"

    Fiquei na dúvida se o que pretende com o "[KEY_ACCOUNT]" é o nome do utilizador da máquina, se é o caso também pode utilizar com a seguinte instrução:
    Environ$("USERNAME")
    Ficando assim para o mesmo exemplo:
    "G:\CRM DIRCO\INTERCAMBIO\INTERCAMBIO CRM DIRCO" & Environ$("USERNAME") & ".accdb"

    Abraço
    avatar
    tyna
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Portugal
    Mensagens : 4
    Registrado : 18/05/2015

    Executar consulta de acrescentar numa outra BD Empty Re: Executar consulta de acrescentar numa outra BD

    Mensagem  tyna Dom 2 Ago - 6:17

    Olá, antes de mais obrigado pela sua resposta. Mas talvez me tenha explicado mal, vou tentar explicar-me de outra forma.

    Não pretendo uma instrução de SQL mas sim isto (ver Imagem1), não tenho comigo o exemplo do KEY_ACCOUNT mas este tambem serve.

    Executar consulta de acrescentar numa outra BD 2gv1t89

    Onde posso carregar ficheiros de exemplo? talvez seja mais facil.


    Desde já obrigado novamente.

    Luisa
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    Executar consulta de acrescentar numa outra BD Empty Re: Executar consulta de acrescentar numa outra BD

    Mensagem  Alvaro Teixeira Dom 2 Ago - 7:38

    Olá Luisa,

    Talvez seja melhor postar pequeno exemplo de como está a fazer neste momento.

    Para fazer isso pode:
    Zípar o seu exemplo é anexar à mensagem aqui no fórum.

    Caso tenha dificuldades ou o ficheiro seja maior que 3mb, pode colocar numa conta na nuvem.

    Eu aconselho um destes, todos de borla:

    Meocloud 16gb

    Copy 15Gb


    O mais conhecido:

    Dropbox 2Gb

    Nota: em todos coloquei link de refral para ganhar espaço extra.
    Abraço
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    Executar consulta de acrescentar numa outra BD Empty Re: Executar consulta de acrescentar numa outra BD

    Mensagem  Alvaro Teixeira Ter 4 Ago - 10:30

    Olá Luísa,
    Recebi a MP com link para download do seu exemplo, vou postar para ficar disponível para os colegas também poderem verificar.
    CRM_DIRCO.zip

    Bom, com base no exemplo será melhor indicar o(s) nome(s) do(s) objecto(s), o que está a fazer e o que pretende obter.

    Abraço
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    Executar consulta de acrescentar numa outra BD Empty Re: Executar consulta de acrescentar numa outra BD

    Mensagem  Alvaro Teixeira Ter 4 Ago - 12:03

    Olá, entretanto acho que com o código abaixo faz o que pretende, veja:

    Código:
    Private Sub cmdExecutarConsulta_Click()
    Dim strCaminho$, strSQL

        If Not IsNull(Me.Lista.Value) Then
     
            strCaminho = CurrentProject.Path
            strCaminho = strCaminho & "\CRM DIRCO " & Me.Lista.Value & ".accdb"
           
            strSQL = "INSERT INTO CxComb_Localidades ( CPostal, LOCALIDADE, CONCELHO, DISTRITO ) SELECT CxComb_Localidades.CPostal, CxComb_Localidades.LOCALIDADE, CxComb_Localidades.CONCELHO, CxComb_Localidades.DISTRITO FROM [" & strCaminho & "].CxComb_Localidades;"
            CurrentDb.Execute strSQL
            MsgBox "Concluído", vbInformation, ""
       
        Else
            MsgBox "Escolha o utilizador.", vbInformation, ""
        End If

    End Sub


    Segue exemplo do teste, descompacte tudo para uma pasta e abra o CRM_DIRCO.accdb.
    Veja na tabela CxComb_Localidades as alterações à medida que vai executando.

    Abraço
    avatar
    tyna
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Portugal
    Mensagens : 4
    Registrado : 18/05/2015

    Executar consulta de acrescentar numa outra BD Empty Re: Executar consulta de acrescentar numa outra BD

    Mensagem  tyna Ter 4 Ago - 15:40

    olá, muito obrigado pela sua resposta e preocupação. vou-lhe ser sincera, percebo pouco ou nada de SQL, portanto acho que o que criou está espetacular. só tenho uma duvida, tenho várias consultas semelhantes à do Cpostal logo tenho de criar um procedimento para cada uma delas. e o caminho strCaminho = strCaminho & "\CRM DIRCO " & Me.Lista.Value & ".accdb" terá de ser alterado por exemplo para strCaminho = strCaminho & "C:\Users\FERREIRA\Desktop\CRM DIRCO " & Me.Lista.Value & ".accdb"

    O intuito é o seguinte:
    - tenho vários CRM a funcionar nos PC's dos comerciais, onde eles vão criando registos e alterando os dados das várias tabelas (Ex: CRM DIRCO Rosário Cordeiro, CRM DIRCO Márcio Sousa);
    - Num determinado dia, os comerciais tem de fazer a exportação dos dados, que forão carregando nas várias tabelas (prospetos, visitas, contactos, etc) para uma outra BD, que está numa pasta na rede (Ex: INTERCAMBIO CRM DIRCO, INTERCAMBIO CRM DIRCO Márcio Sousa);
    - a exportação está a ser feita através de uma macro (não é através de SQL), que vai executar várias consultas de acrescentar, ou seja acrescentando os dados que estão nas tabelas do CRM DIRCO Rosário Cordeiro para as tabelas do INTERCAMBIO CRM DIRCO Rosário Cordeiro.

    Esta base de dados é para uso de uma empresa.


    Desde já obrigado!
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    Executar consulta de acrescentar numa outra BD Empty Re: Executar consulta de acrescentar numa outra BD

    Mensagem  Alvaro Teixeira Ter 4 Ago - 18:27

    Olá, também não sou especialista, é uma das partes que ainda tenho dificuldade.
    No entanto pode fazer a consulta no Access no modo estrutura e no final ver em modo SQL, copiar e ajustar no código.

    Respondendo às várias questões:

    - Sim, deverá repetir o mesmo procedimento para cada tabela diferente, depois pode distribuir o mesmo código por todos os Comerciais.
    - Uma vez que está a indicar o caminho completo a partir da raiz, deve ser:

    strCaminho = "C:\Users\FERREIRA\Desktop\CRM DIRCO " & Me.Lista.Value & ".accdb"

    Verificando o intuito, o melhor seria ter uma base de dados única para receber a informação de todos os colaboradores, logicamente, tendo um campo na tabela a identificar o utilizador.

    Na minha opinião será de criar nas próprias bases dos comerciais a função para integrar, sendo efectuada a partir daí a integração no sistema central.

    Ficamos aguardar opinião/sugestão de outros colegas aqui do fórum.
    Abraço
    avatar
    tyna
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Portugal
    Mensagens : 4
    Registrado : 18/05/2015

    Executar consulta de acrescentar numa outra BD Empty Re: Executar consulta de acrescentar numa outra BD

    Mensagem  tyna Qua 5 Ago - 3:48

    Olá, vou testar as suas sugestões.
    Aguardamos então mais opiniões.


    Obrigado!
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8498
    Registrado : 05/11/2009

    Executar consulta de acrescentar numa outra BD Empty Re: Executar consulta de acrescentar numa outra BD

    Mensagem  Alexandre Neves Qua 5 Ago - 4:41

    Bom dia,
    Pelo que percebi, a opinião do colega ahteixeira está certa.
    É meter mãos à obra


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

    Conteúdo patrocinado


    Executar consulta de acrescentar numa outra BD Empty Re: Executar consulta de acrescentar numa outra BD

    Mensagem  Conteúdo patrocinado


      Data/hora atual: Dom 10 Nov - 17:00