SELECT TOP 1 tbl_KASA.ISLEMTARIHI, tbl_KASA.GELIRCESIDI, tbl_KASA.GIDERCESIDI, tbl_KASA.NAKIT1
FROM tbl_KASA
WHERE (((tbl_KASA.ISLEMTARIHI)=[Formlar]![frm_AVANS]![AVANSTAR]) AND ((tbl_KASA.GIDERCESIDI) Is Null));
bu sorguyu "srg_boskontrol" adında kaydet.
Avans formundaki "AVANSTUTAR" metin kutusunun güncelleştirme sonrasında olayındaki kodu aşağıdaki ile değiştir.
If MsgBox("İşlem kaydedilsin mi?", vbInformation + vbYesNo) = vbYes Then
DoCmd.RunCommand acCmdSaveRecord
DoCmd.SetWarnings False
If DCount("*", "srg_boskontrol") > 0 Then
DoCmd.RunSQL "UPDATE srg_boskontrol SET srg_boskontrol.GIDERCESIDI = [Formlar]![frm_AVANS]![Metin24] & ' - Avans', srg_boskontrol.NAKIT1 = [Formlar]![frm_AVANS]![AVANSTUTAR] WHERE (((srg_boskontrol.ISLEMTARIHI)=[Formlar]![frm_AVANS]![AVANSTAR]));"
Else
DoCmd.RunSQL "INSERT INTO tbl_KASA ( ISLEMTARIHI, NAKIT1, GIDERCESIDI ) SELECT tbl_AVANS.AVANSTAR, tbl_AVANS.AVANSTUTAR, tbl_PERSONEL.ADISOYADI FROM tbl_AVANS INNER JOIN tbl_PERSONEL ON tbl_AVANS.PERSID = tbl_PERSONEL.PERSID WHERE (((tbl_AVANS.AVANSTAR)=[Formlar]![frm_AVANS]![AVANSTAR]) AND ((tbl_AVANS.AVANSTUTAR)=[Formlar]![frm_AVANS]![AVANSTUTAR]));"
End If
DoCmd.SetWarnings True
Else
Me.Undo
End If