(12/06/2018, 01:08)fascioğlu yazdı: 1-MAAS formunda ODENEN tutarı kasaya aktaramıyorum bosmaas sorgusu
hatasını veriyor.Sorgunun ölçütlerin ne şekilde denediysem olmadı.
Alt formda ODENEN metin kutusunun güncelleştirme sonrasında olayındaki kodu aşağıdaki ile değiştirerek deneyiniz.
If MsgBox("İşlem kaydedilsin mi?", vbInformation + vbYesNo) = vbYes Then
DoCmd.RunCommand acCmdSaveRecord
DoCmd.SetWarnings False
If DCount("*", "srg_bosmaas") > 0 Then
DoCmd.RunSQL "UPDATE srg_bosmaas SET srg_bosmaas.GIDERCESIDI = '" & ADISOYADI & "', srg_bosmaas.NAKIT1 = " & [ODENEN] & ", srg_bosmaas.TURU1 = 'Maaş' WHERE (((clng(srg_bosmaas.[ISLEMTARIHI]))='" & CLng(Me.ODMTAR) & "'));"
Else
DoCmd.RunSQL "INSERT INTO tbl_KASA ( ISLEMTARIHI, NAKIT1, GIDERCESIDI, TURU1 ) SELECT tbl_MAAS.ODMTAR, tbl_MAAS.ODENEN, tbl_PERSONEL.adisoyadi, 'Maaş' AS IslemTuru FROM tbl_MAAS INNER JOIN tbl_PERSONEL ON tbl_MAAS.PERSID = tbl_PERSONEL.PERSID WHERE (((clng(tbl_MAAS.ODMTAR))= " & CLng([ODMTAR]) & ") AND ((tbl_MAAS.ODENEN)=" & [ODENEN] & "));"
End If
DoCmd.SetWarnings True
Else
Me.Undo
End If
Me.Recalc
(12/06/2018, 01:08)fascioğlu yazdı: 2-Musterı_Cari_Alt formunda veri girip odeme_bilgileri formuna
ödeme girişini yaptığımda Cari_alt formuna boş satır ekliyor.Ayrıca seç sil komutu siliyor ama seçilen satırı değil ve silme sonrası ödeme toplamından düşmüyor.
2-Boş satır ile ilgili sorun göremedim,
3-Seç sil için kriteri MUSID olarak belirlemişsiniz, sorguyu kriter odeme_ıd olacak şekilde düzeltin.
4- Ödeme toplamının kodu
DSum("[odeme_tutari]", "tbl_odeme_bilgileri", "[MUSID]= " & GMusid)