Sorun çözülmüşür.Herkese çok teşekkür ederim..
Cevap:
VBA Kodu
Private Sub Form_Load()
Dim strWhere As String
strWhere = "DikimTermin >= #" & tarih(DateAdd("d", -10, Date)) & "# And DikimTermin <= #" & tarih(Date) & "#"
DoCmd.ApplyFilter , strWhere
End Sub
Public Function tarih(date1 As Date) As String
tarih = DatePart("m", date1) & "/" & DatePart("d", date1) & "/" & DatePart("yyyy", date1)
End Function
#5
