Не срабатывает запрос

Option Compare Database
Public Function Kyda_Okyda()
  Kyda_Okyda = Forms![frmCklad_Dviz_Izd_Kyda_Okyda]![ПолеСоСписком2]
End Function
 
Public Function Izdelie_Strih()
  Izdelie_Strih = Forms![frmCklad_Dvizenie_Izdeliy]!Штрихкод_Изделия]
End Function
 
Private Sub Form_Load()
Me.ФИО_Записи.DefaultValue = DLookup("idsКодСотрудника", "tblEnter1")
DoCmd.GoToControl "Штрихкод_Изделия"
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
DoCmd.OpenQuery "gryPrixod_B_Racxod", acNormal, acEdit
DoCmd.OpenQuery "gryPrixod_B_Racxod_2", acNormal, acEdit
DoCmd.OpenQuery "gryPrixod_B_Racxod_1", acNormal, acEdit
End Sub
 
Private Sub Кнопка22_Click()
On Error GoTo Err_Кнопка22_Click
 
 
    DoCmd.Close
 
Exit_Кнопка22_Click:
    Exit Sub
 
Err_Кнопка22_Click:
    MsgBox Err.Description
    Resume Exit_Кнопка22_Click
    
End Sub
 
 
Private Sub Поле25_AfterUpdate()
    DoCmd.RunCommand acCmdRecordsGoToNew
    DoCmd.GoToControl "Штрихкод_Изделия"
DoCmd.GoToControl "Штрихкод_Изделия"
End Sub
 
Private Sub Штрихкод_Изделия_AfterUpdate()
    DoCmd.RunCommand acCmdRecordsGoToNew
    DoCmd.GoToControl "Штрихкод_Изделия"
End Sub
 
 
Private Sub Кнопка38_Click()
On Error GoTo Err_Кнопка38_Click
 
    Dim stDocName As String
    Dim stLinkCriteria As String
 
    stDocName = "frmChet_Otchety"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
 
Exit_Кнопка38_Click:
    Exit Sub
 
Err_Кнопка38_Click:
    MsgBox Err.Description
    Resume Exit_Кнопка38_Click
    
End Sub
 
Private Sub Штрихкод_Изделия_BeforeUpdate(Cancel As Integer)
If CurrentDb.OpenRecordset("gryCklad_Dvizenie_Izdeliy_Octatok_Proverka").EOF Then Exit Sub
    DoCmd.OpenReport "rptIzdelia_Na_Cklade", acViewPreview
End Sub
 
Private Sub Штихкод_Изделия_LostFocus()
DoCmd.OpenQuery "gryCklad_Dviz_Izd_Dob_Iden_Izd", acNormal, acEdit
 
End Sub

Private Sub Штрихкод_Изделия_BeforeUpdate(Cancel As Integer)
    If CurrentDb.OpenRecordset("gryCklad_Dvizenie_Izdeliy_Octatok_Proverka").EOF Then Exit Sub
    
If MsgBox("OK - Выход, Отмена - Вернуться в форму и продолжить ", vbOKCancel + vbDefaultButton1) = vbCancel Then Cancel = True
End Sub