Excel'den access tablolara şartlı veri dağıtma

Katılım
2 Mart 2005
Mesajlar
2,960
Excel Vers. ve Dili
ev: Ofis 2007- Win Xp
iş: Ofis 2010- Win Vista
Öncelikle herkese kolay gelsin aşağıdaki gibi bir sorum var nasıl yol izlemeliyim.
DATA_1.XLSm: IDNO, BASLIK1, BASLIK2, BASLIK3, BASLIK4, BASLIK5, BASLIK6, BASLIK7, BASLIK8, BASLIK9, BASLIK10, BASLIK11, BASLIK12, BASLIK13, VGT (VeriGirişTarihi)
DATA_2.XLSm IDNO, BASLIK111, VGT
Excel’de Alanlarına sahip iki dosyam var.

Accesta da TABLO1, TABLO2, TABLO3, TABLO4 , TABLO5, TABLO6,TABLO7 Adlı aşağıdaki alanlara sahip tablolarım var

Data1.xls de ki makro ile:
Tablo1 de IDNO, BASLIK1, BASLIK2, BASLIK3, BASLIK4, BASLIK5, BASLIK6, VGT (kimlik)
Tablo2 de SNO, IDNO, BASLIK7, BASLIK8, VGT (nko)
Tablo3 de SNO, IDNO, BASLIK9, BASLIK10, VGT (adr)
Tablo4 de SNO, IDNO, BASLIK10, BASLIK11, VGT (snd)
Tablo5 de SNO, IDNO, BASLIK2, VGT (eskisoyadı)
Tablo6 da SNO, IDNO, BASLIK13, VGT (kangrubu)

İsteğim excelde çalıştıracağım makro ile,
Access Tablo1 in IDNo İle eşleşen veri yok ise;
exceldeki verileri tablo1,2,3,4,5,6 içinde dağıtması
Access Tablo1 in IDNo İle eşleşen veri var ise;
Excel VGT, Access Tablo1 VGT den büyük ise
Tablo1 de BASLIK1, BASLIK2, BASLIK3, BASLIK4, BASLIK5, BASLIK6, VGT ile değiştirmesi, exceldeki BASLIK2 ile accestaki BASLIK2 farklı ise tablo5 e kaydetmesi,
Tablo2 de BASLIK7, BASLIK 8 değerleri aynı ise işlem yapmasın, farklı ise yeni bir satır eklesin: SNO, IDNO, BASLIK7, BASLIK8, VGT
Tablo3 de BASLIK9, BASLIK 10 değerleri aynı ise işlem yapmasın, farklı ise yeni bir satır eklesin: SNO, IDNO, BASLIK9, BASLIK10, VGT
Tablo4 de BASLIK11, BASLIK 12 değerleri aynı ise işlem yapmasın, farklı ise yeni bir satır eklesin: SNO, IDNO, BASLIK11, BASLIK12, VGT
Tablo6 de BASLIK13 değeri dolu ve aynı ise işlem yapmasın, boş ise exceldeki değer ile güncellesin

Excel VGT, Access Tablo1 VGT den eşit ya da küçük ise işlem yapılmayacak.

DATA_2.XLSm deki makro ile (telefon numaralarını çekme)
Access Tablo7 in IDNo, BASLIK111 İle eşleşen veri yok ise; eklesin, var ise işlem yapmasın.
 
Üst