section18 프로시저 무작정 따라하기 문제에서요~
<등록>프로시저 작성을,
If txt제품명 = "" Then
MsgBox "제품명을 입력하시오."
ElseIf txt수량 = "" Then
MsgBox "수량을 입력하시오."
ElseIf txt단가 = "" Then
MsgBox "단가를 입력하시오."
ElseIf cmb결재형태 = "" Then
MsgBox "결재형태를 입력하시오."
Else
기준행위치 = [b3].Row
기준범위행수 = [b3].CurrentRegion.Rows.Count
입력행 = 기준행위치 + 기준범위행수
Cells(입력행, 2) = CDate(txt판매일자)
Cells(입력행, 3) = txt제품명
Cells(입력행, 4) = Val(txt수량)
Cells(입력행, 5) = Val(txt단가)
Cells(입력행, 6) = Format(Val(txt수량) * Val(txt단가), "currency")
Cells(입력행, 7) = cmb결재형태
txt제품명 = ""
txt수량 = ""
txt단가 = ""
cmb결재형태 = ""
End If
이렇게 했습니다.
이렇게 하고 나서 무작정따라하기 워크시트로 돌아와서 실행을 해보았는데요
판매자료입력 폼에서 등록 버튼을 누르니 '제품명을 입력하시오'라는 메시지 창이 바로 나오지 않고
이 사진처럼 빨간색 부분 12:00:00 AM 이 입력이 됩니다.
| 판매날짜 | 제품명 | 수량 | 단가 | 금액 | 결재구분 |
| 2013-02-13 | Q-004 | 4 | 400 | \1,600 | 카드 |
| 2013-07-18 | Q-001 | 2 | 100 | \200 | 현금 |
| 12:00:00 AM | 0 | 0 | \0 |
이 상태에서 다시 한번더 판매자료입력 폼에서 등록 버튼을 누르니 그때 "제품명을 입력하시오." 라는 메시지창이
나옵니다. 어떻게 해야 저 빨간색 부분이 입력되지 않고 바로 메시지 창이 나올까요?
실기특성상 질문주신 내용만으로는 정확한 이유를 알 수 없습니다.
작성하신 파일을 첨부하여 다시 질문 주시면 확인 후 답변 드리겠습니다.
좋은 하루 되세요.
"-
*2014-08-27 01:01:24
실기특성상 질문주신 내용만으로는 정확한 이유를 알 수 없습니다.
작성하신 파일을 첨부하여 다시 질문 주시면 확인 후 답변 드리겠습니다.
좋은 하루 되세요.
"