Вопрос : VBA для того чтобы откорректировать соединения таблицы к новому положению

Hi все,

I am пытая использовать Кодего для того чтобы откорректировать соединения нескольких таблиц в базе данных. база данных

The имеет несколько таблицы local и несколько соединили одни. Потребители загружают их собственный экземпляр системы и когда они бегут она для the first time они получают startup экран на первой пользе спрашивает их для того чтобы пойти до установка process.

First в линии re-linking немногие соединенные таблицы.  Форма имеет положение невыполнения обязательства но потребитель может составить карту привод сети по мере того как они хотят и могут соединиться к по-разному приводу в зависимости от их location.

So на форме будет полем с положением невыполнения обязательства, только кнопка для того чтобы просматривать для возвращения базу данных в отличая положении. Раз сделано следующий просто class= " lineNumbers " >
1 >
:
2:
3:
4:
>Sub ChangeLink " prettyprint " " class= id= " codeSnippet841037 >


Where Me.txt, котор будет 

This «C:\My Documents\db.mdb " карты привода т.е.  Если я отлаживаю соединение, то таблиц прежде и после это положение привода этим же несмотря на факт оно должно изменить.  

As другое испытание, если я выбираю другую вполне случайно базу данных, то которая не содержит таблицы мы будет ищущ я не получает никакие ошибки или что-нибыдь….

Can любое видит могло быть вверх с этим? 

Cheers
DeZZar


class= 











Ответ : VBA для того чтобы откорректировать соединения таблицы к новому положению










> на сердечнике обеих функций соединения точно такая же процедура я вывешивал выше.

Не, потому что вы вызываете CurrentDb множественные времена где вы должны вызвать его раз только.
Здесь будет как для прикреплять таблицы в backend архиве расположенном в таком же скоросшивателе как frontend.
Вы можете легк доработать его using курс для backend как параметр.

/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 как DAO.Database
  Тусклое tdf как DAO.TableDef
  
  Тусклое strSourceTableName  как шнур
  Тусклое strCurrentPath      как шнур
  Тусклое strAttachPath       как шнур
  Тусклое strFrontendPath     как шнур
  Тусклое strBackendPath      как шнур
  Тусклое strConnect          как шнур
  
  На ошибке переход Err_GentilknytData
  
  Установите dbs = CurrentDb
  
  strFrontendPath = dbs. Имя
  strCurrentPath = средний (strFrontendPath, 1, InStrRev (strFrontendPath, «\ ") - 1)

  Для каждого tdf в dbs.TableDefs
    strSourceTableName = tdf.SourceTableName
    Если Len (strSourceTableName) > 0 после этого
      strBackendPath = разделило (tdf. Соединитесь, «=") (1)
      strAttachPath = средний (strBackendPath, 1, InStrRev (strBackendPath, «\ ") - 1)
      Если StrComp (strCurrentPath, strAttachPath, vbTextCompare) <> 0 после этого
        strConnect = «; DATABASE=» & strCurrentPath &» \ AktivitetData.mdb "
        tdf. Соединитесь = strConnect
        tdf.RefreshLink
      Закончитесь если
    Закончитесь если
  Затем

  Установите tdf = ничего
  Установите dbs = ничего
  



































Другие решения
 























  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
    • 
    		

    

    
    		

    


    

    



  •  Шнур ошибки в блоке задвижки?
    • 
    		

    

    
    		

    


    

    



  •  сколько вариант сервера SQL на одной машине
    • 
    		

    

    
    		

    


    

    



  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
    • 
    		

    

    
    		

    


    

    



  •  Активно директория DNS записывает вопрос
    • 
    		

    

    
    		

    


    

    



  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
    • 
    		

    

    
    		

    


    

    



  •  Прокладчик OCE 9400 не начинает
    • 
    		

    

    
    		

    


    

    



  •  как добавить десятичное место в формуле в отчете о кристалла seagate
    • 
    		

    

    
    		

    


    

    



  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
    • 
    		

    

    
    		

    


    

    



  •  VB6 к VS2010 - консультации тренировки?
    • 
    		

    

    
    		

    

    

    		

    

    		

    

    


    

    


    		

    

    
 

    

    		

    

    		

    

    		

    

    
    		

    

    

    

    


    

    

    

    

    

    
programming4us

programming4us