AccessTr.neT

Tam Versiyon: Kayıt Varsa Güncelle, Yoksa Ekle
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2 3
Eklediğim programda "is_id" türüne göre kayıt oluştutulduysa kaydı güncelleştirmesini, yoksa eklemesini istiyorum. Bir türlü Yapamadım. Ayrıca öğretmen sayısı girilmeden hesapla/güncelleştir butonu çalışmaması ve öğretmen sayısı kısmında sıfır ve boşluk kriterlerinde işlem yapmamasını nasıl sağlarız.

"Ana menüden"-"dersyükü hesabı" -"hesapla/güncelle" butonu tıklama yordamı.
Dcount ile kaydın olup olmadığı kontrol edilebilir.
If DCount("ders_ter_id", "tbl_dersyuku_alt", "[is_id]=" & Gis_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 & ""
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 & "," & Gis_id & ")"
DoCmd.SetWarnings True

End If

bu şekilde deniyorum lakin hatalar alıyorum.
Yapamadım. Arkadaşlar. Bu konuda yardımcı olabilir misiniz?
Bilgisayar olmadığı için dosyanızı inceleyemiyorum sorun nerede çıkıyor?
dcount sonucu doğru gösteriyor mu?
https://resimyukle.org/i/BBtiu

Ana form ve alt formla "is_id" ile bağlı

Amacım şu dersler tablosundan seçilen dersleri alt forma aktardıktan sonra, eklediğim resimdeki değişken verileri hesaplatarak ilgili tablolara göndermek.
Eğer tabloda seçilen işe ait kayıt varsa güncelleyecek, yoksa ekleyecek.


Hatalar şu şekilde oluşuyor.

Öğretmen sayısı alanına veri girilmeden güncelle butonuna basınca bağlı tabloya kayıt atıyor. Oysa atmaması gerek.
Yine Öğretmen alanına veri girilip güncelle butonuna basılınca tablonun alt satırına veriyi atıyor ve forma mevcut veri gelmiyor.

**** Öğretmen sayısı alanı nına sıfır boşluk ve metinsel karakter girilmemeli.
***** veri girişi sadece güncelle kaydet butonuyla sağlanmalı


Dim Gfiilidersyk, Gisletme, Gfiil, Gatlsef, Galansef, Gddh, Gtoplamdersyk, Gogrtfiili, Gogrtplyk, Gogrtsay As Integer
If txtogrtsay = 0 Or IsNull(txtogrtsay) Then
MsgBox "Lütfen öğretmen sayısını giriniz!!!!...", vbOKOnly, "Uyari"
Me.Undo
Exit Sub
End If
Gisletme = Dsum ("dersyükü", "tbl_dersyuku", "[is_id]=" & [is_id] & " and [dersadi]='İşletmelerde Beceri Eğitimi'") 'işletme yükü
Gfiil = Dsum ("dersyükü", "tbl_dersyuku", "[is_id]=" & [is_id])
Gfiilidersyk = Gfiil - Gisletme

Galansef = Me.txtalansef
Gatlsef = Me.txtatlsef
Gogrtsay = Me.txtogrtsay
Gis_id = Me.is_id

Gddh = Int(Gfiilidersyk / Me.txtogrtsay)

Gtoplamdersyk = Nz((Gfiilidersyk + Gisletme + Galansef + Gatlsef + Gddh), 0) ' toplam ders yükü
Gogrtfiili = Int(Gfiilidersyk / Gogrtsay) 'öğretmen başına düşen fiili yük

Gogrtplyk = Int(Gtoplamdersyk / Gogrtsay) ' öğretmen başına düşen toplam yük



If DCount("ders_ter_id", "tbl_dersyuku_alt", "[is_id]=" & Gis_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 & ""
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 & "," & Gis_id & ")"
DoCmd.SetWarnings True

End If
Forms!frm_tercih_islemleri!.Form.frm_alt_tercih.Requery
'Forms!frm_tercih_islemleri!.Form.frm_ders_Saati.Recalc
'Forms!frm_tercih_islemleri!.Form.frm_ders_Saati.Requery
Forms!frm_tercih_islemleri.Recalc
****** veri girişinden vazgeçilince kayıt oluşturulmamalı.
Sayfalar: 1 2 3