24/06/2021, 09:00
24/06/2021, 11:32
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
?????????
25/06/2021, 09:43
Ş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
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
kodlar çalışıyor. ama tabloya aynı iş için iki satırı neden atıyor.onu çözemedim
25/06/2021, 21:00
Ç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?