Kayıt Varsa Güncelle, Yoksa Ekle

1 2 3
24/06/2021, 09:00

SeferŞANLI

Bu konuda yardımcı olabilir misiniz?
24/06/2021, 11:32

SeferŞANLI

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.
25/06/2021, 01:16

SeferŞANLI

?????????
25/06/2021, 09:43

berduş

Ş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
25/06/2021, 17:17

SeferŞANLI

kodlar çalışıyor. ama tabloya aynı iş için iki satırı neden atıyor.onu çözemedim
25/06/2021, 21:00

berduş

Ç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?
1 2 3