selam
açıklaması :
tablo 1 ve tablo 2 adında iki tablom var
tablo 1 de asıl kayıtlar mevcut
tablo 2de ise ara bilgiler yani tablo 1 de asıl olacak veriler önce tablo 2 de işlenip yeni kayıt ise yeni güncelleme yapılacaksa tablo1 den alınıp tablo 2 de revize edilip tablo 1 aktarılacak

sorum : tablo 1 den güncellemek için tablo 2 ye verileri aldım ve bir kısmında değişiklik yaptım ve bir kaç tanede yeni kayıt girdim

tablo 2 den tablo 1 geri yükleme sırasında aynı kayıt var ise güncellesin yok ise eklesin
mantığı nasıl olabilir

eğer bağlı olduğu alan açılır kutuyla formda görünürse olmayan kayıtları da zaten ekleyebilirsiniz. Varsa da listeden seçer ilgili kaydı güncellersiniz.

VBA altından ise tablo1 alanında ilgili değeri aratırsınız bulurfsanız o kayda gödnerme yapar yoksa ekleme sorgusu çalıştırılır ya da bunları DAO ile Recordsetin FindFist metoduyla yapabilirsiniz. Varsa update yapılır yoksa addnew metodu yapılır.

ama en kolayı sağlmı alanları bağlmaak ve de açılır kutu ile seçtirmek.

Merhaba aydın3838,

Mantık şu şekilde olabilir:

VBA kodları ile 2. tablodaki kaydın birince tabloda var olup olmadığı kontrol edilir. (Dlookup ile kaydın olup olmadığı bulunabilir.)
Eğer kayıt varsa update, yoksa insert into komutu çalışıtırılır.

Basit bir örnek hazırlarsanız üzerinde de gösterebilirim.

İyi çalışmalar.

selam
biraz işlerin yoğunluğundan bakamadım
sayın mehmet ve mirzakatar verdiğiniz cevaplar doğrultusunda kendi cevabımı buldum
iki cevapta birbirine çok yakın ve ikiisni de deneyip örnek olarak ekleyeceğim
saygılarımla

aynı veri varsa güncellesin yoksa eklesin Konusunu açmış ve
iki cevapta birbirine çok yakın ve ikiisni de deneyip örnek olarak ekleyeceğim demişsiniz Site de aradım ama bu örneklemeyi ve buna benzer örneklemeleri herhalde ben bulamadım
Bu Konuda örnekleme bekliyoruz Hocamlarımdan

Sn ask200075;
Konuda anlatilan yonteme misal
if dcount("*","KayitYapilacakTabloAdi","[KayitEklenecekSutunAdi]=" & Forms("FormAdi").FormMetinKutusu)>0 then
'**** Yoksa Ekleme sorgusu calistir **************
currentdb.execute "Insert into KayitYapilacakTabloAdi ( KayitEklenecekSutunAdi ) Select " & Forms("FormAdi").FormMetinKutusu & " as E1"
else
'**** Varsa Guncelleme sorgusu calistir **************
currentdb.execute "Update KayitYapilacakTabloAdi Set GuncellemeSutunAdi = 20161118 Where ((KayitEklenecekSutunAdi)=" & Forms("FormAdi").FormMetinKutusu & ")"
end if