+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Kayıt Varsa Güncelle, Yoksa Ekle (/konu-kayit-varsa-guncelle-yoksa-ekle.html)
RE: Kayıt Varsa Güncelle, Yoksa Ekle - SeferŞANLI - 24/06/2021
Bu konuda yardımcı olabilir misiniz?
RE: Kayıt Varsa Güncelle, Yoksa Ekle - SeferŞANLI - 24/06/2021
If DCount("ders_ter_id", "tbl_dersyuku_alt", "[is_id]=" & is_id) > 0 Then
DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE tbl_dersyuku_alt set tbl_dersyuku_alt.ogrtsay=" & Gogrtsay & ",tbl_dersyuku_alt.alansef=" & Galansef & ",tbl_dersyuku_alt.atlsef = " & Gatlsef & ",tbl_dersyuku_alt.ibe = " & Gisletme & ",tbl_dersyuku_alt.ddh = " & Gddh & ",tbl_dersyuku_alt.dersyükü = " & Gfiilidersyk & ",tbl_dersyuku_alt.ogrfiilidersyk = " & Gogrtfiili & ",tbl_dersyuku_alt.ogrtplmdrsyk = " & Gogrtplyk & ",tbl_dersyuku_alt.tpldersyk = " & Gtoplamdersyk & " WHERE tbl_dersyuku_alt.[is_id]=" & is_id
DoCmd.SetWarnings True
Else
DoCmd.SetWarnings False
DoCmd.RunSQL "insert into tbl_dersyuku_alt(ogrtsay,alansef,atlsef,ibe,ddh,dersyükü,ogrfiilidersyk,ogrtplmdrsyk,tpldersyk,is_id)values (" & Gogrtsay & "," & Galansef & "," & Gatlsef & "," & Gisletme & "," & Gddh & "," & Gfiilidersyk & "," & Gogrtfiili & "," & Gogrtplyk & "," & Gtoplamdersyk & "," & is_id & ")"
DoCmd.SetWarnings True
End If
https://resimyukle.org/i/B8KYy
Yukarıdaki kodda nerde hata var. Tabloya boş satır ekliyor. Yapması gereken şek; aynı iş türü daha önceden eklendiyse kaydı güncelleyecek, yoksa yeni kayıt açacak.
RE: Kayıt Varsa Güncelle, Yoksa Ekle - SeferŞANLI - 25/06/2021
?????????
RE: Kayıt Varsa Güncelle, Yoksa Ekle - berduş - 25/06/2021
Şu sıralar bilgisayar olmadığı için doğrudan sorun ne bilemiyorum ama aşağıdaki adımları takip ederek sorunu saptayabilirsiniz? Her adımı diğer kodlar olmadan sadece ilgili kodu yazarak deneyin ama en başta ilgili metin kutularinin değerinin doğru alınıp alınmadığını kontol edin
1 - DCount kısmi doğru çalışıyor mu? Mesela sadece DCount için
Msgbox dcount..... kodunu yazıp deneyin dcountlarin sonucu doğru mu?
2 - eğer DCount sonucu doğru ise if kısmını kontrol edin
If dcount>0 then
Msgbox dcount.... & " büyük "
Else
Msgbox ....
End if
gibi
3 - var olduğunu bildiğiniz bir kayıt için güncelleme kodunuzu deneyin
Önce verileri doğrudan koda ekleyerek sonra metin kutularından çekerek
4 - olmadığını bildiğiniz bir değer için ekleme kodunu deneyin
Önce verileri doğrudan koda ekleyerek sonra metin kutularından çekerek
RE: Kayıt Varsa Güncelle, Yoksa Ekle - SeferŞANLI - 25/06/2021
kodlar çalışıyor. ama tabloya aynı iş için iki satırı neden atıyor.onu çözemedim
RE: Kayıt Varsa Güncelle, Yoksa Ekle - berduş - 25/06/2021
Çok inceleyemedim o nedenle hatalı olabilirim ama altformu neden tabloya bağladınız? Her koşulda öğretmen sayısı değeri 0 geliyor. Tabloya bağlamadan yapmayı dener misiniz?