161쪽 문제4의 3
cmd주문 클릭 시 프로시저를 다음과 같이 작성했습니다.
-------------------------------------------------------------------------------
Private Sub cmd주문_Click()
i = Range("A4").CurrentRegion.Rows.Count + 3
irow = lst제품목록.ListIndex + 8
If IsNull(lst제품목록) Then
MsgBox "제품을 선택하세요."
ElseIf txt주문수량 < 1 Or IsNull(txt주문수량) Then
MsgBox "주문수량을 입력하세요."
Else
Cells(i, 1) = txt주문날짜.Value
Cells(i, 2) = Cells(irow, 9)
Cells(i, 3) = Cells(irow, 10)
Cells(i, 4) = Cells(irow, 11)
Cells(i, 5) = Cells(irow, 12)
Cells(i, 6) = txt주문수량.Value
Cells(i, 7) = Cells(i, 5) * Cells(i, 6)
lst제품목록 = ""
End If
End Sub
----------------------------------------------------------------------------------------------------------------------
1. txt주문수량이 입력되지 않았거나 1 미만이면 메시지 박스를 표시하라고 했는데 교재 정답에는 txt주문수량이 입력되지 않은 경우에 관한
부분이 없는 것 같습니다.
2. txt주문수량에 관해 ElseIf txt주문수량 < 1 Or IsNull(txt주문수량) 이와 같이 작성했는데 메세지 박스가 표시되지 않습니다.
어떤 부분이 잘못되었나요
안녕하세요.
1. 주문을 1미만으로 할 수 있나요? 1미만이면 주문을 안 한 것이 되므로 추가로 조건을 지정하지 않은 것입니다.
2. 폼의 텍스트 상자에 데이터를 입력하면 기본적으로 텍스트 형식으로 인식하므로 숫자 1과 비교하려면 Val(txt주문수량)으로 작성해야 합니다. 그러므로 아래와 같이 작성해야 합니다.
ElseIf Val(txt주문수량) < 1 Or IsNull(txt주문수량) Then
즐거운 하루 되세요.
-
관리자2024-01-16 13:53:03
안녕하세요.
1. 주문을 1미만으로 할 수 있나요? 1미만이면 주문을 안 한 것이 되므로 추가로 조건을 지정하지 않은 것입니다.
2. 폼의 텍스트 상자에 데이터를 입력하면 기본적으로 텍스트 형식으로 인식하므로 숫자 1과 비교하려면 Val(txt주문수량)으로 작성해야 합니다. 그러므로 아래와 같이 작성해야 합니다.
ElseIf Val(txt주문수량) < 1 Or IsNull(txt주문수량) Then
즐거운 하루 되세요.