temel mantık aynı bu sefer metin kutularının adı yerine atama yaptığınız değişkenler kullanılacak

If Len(Me.acilan.Column(1) & "") > 0 Then StrFiltre = " and [siniflar.sinifAdi]='" & Me.acilan.Column(1) & "'"

If Len(Me.tarih1 & "") > 0 Then StrFiltre = StrFiltre & " and [surec.İslemTarihi]>=" & CLng(Me.tarih1)

If Len(Me.tarih2 & "") > 0 Then StrFiltre = StrFiltre & " and [surec.İslemTarihi]<=" & CLng(Me.tarih2)

StrFiltre = Mid(StrFiltre, 6)

Me.surecAltForm.Form.Filter = StrFiltre

Me.surecAltForm.Form.FilterOn = True

yerine

Sub suz(Optional sinif As String, Optional tarih1 As Variant, Optional tarih2 As Variant)

StrFiltre = ""

If Len(sinif & "") > 0 Then StrFiltre = " and [siniflar.sinifAdi]='" & sinif & "'"

If Len(tarih1 & "") > 0 Then StrFiltre = StrFiltre & " and [surec.İslemTarihi]>=" & CLng(tarih1)

If Len(tarih2 & "") > 0 Then StrFiltre = StrFiltre & " and [surec.İslemTarihi]<=" & CLng(tarih2)

StrFiltre = Mid(StrFiltre, 6)

Me.surecAltForm.Form.Filter = StrFiltre

Me.surecAltForm.Form.FilterOn = True



End Sub

function yerine sub kullanabilirsiniz
fonksiyon çıktı alır burada çıktı yok eylem var o nedenle sub tercih edilmelidir