책 내용 질문하기
'424' 런타임 오류가 발생하였습니다.
도서
2018 시나공 컴퓨터활용능력 1급 실기(엑셀, 액세스 2010 사용자용)
페이지
354
조회수
570
작성일
2021-06-22
작성자
탈퇴*원
첨부파일

프로시저를 다 작성하고

등록을 누르니까

'424' 런타임 오류가 발생하였습니다. 

개체가 필요합니다. 라고 나오는데요.

어떻게 해야 하나요?

알려주세요.

답변
2021-06-24 22:02:04

Private Sub cmd등록_Click()

If IsNull(lst열차종류.Value) Then

 txt번호 = "선택안함"

 lst열차종류.ListIndex = 0

Else

 참조행 = lst열차종류.ListIndex

 입력행 = [a3].Row + [a3].CurrentRegion.Rows.Count

 Cells(입력행, 1) = 입력행 - 3 & "-" & UCase(txt번호)

 Cells(입력행, 2) = list열차종류.List(참조행, 0)

 Cells(입력행, 3) = lst열차종류.List(참조행, 1)

 Cells(입력행, 4) = Val(txt매수)

 Cells(입력행, 5) = txt매수 * list열차종류.List(참조행, 2)

End If

 

End Sub

 

빨간색으로 표시된 list 가 잘 못 되었네요. lst 로 수정한 후 확인 해 보세요.

 

좋은 하루 되세요. 

  • 관리자
    2021-06-24 22:02:04

    Private Sub cmd등록_Click()

    If IsNull(lst열차종류.Value) Then

     txt번호 = "선택안함"

     lst열차종류.ListIndex = 0

    Else

     참조행 = lst열차종류.ListIndex

     입력행 = [a3].Row + [a3].CurrentRegion.Rows.Count

     Cells(입력행, 1) = 입력행 - 3 & "-" & UCase(txt번호)

     Cells(입력행, 2) = list열차종류.List(참조행, 0)

     Cells(입력행, 3) = lst열차종류.List(참조행, 1)

     Cells(입력행, 4) = Val(txt매수)

     Cells(입력행, 5) = txt매수 * list열차종류.List(참조행, 2)

    End If

     

    End Sub

     

    빨간색으로 표시된 list 가 잘 못 되었네요. lst 로 수정한 후 확인 해 보세요.

     

    좋은 하루 되세요. 

· 5MB 이하의 zip, 문서, 이미지 파일만 가능합니다.
· 폭언, 욕설, 비방 등은 관리자에 의해 경고없이 삭제됩니다.