Pergunta : VBA para emendar as ligações da tabela a uma posição nova

Olá! tudo,

I am que tenta usar o código para emendar as ligações de diversas tabelas em uma base de dados. a base de dados do

The tem um número de tabelas do local e algumas lig. Os usuários transferem sua própria cópia do sistema e quando o funcionam pela primeira vez começ uma tela startup no primeiro uso que os pede que para atravessar uma instalação process.

First na linha re-linking poucas tabelas lig.  O formulário tem uma posição de defeito mas um usuário pode traçar a movimentação de rede como o que quer que querem e podem precisar de conetar a uma movimentação diferente dependendo de seu location.

So no formulário é um campo com a posição de defeito, mas uma tecla para consultar para um retorno uma base de dados em uma posição de deferimento. Feito uma vez o seguinte class= simples " lineNumbers " >
1 do >
:
2:
3:
4:
>Sub codeBody ChangeLink do " prettyprint " " do class= do id= " codeSnippet841037 do >


Where Me.txt é o 

This de “C:\My Documents\db.mdb " do mapa da movimentação isto é não parece trabalhar.  Se eu elimino erros da conexão das tabelas antes e depois de que este a posição da movimentação é o mesmo apesar do fato deve ter mudado.  o 

As um outro teste, se eu escolho uma outra base de dados completamente aleatória que não contenha as tabelas nós é procurando mim não começ nenhum erro ou qualquer coisa….o 

Can qualquer um considera o que pôde estar acima com este? 

Cheers
DeZZar


  
  class= do 





  
 

  



Resposta : VBA para emendar as ligações da tabela a uma posição nova


  

 



 


> no núcleo de ambas as funções da ligação está exatamente o mesmo procedimento que eu afixei acima.

Não, porque você chama CurrentDb épocas múltiplas onde você deve o chamar uma vez somente.
É aqui como para unir tabelas em uma lima backend situada no mesmo dobrador que frontend.
Você pode facilmente modificá-lo using o trajeto para a parte posterior como um parâmetro.

/gustav
 
                       

                       

         

           
             
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:


           		
           
             
  Dbs não ofuscantes como DAO.Database
  Tdf não ofuscante como DAO.TableDef
  
  strSourceTableName não ofuscante  como a corda
  strCurrentPath não ofuscante      como a corda
  strAttachPath não ofuscante       como a corda
  strFrontendPath não ofuscante     como a corda
  strBackendPath não ofuscante      como a corda
  strConnect não ofuscante          como a corda
  
  No erro Err_GentilknytData empreendedores
  
  Ajustar dbs = CurrentDb
  
  strFrontendPath = dbs. Nome
  strCurrentPath = meados de (strFrontendPath, 1, InStrRev (strFrontendPath, “\ ") - 1)

  Para cada tdf em dbs.TableDefs
    strSourceTableName = tdf.SourceTableName
    Se Len (strSourceTableName) > 0 então
      strBackendPath = separação (tdf. Conetar, o “=") (1)
      strAttachPath = meados de (strBackendPath, 1, InStrRev (strBackendPath, “\ ") - 1)
      Se StrComp (strCurrentPath, strAttachPath, vbTextCompare) <> 0 então
        strConnect = “; DATABASE=” & strCurrentPath &” \ AktivitetData.mdb "
        tdf. Conetar = strConnect
        tdf.RefreshLink
      Terminar se
    Terminar se
  Em seguida

  Ajustar o tdf = nada
  Ajustar dbs = nada
  


           		
         

       

         

         

         

         

       










 

                            

                              

                                

                                  


                                    Outras soluções
                                     
                                  

                                

                              

                              

                                
                                
                              

                            

                          




                    

                  

                  

                  
                         


                        

                    
                      

                         
                        

                      

                    

                  

              

              


        

            

          


 
         		
      




            

              

                
              

              

                



 


                    

                        

                          programming4us
                          
                          programming4us