rapor yüklenme olayını aşağıdaki gibi düzenlemeyi dener misiniz?
Private Sub Report_Load()
Dim Tbl1, Tbl2 As Variant
Tbl1 = 0
Tbl2 = 0
On Error Resume Next
Tbl1 = Dlookup ("sum(round(ALAN,1))", "BOLMECIK_H", "")
Tbl2 = Dlookup ("sum(round(ALAN,1))", "MALIYET", "")
Me.Metin124 = Tbl1 + Tbl2
DoCmd.Maximize
End Sub