책 내용 질문하기
실전모의고사 프로시져 질문이요~!!
도서
[2013] 컴퓨터활용능력 1급 실기(엑셀, 액세스 2007 사용자용)
페이지
441
조회수
49
작성일
2013-09-13
작성자
첨부파일

실전모의고사 B형 문제4번에 2번 답을 밑에 있는 것과 같이 적었습니다.

체점을 해보니 저 부분에서 0/10 점을 맞았더라구요. 그래서 검토를 해보았습니다.

제품명과 수량 모두 입력하고 등록버튼을 클릭하니 "수량을 입력하세요." 라고 뜨더라구요.

무엇이 잘못 되었는지 전혀 모르겠습니다.

알려주세요~~!!

Private Sub cmd등록_Click()
If cmb제품명 = "" Then
MsgBox "제품명을 선택하세요.", vbOKOnly, "제품명"
ElseIf cmb수량 = "" Then
MsgBox "수량을 입력하세요.", vbOKOnly, "수량"
Else
기준행 = [a4].Row
기준범위행수 = [a4].CurrentRegion.Rows.Count
입력행 = 기준행 + 기준범위행수
참조행 = cmb제품명.ListIndex + 5

Cells(입력행, 1) = cmb제품명
Cells(입력행, 2) = cmb수량
Cells(입력행, 3) = Cells(참조행, 8)
Cells(입력행, 4) = Cells(참조행, 9)
Cells(입력행, 5) = cmb수량 * Cells(참조행, 8)
End If


End Sub

---------------------------------------------------------------------------------------------

아 그리고 엑세스에서 이벤트 작성시 비주얼베이직을 이용할 것인지, 아니면 매크로 작성기를 이용할 것인지 어떻게 알 수 있나요? 따로 구분하는 방법이 있을까요? 그냥 많이 해봐야 알 수 있는 건가요? 도통 감이 안와서요...

답변
2013-09-16 13:11:01

Private Sub cmd등록_Click()
If cmb제품명 = "" Then
MsgBox "제품명을 선택하세요.", vbOKOnly, "제품명"
ElseIf cmb수량 = "" Then
MsgBox "수량을 입력하세요.", vbOKOnly, "수량"
Else
기준행 = [a4].Row
기준범위행수 = [a4].CurrentRegion.Rows.Count
입력행 = 기준행 + 기준범위행수
참조행 = cmb제품명.ListIndex + 5

Cells(입력행, 1) = cmb제품명
Cells(입력행, 2) = cmb수량
Cells(입력행, 3) = Cells(참조행, 8)
Cells(입력행, 4) = Cells(참조행, 9)
Cells(입력행, 5) = cmb수량 * Cells(참조행, 8)
End If


End Sub

빨간색으로 표시된 부분 cmb수량이 아니라 txt수량입니다.

컨트롤 명을 잘못 사용하셨네요.

엑세스 문제에서

매크로로 작성하시오. 이면 매크로로 작성하셔야 하구요.

이벤트 프로시저로 작성하시오. 혹은 docmd 속성을 이용하시오 이면 코드작성기로 작성합니다.

이런 지시사항이 없다면 실행가능한 방법을 이용하여 작성하시면 되세요.

좋은 하루 되세요.

"
  • *
    2013-09-16 13:11:01

    Private Sub cmd등록_Click()
    If cmb제품명 = "" Then
    MsgBox "제품명을 선택하세요.", vbOKOnly, "제품명"
    ElseIf cmb수량 = "" Then
    MsgBox "수량을 입력하세요.", vbOKOnly, "수량"
    Else
    기준행 = [a4].Row
    기준범위행수 = [a4].CurrentRegion.Rows.Count
    입력행 = 기준행 + 기준범위행수
    참조행 = cmb제품명.ListIndex + 5

    Cells(입력행, 1) = cmb제품명
    Cells(입력행, 2) = cmb수량
    Cells(입력행, 3) = Cells(참조행, 8)
    Cells(입력행, 4) = Cells(참조행, 9)
    Cells(입력행, 5) = cmb수량 * Cells(참조행, 8)
    End If


    End Sub

    빨간색으로 표시된 부분 cmb수량이 아니라 txt수량입니다.

    컨트롤 명을 잘못 사용하셨네요.

    엑세스 문제에서

    매크로로 작성하시오. 이면 매크로로 작성하셔야 하구요.

    이벤트 프로시저로 작성하시오. 혹은 docmd 속성을 이용하시오 이면 코드작성기로 작성합니다.

    이런 지시사항이 없다면 실행가능한 방법을 이용하여 작성하시면 되세요.

    좋은 하루 되세요.

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