27-01-2016, 01:57
(26-01-2016, 22:09)determant demiş ki: teşekkür ederim fakat olmuyorAlt formda toplamlari etkileyen hanelere Call Hesap yazabilirsiniz.
Private Sub KdvsizBirimFiyat_AfterUpdate()
Call Hesap
End Sub
Private Sub Miktar_AfterUpdate()
Call Hesap
End Sub
Sub Hesap()
On Error Resume Next
DoCmd.RunCommand acCmdSaveRecord
Me.Parent.KdvliToplamTutar = DSum("Nz([KdvliToplamTutar],0)", "BaStokHareket", "[IdFaturaBaslik]=" & Me.IdFaturaBaslik & " And [Tarih]=#" & Format(Me.Tarih, "mm\/dd\/yyyy") & "# And [IdSube]=" & Me.IdSube)
Me.Parent.KdvliToplamTutar.Requery
End Sub

