Private sSearch As String

Private Sub Form_KeyPress(KeyAscii As Integer)
  Dim rs As Recordset
  Dim sName As String
  Dim FieldType As Long
  Dim tsSearch As String
  
  If KeyAscii <  32  Then Exit Sub
  
  On Error Resume Next
  FieldType = Me.RecordsetClone.Fields(Me.ActiveControl.ControlSource).Type
  If Err.Number <>  0  Then Exit Sub ' Если нажата Esc, форма уже закрыта'
  On Error GoTo  0 
  
  If FieldType <> dbBigInt And _
     FieldType <> dbByte And _
     FieldType <> dbDecimal And _
     FieldType <> dbDouble And _
     FieldType <> dbFloat And _
     FieldType <> dbInteger And _
     FieldType <> dbLong And _
     FieldType <> dbNumeric And _
     FieldType <> dbSingle And _
     FieldType <> dbChar And _
     FieldType <> dbText Then ' Поиск по этому полю невозможен :)'
    Beep
    KeyAscii =  0 
    Exit Sub
  End If
  
  sName = Me.ActiveControl.Name
  
  If Me.OrderBy <> Me.ActiveControl.ControlSource Then sSearch =  ""
  If sSearch = "  " Then
    ' сортирую базу по текущему полю'
    Me.OrderBy = Me.ActiveControl.ControlSource
    Me.OrderByOn = True
    Me.Requery
  End If
  
  ' Возвращаюсь на то же поле'
  Me.Controls(sName).SetFocus
  
  ' Начинаю поиск записи'
  Set rs = Me.RecordsetClone
  If FieldType = dbBigInt Or _
     FieldType = dbByte Or _
     FieldType = dbDecimal Or _
     FieldType = dbDouble Or _
     FieldType = dbFloat Or _
     FieldType = dbInteger Or _
     FieldType = dbLong Or _
     FieldType = dbNumeric Or _
     FieldType = dbSingle Then ' Поиск ведется в числовом поле'
    If Not ((Chr(KeyAscii) >= "  0  " And Chr(KeyAscii) <= "  9  ") Or _
       Chr(KeyAscii) = " - " Or Chr(KeyAscii) = " . " Or Chr(KeyAscii) = " , ") Then
      KeyAscii = 0 
      Exit Sub ' Недопустимый для числа символ'
    End If
    If IIf(IsNull(InStr(sSearch, ". ")), False, InStr(sSearch, " . ") > 0 ) _
       And (Chr(KeyAscii) = ". " Or Chr(KeyAscii) = " , ") Then
      KeyAscii = 0 
      Exit Sub ' Уже есть точка'
    End If
    If Len(sSearch) >  0  And Chr(KeyAscii) = "- " Then
      KeyAscii = 0 
      Exit Sub ' Минус уже нельзя'
    End If
    If sSearch = "- " And (Chr(KeyAscii) = " . " Or Chr(KeyAscii) = " , ") Then
      sSearch = " - 0  "
    End If
  
    rs.FindFirst Me.ActiveControl.ControlSource & " >= " & sSearch & IIf(Chr(KeyAscii) = " , ", " . ", Chr(KeyAscii)) & IIf(sSearch = "  " And Chr(KeyAscii) = " - ", "  0  ", "  ")
    If Not rs.NoMatch Then
      tsSearch = sSearch
      Me.Bookmark = rs.Bookmark
      sSearch = tsSearch & UCase(Chr(KeyAscii))
      Me.ActiveControl.SelStart = 0 
      Me.ActiveControl.SelLength = Len(sSearch)
    End If
  
  End If
  
  If FieldType = dbChar Or _
     FieldType = dbText Then ' Поиск ведется в текстовом поле'
    rs.FindFirst Me.ActiveControl.ControlSource & ">='" & sSearch & UCase(Chr(KeyAscii)) & "'"
    If Not rs.NoMatch Then
      If Left(rs.Fields(Me.ActiveControl.ControlSource), Len(sSearch)) = sSearch Then
        tsSearch = sSearch
        Me.Bookmark = rs.Bookmark
        sSearch = tsSearch
        If UCase(Left(Me.ActiveControl, Len(sSearch) +  1 )) = _
          sSearch & UCase(Chr(KeyAscii)) Then
          sSearch = sSearch & UCase(Chr(KeyAscii))
        End If
        Me.ActiveControl.SelStart =  0 
        Me.ActiveControl.SelLength = Len(sSearch)
      End If
    End If
  End If
  
  KeyAscii =  0 
End Sub