Fråga : VBA som ska ändras, bordlägger anknyter till ett nytt läge

Hi alla, förmiddagen för

I försöker att använda, kodifierar för att ändra anknyter av flera bordlägger i en databas. databas för

The har ett nummer av lokal bordlägger, och några anknöt. Användare nedladdar deras eget kopierar av systemet och, när de kör det för den första tiden de får en start avskärmer på första bruk, som frågar dem att för att gå till och med en ställa in process.

First fodra in re-linking det anknöt fåtalet bordlägger.  Bilda har ett standardläge, men en användare kan kartlägga knyta kontaktdrevet, som allt vad de önskar och kan för att behöva att förbinda till ett olikt drev beroende av deras location.

So på bilda, är en sätta in med standardläget, bara en knäppas för att bläddra för en retur en databas i ett skilja sig åt läge. En gång gjort efter enkelt kodifiera class= " lineNumbers " >
1 för >

Where Me.txt är drevet kartlägger dvs. ”C:\My Documents\db.mdb " 

This verkar inte för att fungera.  Om jag testar för fel bordlägger anslutning för, och, efter detta drevläget har varit den samma illviljan faktumet, det bör har ändrat.  

As another testar, om jag väljer en annan fullständigt slumpmässig databas som inte innehåller bordlägger oss är söka efter mig får inga fel eller något….,

Can någon ser att vad kan, var upp med detta? 

Cheers
DeZZar


  
  " klar " 


:
2:
3:
4:
>Sub ChangeLink " för prettyprint " för class= för id= " codeSnippet841037 " för >

  
 
 
  



Svar : VBA som ska ändras, bordlägger anknyter till ett nytt läge


  

 



 


> på kärna ur av båda anknyta fungerar är exakt det samma tillvägagångssättet som jag har postat över.

Inte, därför att du den appellCurrentDb multipeln tajmar var dig bör appellen det en gång endast.
Är här hur för att fästa bordlägger i en backend sparar lokaliserat i den samma mappen som frontend.
Du kan lätt ändra den using banan för backenden som en parameter.

/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:


           		
           
             
  Dunkla dbs som DAO.Database
  Dunkel tdf som DAO.TableDef
  
  Dunkel strSourceTableName  som stränger
  Dunkel strCurrentPath      som stränger
  Dunkel strAttachPath       som stränger
  Dunkel strFrontendPath     som stränger
  Dunkel strBackendPath      som stränger
  Dunkel strConnect          som stränger
  
  På felet GoTo Err_GentilknytData
  
  Fastställda dbs = CurrentDb
  
  strFrontendPath = dbs. Känt
  strCurrentPath = mitt- (strFrontendPath, 1, InStrRev (strFrontendPath, ”\”) - 1)

  För varje tdf i dbs.TableDefs
    strSourceTableName = tdf.SourceTableName
    Om Len (strSourceTableName) > 0 därefter
      strBackendPath = splittring (tdf. Förbind ”=”) (1)
      strAttachPath = mitt- (strBackendPath, 1, InStrRev (strBackendPath, ”\”) - 1)
      Om StrComp (strCurrentPath, strAttachPath, vbTextCompare) <> 0 därefter
        strConnect = ”; DATABASE=” & strCurrentPath &” \ AktivitetData.mdb ",
        tdf. Förbind = strConnect
        tdf.RefreshLink
      Avsluta om
    Avsluta om
  Därefter

  Fastställd tdf = ingenting
  Fastställda dbs = ingenting
  


           		
         

       

         

         

         

         

       










 

                            

                              

                                

                                  


                                    Andra lösningar
                                     
                                  

                                

                              

                              

                                
                                
                              

                            

                          




                    

                  

                  

                  
                         


                        

                    
                      

                         
                        

                      

                    

                  

              

              


        

            

          


 
         		
      




            

              

                
              

              

                



 


                    

                        

                          programming4us
                          
                          programming4us