Kod:
Option Compare Database
Private Sub KurumAdi1_AfterUpdate()
Me.BirimTuru1 = DLookup("[KurumTuru]", "[tbl_kurumlar]", "[KurumAdi]=[Kurumadi1]")
End Sub
Private Sub Miktar_AfterUpdate()
Me.Giris = IIf(DCount("[Miktar]", "[tbl_tasinirlar]", "[Kodd]=Formlar![frm_tasinirlar]![KodKimlik] AND [IslemTuru]='Giriş'") > 0, DSum("[Miktar]", "[tbl_tasinirlar]", "[Kodd]=Formlar![frm_tasinirlar]![KodKimlik] AND [IslemTuru]='Giriş'"), 0)
Me.Cikis = IIf(DCount("[Miktar]", "[tbl_tasinirlar]", "[Kodd]=Formlar![frm_tasinirlar]![KodKimlik] AND [IslemTuru]='Çıkış'") > 0, IIf(DCount("[Miktar]", "[tbl_tasinirlar]", "[Kodd]=Formlar![frm_tasinirlar]![KodKimlik] AND [IslemTuru]='Zimmet'") > 0, DSum("[Miktar]", "[tbl_tasinirlar]", "[Kodd]=Formlar![frm_tasinirlar]![KodKimlik] AND [IslemTuru]='Çıkış'") + DSum("[Miktar]", "[tbl_tasinirlar]", "[Kodd]=Formlar![frm_tasinirlar]![KodKimlik] AND [IslemTuru]='Zimmet'"), DSum("[Miktar]", "[tbl_tasinirlar]", "[Kodd]=Formlar![frm_tasinirlar]![KodKimlik] AND [IslemTuru]='Çıkış'")), IIf(DCount("[Miktar]", "[tbl_tasinirlar]", "[Kodd]=Formlar![frm_tasinirlar]![KodKimlik] AND [IslemTuru]='Zimmet'") > 0, DSum("[Miktar]", "[tbl_tasinirlar]", "[Kodd]=Formlar![frm_tasinirlar]![KodKimlik] AND [IslemTuru]='Zimmet'"), 0))
Me.Kalan = Me.Giris - Me.Cikis
Me.Giris.Requery
Me.Cikis.Requery
Me.Kalan.Requery
End Sub