안녕하세요 =)

'매출 조회 폼에 조회기능 넣기' 파트를 공부하다가 교재에는 나오지 않는 오류가 발생하여 질문드립니다.

교재와 일치하도록 cmdSearch_Click 프로시저를 작성하였는데

'개체가 필요합니다 424' 라는 오류창이 뜹니다.

무엇때문인지 알수 있을까요?

다음은 제가 작성한 것 입니다. 혹시나 답변을 하시는데에 도움이 될까 같이 올립니다.

Private Sub cmdSearch_Click()

On Error GoTo Herror

    Dim obj기준일 As SearchCond
    Dim obj계정과목 As SearchCond
    Dim obj팀 As SearchCond
    Dim obj사업자번호 As SearchCond
    Dim obj상호 As SearchCond
    Dim obj공급가액 As SearchCond
    Dim obj세액 As SearchCond
    Dim obj합계금액 As SearchCond
   
    Dim strWhere As String
    Dim strSQL As String

'환경설정
    Const conSourceTableQuery = "q공통_매출"

'개체변수 초기화
    Set obj기준일 = New SearchCond
    Set obj계정과목 = New SearchCond
    Set obj팀 = New SearchCond
    Set obj사업자번호 = New SearchCond
    Set obj상호 = New SearchCond
    Set obj공급가액 = New SearchCond
    Set obj세액 = New SearchCond
    Set obj합계금액 = New SearchCond

'조회 컨트롤 설정
    obj기준일.Init_Between "기준일", enmSearchDataType_Date, txt기준일S, txt기준일E
    obj계정과목.Init_Equal "계정과목", enmSearchDataType_text, cbo계정과목
    obj팀.Init_Equal "팀", enmSearchDataType_text, cbo팀
    obj사업자번호.Init_Like "사업자번호", enmSearchDataType_text, txt사업자번호
    obj상호.Init_Like "상호", enmSearchDataType_text, txt상호
    obj공급가액.Init_Between "공급가액", enmSearchDataType_number, txt공급가액S, txt공급가액E
    obj세액.Init_Between "세액", enmSearchDataType_number, txt세액S, txt세액E
    obj합계금액.Init_Between "합계금액", enmSearchDataType_number, txt합계금액S, txt합계금액E

'조회 조건 생성
    strWhere = gfnConCatConds( _
                    obj기준일.MakeCond, obj계정과목.MakeCond, obj팀.MakeCond, obj사업자번호.MakeCond _
                    , obj상호.MakeCond, obj공급가액.MakeCond, obj세액.MakeCond, obj합계금액.MakeCond _
                )

'조회 실시
    subA.Form.RecordSource = gfnSearchSQL(conSourceTableQuery, strWhere)
   
    Exit Sub
   
Herror:
    Select Case Err.Number
        Case Else
            MsgBox Err.Description & vbNewLine & Err.Number, vbCritical + vbOKOnly
    End Select
   
End Sub