Skip to main content

AccessTr.neT


Kayıt Varsa Güncelle, Yoksa Ekle

Kayıt Varsa Güncelle, Yoksa Ekle

#7
Bu konuda yardımcı olabilir misiniz?
Cevapla
#8
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.
Son Düzenleme: 24/06/2021, 11:34, Düzenleyen: SeferŞANLI.
Cevapla
#9
?????????
Cevapla
#10
Ş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
Cevapla
#11
kodlar çalışıyor. ama tabloya aynı iş için iki satırı neden atıyor.onu çözemedim
Cevapla
#12
Ç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?
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task