#1
#2
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 Sub
#3
#4
Private Sub Temizlecmd_Click()
Me.baslamatarih = Null
Me.bitistarih = Null
Me.baslamatarih.SetFocus
End Sub
#5
#6
