Не открывается форма

Private Sub Form_Load()
If Len(Me.Код1С & "") = 0 Then 'проверка если отсутствует код 1с для данной детали, то
DoCmd.Close acForm, "Сканер" 'закрываем форму сканирования данных
DoCmd.Close acForm, Me.Name 'закрываем форму вывода данных  и далее выводим сообщение:
If MsgBox("Деталь не найдена! Убедитесь, что сканируемый код относится к выбранной системе " & vbCrLf & "идентификации, а затем повторите сканирование. Сканировать повторно?", vbYesNo) = vbYes Then ' если "Да" то...
DoCmd.OpenForm "Сканер" 'открыть форму сканирования с заданными параметрами
Form_Сканер.Группа4 = 4
Form_Сканер.Skan.SetFocus 'и хотя форма на основе диалогового окна, открывается она где то в фоновом режиме...почему?
End If
End If
End Sub

Private Sub Form_Open(Cancel as Integer)
Dim strMessage as String
Cancel=IsNull(Me.Код1С)
    If Not Cancel then Exit Sub
    If CurrentProject.AllForm("Сканер").IsLoaded then DoCmd.Close acForm, "Сканер"
strMessage ="Деталь не найдена! Убедитесь, что сканируемый код относится к выбранной системе " & _
            vbCrLf & "идентификации, а затем повторите сканирование. Сканировать повторно?"
    If MsgBox(strMessage , vbYesNo) = vbYes Then
        DoCmd.OpenForm "Сканер"
            With Forms( "Сканер")
                .Группа4 = 4
                .Skan.SetFocus
            End With
    End if
End Sub

If CurrentProject.AllForm("Сканер").IsLoaded Then

If Me.Группа4 = 4 Then
DoCmd.OpenForm "Идентификация1С"
DoCmd.Close acForm, "Сканер"

If CurrentProject.AllFormS("Сканер").IsLoaded Then