Private Sub Komut39_Click()

StrFiltre = ""

If Len(Me.Metin10 & "") > 0 Then StrFiltre = " and [BasTrh]>=" & CLng(Me.Metin10)

If Len(Me.Metin12 & "") > 0 Then StrFiltre = StrFiltre & " and [BasTrh]<=" & CLng(Me.Metin12)

StrFiltre = Mid(StrFiltre, 6)

Me.AltForm_Site_Tesis_Uye_ve_Ucret_Takip_Tablosu.Form.Filter = StrFiltre

Me.AltForm_Site_Tesis_Uye_ve_Ucret_Takip_Tablosu.Form.FilterOn = True

End Sub

şeklinde dener misiniz?
not dosyanızı sadece ilgili form/tablo ve sorgularla yeniden yükler misiniz? gereksiz modüller/rapor/tablo ve sorgular olmasın
benim ofis 64bit olduğundan modüldeki kodlarınızı 64e uyarlamam gerekiyor bu durumda sizin tekrar 32ye çevirmeniz yada benim hem 32 hem de 64bit için değişiklikler yapmam gerekiyor ki bunların hepsi sorun