Ошибка при выполнении запроса на добавление через кнопку на форме

Private Sub Кнопка150_Click()
Me.Dirty = False
CurrentDb.Execute "add_id_log"
 
CurrentDb.Execute "del_id"
 
DoCmd.OpenReport "Балкон_наклейки", acViewPreview
DoCmd.OpenReport "Мезонин_наклейки", acViewPreview
DoCmd.OpenReport "Рэки_наклейки", acViewPreview
 
End Sub

Private Sub Кнопка150_Click()
Me.Dirty = False
 
Dim q As DAO.QueryDef, p As DAO.Parameter, p1 As DAO.Parameter, p2 As DAO.Parameter
  Set q = CurrentDb.QueryDefs("add_id_log")
  
  For Each p In q.Parameters
    p.Value = Me!Ford
    
  Next
  
  q.Execute
 
CurrentDb.Execute "del_id"
 
 
DoCmd.OpenReport "Балкон_наклейки", acViewPreview
DoCmd.OpenReport "Мезонин_наклейки", acViewPreview
DoCmd.OpenReport "Рэки_наклейки", acViewPreview
 
End Sub

Public Function ORD()
 
        ORD = Form_WH_OUT.Ford
        
End Function
 
Public Function ROU()
 
        ROU = Form_WH_OUT.Froute
   
End Function
 
Public Function STA()
   
        STA = Form_WH_OUT.Fstat
    
End Function

Forms("WH_OUT").Fstat

Public Function SH()
    On Error Resume Next
    If CurrentProject.AllForms("f_tb_ssr").IsLoaded Then
         
        SH = Forms!f_tb_ssr!ff_tb_ssr!ид_работ
        On Error Resume Next
    End If
End Function

Public Function IsLoadedForm(ByVal strFormName As String) As Boolean
    ' Returns True if the specified form is open in Form view or Datasheet view.
    Const conObjStateClosed = 0
    Const conDesignView = 0
 
    If SysCmd(acSysCmdGetObjectState, acForm, strFormName) <> conObjStateClosed Then
        If Forms(strFormName).CurrentView <> conDesignView Then
            IsLoadedForm = True
        End If
    End If
End Function

Form_WH_OUT.Visible=True