시나공

시험에

나오는 것만

공부한다!

Private Sub cmd등록_Click()
If txt제품명 = "" Then
MsgBox "제품명을 입력하시오."
ElseIf txt수량 = "" Then
MsgBox "수량을 입력하시오."
ElseIf txt단가 = "" Then
MsgBox "단가를 입력하시오."
ElseIf cmb결재형태 = "" Then
MsgBox "결재형태를 입력하시오."

Else

c = [b3].Row + [b3].CurrentRegion.Rows.Count
Cells(c, 2) = CDate(txt판매일자)
Cells(c, 3) = txt제품명
Cells(c, 4) = Val(txt수량)
Cells(c, 5) = Val(txt단가)
Cells(c, 6) = Format(Val(txt수량) * Val(txt단가), "currency")
Cells(c, 7) = cmb결재형태

txt제품명 = ""
txt수량 = ""
txt단가 = ""
cmb결재형태 = ""

End If

End Sub

225페이지 5번 등록할 때 처음에 한번은 등록이 제대로 되고 두번째부터는 수량과 단가가 이상하게 나오는데 왜그러는거에요??