시나공

시험에

나오는 것만

공부한다!

Private Sub cmd등록_Click()
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

End Sub

Private Sub cmd조회_Click()
입력행 = [b3].Row + [b3].CurrentRegion.Rows.Count - 1
txt판매일자 = Cells(입력행, 2)
txt제품명 = Cells(입력행, 3)
txt수량 = Cells(입력행, 4)
txt단가 = Cells(입력행, 5)
End Sub

옵션에 변수선언요구도 해제했고 dim으로 변수선언해도 제대로 돌아가지 않습니다. 제가 뭔가 잘못쓴게 있나요?

노란색부분에 마우스를 대고있으면 입력생 = Empty 로 뜨고 cells에 대고 있으면 응용프로그램 정의오류 또는 개체정의오류 입니다. 라고 나옵니다.