БД Access нужна помошь

Option Compare Database
Option Explicit
 
Private Sub ButtenArx_Click()
If MsgBox("Äîáàâèòü â àðõèâ?", vbQuestion + vbYesNo) = vbYes Then
    Me.[Type] = True
Else
   Me.[Type] = False
End If
End Sub
 
Private Sub Buttenrefresh_Click()
'If Me!Date_off > Date Then Me!Date_off.BackColor = 250
If Me.[Date off] >= Date Then
        Me.[Status] = 0
Else
    Me.[Status] = -1
      End If
 
Me.Requery
Me.Refresh
Me.Form.Repaint
'If IsNull([Type]) = "" Then Me.[Type].BackColor = 250
End Sub
 
Private Sub ButtenView_Click()
Application.FollowHyperlink "P:\ÂÎÐÎÍÎÂ Àëåêñåé\Certificate vol 1.00\Data\" & [Number] & ".pdf"
End Sub
 
 
 
 
Private Sub CleanFt_Click()
 
Me.POLETUPE = ""
    Me.Filter = ""
    Me.FilterOn = True
End Sub
 
Private Sub Poletupe_AfterUpdate()
Sss0 = Me.POLETUPE
Call fpoisk
Me.POLETUPE.SelStart = Len(Sss0) + 1
End Sub
 
 
Sub fpoisk()
Dim sss1, sss2
Me.Refresh
sss1 = "true "
sss2 = Me.POLETUPE
If Len(sss2) > 0 Then
s1 = sss1 & "  & sss2 & " * ""
End If
Me.Filter = sss1
Me.FilterOn = True
 
End Sub
 
Private Sub Form_Base_AfterUpdate()
 
Form.FilterOn.Filter = Me![POLETUPE]
FilterOn = True
Me.Requery
Me.Refresh
 
With LOG
 If CBox = True Then Me!LOG = True
 Else
  Me!LOG = False
End If
    End With
    Me.Requery
Me.Refresh
Me.Form.Repaint
End Sub
 
Private Sub ÎáëàñòüÄàííûõ_Click()
 
End Sub

Private Sub Poletupe_AfterUpdate()
'Sss0 = Me.POLETUPE
'Call fpoisk
'Me.POLETUPE.SelStart = Len(Sss0) + 1
End Sub

Private Sub Poletupe_AfterUpdate()
   'Sss0 = Me.POLETUPE
   'Call fpoisk
   'Me.POLETUPE.SelStart = Len(Sss0) + 1
   me.filter="[Part]='" & me.Part & "'"
   me.filteron=true
End Sub