Cuestión : VBA para enmendar acoplamientos de la tabla a una nueva localización

Hola todos,

I que intenta utilizar código para enmendar los acoplamientos de varias tablas en una base de datos. la base de datos del

The tiene un número de tablas del local y algunas ligaron unos. Los usuarios transfieren su propia copia del sistema y cuando lo funcionan por primera vez consiguen una pantalla de lanzamiento en el primer uso que los pide que para pasar con una disposición process.

First en línea está reconectando las pocas tablas ligadas.  La forma tiene una localización de defecto pero un usuario puede trazar la impulsión de red como lo que quieren y pueden para necesitar conectar con una diversa impulsión dependiendo de su location.

So en la forma es un campo con la localización de defecto, solamente un botón para hojear para una vuelta una base de datos en una localización de diferenciación. Una vez hecho el class= simple siguiente " lineNumbers " >
1 del >
:
2:
3:
4:
>Sub codeBody ChangeLink del " prettyprint " del class= del id= " codeSnippet841037 " del >


Where Me.txt es el 

This de “C:\My Documents\db.mdb " del mapa de la impulsión es decir no parece trabajar.  Si elimino errores de la conexión de las tablas antes y después de que éste la localización de la impulsión es igual a pesar de el hecho debe haber cambiado.  el 

As otra prueba, si elijo otra base de datos totalmente al azar que no contenga las tablas nosotros es buscando yo no consigue ningún error o cualquier cosa….¿el 

Can cualquier persona considera qué pudo estar para arriba con esto? 

Cheers
DeZZar


  
  class= del 





  
 
  
  



Respuesta : VBA para enmendar acoplamientos de la tabla a una nueva localización


  

 



 


> en la base de ambas funciones del acoplamiento está exactamente el mismo procedimiento que he fijado arriba.

No, porque usted llama CurrentDb las épocas múltiples donde usted debe llamarlo una vez solamente.
Aquí es cómo para atar las tablas en un archivo backend situado en la misma carpeta que el anticipado.
Usted puede modificarla fácilmente usar la trayectoria para la parte como 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 déviles como DAO.Database
  Tdf dévil como DAO.TableDef
  
  strSourceTableName dévil  como secuencia
  strCurrentPath dévil      como secuencia
  strAttachPath dévil       como secuencia
  strFrontendPath dévil     como secuencia
  strBackendPath dévil      como secuencia
  strConnect dévil          como secuencia
  
  En el error Err_GentilknytData indicado
  
  Fijar los dbs = CurrentDb
  
  strFrontendPath = dbs. Nombre
  strCurrentPath = mediados de (strFrontendPath, 1, InStrRev (strFrontendPath, “\ ") - 1)

  Para cada tdf en dbs.TableDefs
    strSourceTableName = tdf.SourceTableName
    Si Len (strSourceTableName) > 0 entonces
      el strBackendPath = partió (tdf. Conectar, el “=") (1)
      strAttachPath = mediados de (strBackendPath, 1, InStrRev (strBackendPath, “\ ") - 1)
      Si StrComp (strCurrentPath, strAttachPath, vbTextCompare) <> 0 entonces
        strConnect = “; DATABASE=” y strCurrentPath y” \ AktivitetData.mdb "
        tdf. Conectar = strConnect
        tdf.RefreshLink
      Terminar si
    Terminar si
  Después

  Fijar el tdf = nada
  Fijar los dbs = nada
  


           		
         

       

         

         

         

         

       










 

                            

                              

                                

                                  


                                    Otras soluciones
                                     
                                  

                                

                              

                              

                                
                                
                              

                            

                          




                    

                  

                  

                  
                         


                        

                    
                      

                         
                        

                      

                    

                  

              

              


        

            

          


 
         		
      




            

              

                
              

              

                



 


                    

                        

                          programming4us
                          
                          programming4us