Access SQL   ›   ACCESS SORULARI VE ÖRNEK UYGULAMALARI   ›   ACCESS SORULARI   ›   [SORGU] Varsa update yoksa insert

[SORGU] Varsa update yoksa insert
ask200075
Aktif Üye 40-100

*
Kayıt Tarihi: 09.03.2010
Toplam 31 konu açtı.
Toplam 87 yorum yaptı.
Toplam 0 puanı bulunmakta.
Beğeniler: 0 / 0
#1
14-12-2016, 19:19 (En son düzenleme: 14-12-2016, 19:29 ask200075.)
Tablo1 buna baglı Form1 (Ana ) ayrıca Tablo2 buna bağlı Form2 (veri Depolama)
Form2 den Açılır Kutu ile Tablo1 deki Ay Alanını Güncelliyoruz
Form2 de bulunan Komut Tuşu ile Tablo1 ve Tablo2 yi kontrol ediyoruz eger Tablo1 deki Ay Alanındaki Veri Tablo2 de yoksa Tablo1 de Tüm veriler Tablo2 Taşınacak (Kopyalanacak) Şayet Varsa Tablo1 ile Tablo2 deki Ay alanları eşit Tüm Kayıt satırları dolasıyla bu kayıt satırlarındaki Tüm Alanlar Güncellenecek.
Neticede Form1 de Aynı Ayda diger alan verileinde değişiklik (Düzeltme) yapılmış olabilir.
delete ile Tablo2 deki veriler silinip gönderilebilir ama biz bunu tercih etmek istemiyoruz.
Saygı ve Hürmetler


Eklenti Dosyaları
.zip   insert-update.zip (Boyut: 22,09 KB / İndirilme: 96)



  Bul
  Alıntı
Bu mesajı beğenenler:
dsezgin
Forum Yöneticisi

*
Kayıt Tarihi: 24.03.2013
Toplam 27 konu açtı.
Toplam 9.087 yorum yaptı.
Toplam 1.089 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2013,
Beğeniler: 57 / 239
#2
14-12-2016, 23:01
Visual Basic
  1. Private Sub Komut50_Click()
  2. '*** Kayit VARSA degistir.*******
  3. CurrentDb.Execute "UPDATE Tablo2 INNER JOIN Tablo1 ON Tablo2.SN = Tablo1.SN SET Tablo2.Baba_Adı =
  4. [Tablo1].[Baba_Adı], Tablo2.Dogum_Yerı = [Tablo1].[Dogum_Yerı], Tablo2.Ucret = [Tablo1].[Ucret] 
  5. Where (((Tablo2.Ay) = '" & Me.[Açılan Kutu55] & "'))"
  6. '*** Kayit YOKSA ekle.*******
  7. CurrentDb.Execute "INSERT INTO Tablo2 ( Adı_Soyadı, Baba_Adı, Dogum_Yerı, Ay, Ucret ) " & _
  8. "SELECT Tablo1.Adı_Soyadı, Tablo1.Baba_Adı, Tablo1.Dogum_Yerı, '" & Me.[Açılan Kutu55] & "' AS Expr1, Tablo1.Ucret " & _
  9. "FROM Tablo2 RIGHT JOIN Tablo1 ON Tablo2.[SN] = Tablo1.[SN] WHERE (((Tablo2.SN) Is Null))"
  10. Me.Liste51.Requery
  11. End Sub



En altta ki butonun prosedurunu yukarida ki ile degistirin.
Access Fonksiyonlarının(Deyimler), Sorgu da kullanımı
Rapor veya-Pdf-Dosyalarını Birleştirme Uygulaması



  Website   Bul
  Alıntı
Bu mesajı beğenenler:
ask200075
Aktif Üye 40-100

*
Kayıt Tarihi: 09.03.2010
Toplam 31 konu açtı.
Toplam 87 yorum yaptı.
Toplam 0 puanı bulunmakta.
Beğeniler: 0 / 0
#3
20-12-2016, 14:30
Bilginize,tecrübenize ve ilginize teşekkür ederim hocam.



  Bul
  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  Depo Takibinde Malzeme Yoksa Uyarı Vermesi hegu 2 333 22-04-2025, 21:56
Son Mesaj: hegu
  Sorgu Içerisinde Boş Alan Varsa 0 (sıfır) Ile Doldurmak denizfatihi 3 515 15-08-2024, 14:38
Son Mesaj: beab05
access-sql-18 Insert ile formdan tabloya kayıt ekleme Enigmatic 18 21.535 07-02-2024, 18:41
Son Mesaj: halil.tefci
  Aynı Tarihli Veri Varsa Işlem Yapmasın Ve Sql Col Sayısını Arttırma snapper 9 1.051 20-10-2023, 00:36
Son Mesaj: dsezgin
  Sorgu Işlemi Sonunda Veri Yoksa Bulunduğu Hücreye 0 Olarak Otomatik Değer Verme ofbayoglu61 12 1.124 21-07-2023, 10:09
Son Mesaj: onur_can
  Sürekli Form'da Insert Into Nasıl Yapılır? benuva 3 547 28-01-2022, 00:02
Son Mesaj: dsezgin
  [SORGU] Tabloda Boş Alan Varsa Sorguda Göstermiyor husem 11 842 02-11-2021, 13:46
Son Mesaj: husem
  ınsert ınto'da ıd Görüntüleme ışlemi benuva 10 1.026 25-05-2021, 22:19
Son Mesaj: benuva

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi