Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
 Dim intShiftDown As Boolean, _
     intAltDown As Boolean, _
     intCtrlDown As Boolean, _
     PKeyConst As Long
 intShiftDown = (Shift And acShiftMask) > 0
 intAltDown = (Shift And acAltMask) > 0
 intCtrlDown = (Shift And acCtrlMask) > 0
 If Me.ActiveControl.Name = "ВидПельменей" Then
  If KeyCode = 32 And Not intAltDown And Not intShiftDown And Not intCtrlDown Then
   If Me.ActiveControl.SelStart = 0 Then
    KeyCode = False
   End If
  End If
 End If
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
 If KeyCode = 32 And Me.ActiveControl.Name = "ВидПельменей" Then
  If Me.ActiveControl.SelStart = 0 Then
   KeyCode = False
  End If
 End If
End Sub

Private Sub ВидПельменей_KeyDown(KeyCode As Integer, Shift As Integer)
 If KeyCode = 32 And ВидПельменей.SelStart = 0 Then
  KeyCode = False
 End If
End Sub

Private Sub ВидПельменей_Change()
 If Left(ВидПельменей.Text, 1) = " " Then
  ВидПельменей.Text = LTrim(ВидПельменей.Text)
 End If
 .............................
 .............................
End Sub

Private Sub ВидПельменей_NotInList(NewData As String, Response As Integer)
 With ВидПельменей
  Response = acDataErrContinue
  If MsgBox("Значение '" & NewData & "'" & " отсутствует в каталоге." & vbNewLine & _
            "Добавить новое значение?", vbExclamation + vbYesNo) = vbYes Then
   DoCmd.OpenForm "Пельмени", , , , acFormAdd, acDialog, NewData
   .RowSource = .RowSource
  Else
    MsgBox "Пожалуйста, выберите значение из списка", vbExclamation + vbOKOnly
   .Undo
   .Dropdown
  End If
 End With
End Sub