책 내용 질문하기
cmd조회구분.AddItem = "관리자"
cmd조회구분.AddItem = "일반사용자"
cmd조회구분.AddItem = "고객"
End Sub
안되는 이유를 모르겠어요
도서
[2009] 컴퓨터활용능력 1급 실기(엑셀, 액세스 2003 사용자용)
페이지
조회수
55
작성일
2011-08-02
작성자
첨부파일
단추를 클릭했을 때 폼이 열리지 않는데 그 이유를 모르겠어요.
답변
2011-08-03 10:32:34
Private Sub cmd고객조회_Click()
입력행 = [d3].Row + [d3].CurrentRegion.Rows.Count - 1
txt고객명 = Cells(입력행, 4)
txt고객등급 = Cells(입력행, 5)
txt매출금액 = Cells(입력행, 6)
txt결제방식 = Cells(입력행, 7)
End Sub
입력행 = [d3].Row + [d3].CurrentRegion.Rows.Count - 1
txt고객명 = Cells(입력행, 4)
txt고객등급 = Cells(입력행, 5)
txt매출금액 = Cells(입력행, 6)
txt결제방식 = Cells(입력행, 7)
End Sub
Private Sub cmd종료_Click()
Unload Me
End Sub
Unload Me
End Sub
Private Sub UserForm_Click()
End Sub
Private Sub UserForm_Initialize()
cmd조회구분.AddItem = "관리자"
cmd조회구분.AddItem = "일반사용자"
cmd조회구분.AddItem = "고객"
lst등급종류.RowSource = "i4: i8"
End Sub
표시 된 부분을 수정해보세요. cmd 가 아니라 cmb 이고 additem 은 = 을 붙이지 않습니다.
좋은 하루 되세요.
"
-
*2011-08-03 10:32:34Private Sub cmd고객조회_Click()
입력행 = [d3].Row + [d3].CurrentRegion.Rows.Count - 1
txt고객명 = Cells(입력행, 4)
txt고객등급 = Cells(입력행, 5)
txt매출금액 = Cells(입력행, 6)
txt결제방식 = Cells(입력행, 7)
End SubPrivate Sub cmd종료_Click()
Unload Me
End SubPrivate Sub UserForm_Click()End SubPrivate Sub UserForm_Initialize()
cmd조회구분.AddItem = "관리자"
cmd조회구분.AddItem = "일반사용자"
cmd조회구분.AddItem = "고객"lst등급종류.RowSource = "i4: i8"
End Sub
표시 된 부분을 수정해보세요. cmd 가 아니라 cmb 이고 additem 은 = 을 붙이지 않습니다.좋은 하루 되세요."