Создание модулей VBA в Access

[ayselya1992]

Всем доброго времени суток! У меня есть очень большая просьба тем кто работал с модулями VBA в Access. Дело в том что мне один знакомый человек написал модуль для слияния двух БД с одинаковой структурой и данными (БД прикреплена). Данный модуль сам создавал ключевые поля в таблицах, а также делал связь этих ключей так как привязаны поля в схеме связи. Все работало до тех пор пока не появилась необходимость сделать изменения в БД, то есть нужно было добавить еще одну таблицу и поменять схему связи... Я пыталась редактировать модуль под новую структуру... Гуглила, искала в интернете вроде бы сделала так как должно быть, но модуль все равно не работает.
Люди добрые помогите пожалуйста разобраться, что я сделала не так...

[Aleksandr H.]

У Вас количество полей в запросах не совпадает.
Для strTableName = FindTable(astrTables(0)) количесто полей в INSERT INTO = 48 и в SELECTe = 48, а для strTableName = FindTable(astrTables(1)) в INSERT INTO = 9, SELECT = 11

[ayselya1992]

У меня для strTableName = FindTable(astrTables(0)) в INSERT INTO tDataBase10 (OldID, a, b, c, d, e, f, g, bb, cc, dd, h, i, kk, j, k, l, m, n, o, ll, p, q, r, s, t, u, v, mm, w, kkk, lll, mmm, nn, oo, qq, rr, ss, tt, uu, vv, ww, xx, yy, ff, gg, jj, hh) " & _ так написано, а в SELECT ID, a, b, c, d, e, f, g, bb, cc, dd, h, i, kk, j, k, l, m, n, o, ll, p, q, r, s, t, u, v, mm, w, kkk, lll, mmm, nn, oo, qq, rr, ss, tt, uu, vv, ww, xx, yy, ff, gg, jj, hh " & _ так написано. то есть мне переправить на INSERT INTO = 48 и в SELECTe = 48?

[Aleksandr H.]

Верно, для strTableName = FindTable(astrTables(0)) у Вас

strTableName = FindTable(astrTables(0))
        .CommandText = "INSERT INTO tDataBase10 (OldID, a, b, c, d, e, f, g, bb, cc, dd, h, i, kk, j, k, l, m, n, o, ll, p, q, r, 
s, t, u, v, mm, w, kkk, lll, mmm, nn, oo, qq, rr, ss, tt, uu, vv, ww, xx, yy, ff, gg, jj, hh) " & _
                       "SELECT ID, a, b, c, d, e, f, g, bb, cc, dd, h, i, kk, j, k, l, m, n, o, ll, p, q, r, 
s, t, u, v, mm, w, kkk, lll, mmm, nn, oo, qq, rr, ss, tt, uu, vv, ww, xx, yy, ff, gg, jj, hh " & _
                       "FROM [" & strTableName & "];"

тоесть

INSERT INTO tDataBase10 (OldID, a, b, c, d, e, f, g, bb, cc, dd, h, i, kk, j, k, l, m, n, o, ll, p,
 q, r, s, t, u, v, mm, w, kkk, lll, mmm, nn, oo, qq, rr, ss, tt, uu, vv, ww, xx, yy, ff, gg, jj, hh)
SELECT (ID, a, b, c, d, e, f, g, bb, cc, dd, h, i, kk, j, k, l, m, n, o, ll, p,
q, r, s, t, u, v, mm, w, kkk, lll, mmm, nn, oo, qq, rr, ss, tt, uu, vv, ww, xx, yy, ff, gg, jj, hh) 
FROM [" & strTableName & "];

сравниваем столбцы

(OldID, a, b, c, d, e, f, g, bb, cc, dd, h, i, kk, j, k, l, m, n, o, <= 20
ll, p, q, r, s, t, u, v, mm, w, kkk, lll, mmm, nn, oo, qq, rr, ss, tt, uu, <= 20
 vv, ww, xx, yy, ff, gg, jj, hh)<= 8

(ID,    a, b, c, d, e, f, g, bb, cc, dd, h, i, kk, j, k, l, m, n, o, <= 20
ll, p, q, r, s, t, u, v, mm, w, kkk, lll, mmm, nn, oo, qq, rr, ss, tt, uu, <= 20
vv, ww, xx, yy, ff, gg, jj, hh) <= 8

48==48

теперь для strTableName = FindTable(astrTables(1))

strTableName = FindTable(astrTables(1))
        .CommandText = "INSERT INTO tAvto (PP, PP2, PP3, Nomer, God, Marka, Cvet, Doveren, Foto) " & _
                        "SELECT  tDataBase10.ID,  tDataBase20.ID,  tDataBase30.ID,  t.PP2,  t.PP3,  t.Nomer,  t.God,  t.Marka,  
t.Cvet,  t.Doveren,  t.Foto " & _
                        "FROM [" & strTableName & "] as t INNER JOIN (tDataBase10 ON t.PP = tDataBase10.OldID) 
AND (tDataBase20 ON t.PP2 = tDataBase20.OldID) AND (tDataBase30 ON t.PP3 = tDataBase30.OldID);"

или

INSERT INTO tAvto (PP, PP2, PP3, Nomer, God, Marka, Cvet, Doveren, Foto) 
SELECT  (tDataBase10.ID,  tDataBase20.ID,  tDataBase30.ID,  t.PP2,  t.PP3,  t.Nomer,  t.God,  t.Marka,  t.Cvet,  t.Doveren,  t.Foto)

столбцы

(PP, PP2, PP3,  Nomer,    God,    Marka,   Cvet,  Doveren,   Foto)  <=9

 (tDataBase10.ID,  tDataBase20.ID,  tDataBase30.ID,  t.PP2,  t.PP3,  t.Nomer,  t.God,  t.Marka,  t.Cvet,  t.Doveren,  t.Foto) <=11

9 <> 11
Надо сделать чтобы в INSERT u SELECT было одинаковое количество столбцов

[ayselya1992]

Получается у меня код будет выглядеть таким образом?

strTableName = FindTable(astrTables(1))
        .CommandText = "INSERT INTO tAvto (tDataBase10.ID,  tDataBase20.ID,  tDataBase30.ID, PP, PP2, PP3, Nomer, God, Marka, Cvet, Doveren, Foto) " & _
                        "SELECT  tDataBase10.ID,  tDataBase20.ID,  tDataBase30.ID, PP,  t.PP2,  t.PP3,  t.Nomer,  t.God,  t.Marka,  t.Cvet,  t.Doveren,  t.Foto " & _
                        "FROM [" & strTableName & "] as t INNER JOIN (tDataBase10 ON t.PP = tDataBase10.OldID) AND (tDataBase20 ON t.PP2 = tDataBase20.OldID) AND (tDataBase30 ON t.PP3 = tDataBase30.OldID);"

[Aleksandr H.]

Вроде как да. Ну и для остальных таблиц astrTables(Х) тоже должно быть все синхронно