Kod:
Private Sub toplammaterialcmd_Click()
On Error GoTo Err_toplammaterialcmd_Click
Dim stDocName As String
baslamatarih = IIf(IsNull([baslamatarih]), (DLookup("[Entrydate]", "raporgiris", "cstr(Entrydate)='" & CStr(DMax("Entrydate", "raporgiris")) & "'")), [baslamatarih])
bitistarih = IIf(IsNull([bitistarih]), (DLookup("[Entrydate]", "raporcikis", "cstr(Entrydate)='" & CStr(DMax("Entrydate", "raporcikis")) & "'")), [bitistarih])
stDocName = "raporgircik"
DoCmd.OpenReport stDocName, acViewPreview
Exit_toplammaterialcmd_Click:
Exit Sub
Err_toplammaterialcmd_Click:
MsgBox Err.Description
Resume Exit_toplammaterialcmd_Click
End Submantıken girmeden çıkamaz diye
en küçük tarihi giriş tablosunun en küçük tarihi
en büyük tarihi de çıkış tablosunun en büyük tarihinden aldım
