실전모의고사 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
---------------------------------------------------------------------------------------------
아 그리고 엑세스에서 이벤트 작성시 비주얼베이직을 이용할 것인지, 아니면 매크로 작성기를 이용할 것인지 어떻게 알 수 있나요? 따로 구분하는 방법이 있을까요? 그냥 많이 해봐야 알 수 있는 건가요? 도통 감이 안와서요...
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 속성을 이용하시오 이면 코드작성기로 작성합니다.
이런 지시사항이 없다면 실행가능한 방법을 이용하여 작성하시면 되세요.
좋은 하루 되세요.
"