Poredjenje strukture tabela iz dva mdb file-a

[ mpaja @ 21.05.2013. 10:09 ] @

Ako može pomoć kolega za sledeći problem:

Tokom razvoja aplikacije back end file sa podacima se razvijao i menjala se struktura tabela. U nekom trenutku je došlo do toga da na dva mesta imamo isti mdb
sa istim sadržajem tabela ali tabele imaju različitu strukturu (10% je razlika). Pitanje da li je moguće pomoću VBA koda porediti tabelu po tabelu iz dva mdb-a i
označiti tabele koje su različite strukture (eventualno i polja iz tabele).

Pretpostavljam da spisak tabela se može napraviti i preko VBA (mislim da to ima u bazi znanja)

Hvala

[ Zoran.Eremija @ 21.05.2013. 11:15 ] @

Imate na ovom linku funkciju (drugi primer)...
http://www.tek-tips.com/viewthread.cfm?qid=1125949

[ mpaja @ 21.05.2013. 14:10 ] @

Nisam isprobao, čim isprobam javljam da li valja

[ Zoran.Eremija @ 21.05.2013. 14:11 ] @

Evo da probate :-)

[ Getsbi @ 21.05.2013. 14:43 ] @

Ja proverio. Radi. Zahvaljujem Zoranu na primeru.
Vredi ga zakačiti u Add Ins alate.

[ mpaja @ 21.05.2013. 15:02 ] @

Probao radi!

Ajde još malo napora:

1. daje razliku da li postoje tabele u jednom ili drugom mdb
2. daje da li polje u okviru mdb postoji ili ne

Ali

ne daje da li je struktura polja (tip, dužina....) različita

može lii to?

[ Zoran.Eremija @ 21.05.2013. 17:17 ] @

Probajte sada...

[ mpaja @ 22.05.2013. 07:25 ] @

Bravo majstore, to je to!

Svaka čast, hvala!

[ Zoran.Eremija @ 22.05.2013. 08:03 ] @

Evo verzije sa rezultatom komparacije u tabeli i sa opisom polja...

_{[Ovu poruku je menjao Zoran.Eremija dana 22.05.2013. u 09:50 GMT+1]}

[ Getsbi @ 22.05.2013. 10:22 ] @

Šta reći, a ne pohvaliti te opet?

[ mpaja @ 22.05.2013. 18:14 ] @

Šta bi bilo da nema ovakvih majstora i interneta !?

Kapa dole majstore!

[ Getsbi @ 24.05.2013. 04:05 ] @

Da nebi program pucao ako se ne unesu putanje do fajlova, a nesmotreno pritisne dugme Comapre, neophodno je dodati još i ovo:

Code:
Private Sub Compare_GotFocus()
    If IsNull([Master]) Then
        MsgBox "Morate odabrati master fajl", vbCritical, "Paznja"
        Me![Master].SetFocus
       Exit Sub
    End If
    If IsNull([Protege]) Then
        MsgBox "Morate odabrati protage fajl", vbCritical, "Paznja"
        Me![Protege].SetFocus
       Exit Sub
    End If
End Sub

Naravno, treba i poređati kontrole u Tab Order.