Private Sub МесяцЗакр_KeyPress(KeyAscii As Integer)
  If KeyAscii >  32  Then
    chFmonthClose = ChrW(KeyAscii)
    DoCmd.OpenForm  "фпМесЗакр" , acNormal, , , , acDialog
    On Error Resume Next
    Me.MonhtClosed = CDate( "01 ." & Format(CDate( "28 ." & chFmonthClose) +  16 ,  "mm.yyyy" )) -  1 
    If Err.Number <>  0  Then
      MsgBox  "Неверно указан месяц закрытия!" , vbCritical
    End If
    KeyAscii =  0 
  End If
End Sub

Private Sub Form_Load()
  Me.МесЗакр = Forms!фПросмПредл.chFmonthClose
  Me.МесЗакр.SetFocus
  Me.МесЗакр.SelStart =  1 
  Me.МесЗакр.SelLength =  0 
End Sub