책 내용 질문하기
End Sub
If Fra확인란 = 1 Then
If Fra확인란 = 1 Then
액세스 질문입니다....ㅠ.ㅠ
도서
[2012] 컴퓨터활용능력 1급 실기(엑셀, 액세스 2007 사용자용)
페이지
273
조회수
94
작성일
2011-11-15
작성자
첨부파일
액세스 공부하고 있는데요.
273페이지 3번문제에 3번이요...ㅠ.ㅠ
풀이와 동일하게
Private Sub cmd표시_Click()
If Fra확인란 = 1 Then
DoCmd.OpenReport "회원별사용현황", acViewPreview, , "[회원성명]=[Form]![스포츠클럽관리]![lst회원정보]"
DoCmd.OpenReport "회원별사용현황", acViewPreview, , "[회원성명]=[Form]![스포츠클럽관리]![lst회원정보]"
Else
DoCmd.OpenReport "강사별사용현황", acViewPreview, , "[강사코드]=[Form]![스포츠클럽관리]![lst강사정보]"
DoCmd.OpenReport "강사별사용현황", acViewPreview, , "[강사코드]=[Form]![스포츠클럽관리]![lst강사정보]"
End If
End Sub
이렇게 작성했는데 매개변수 값 입력하라고 하고 안하고 끄면, 디버그가 발생했다고 하네요....
사진파일 올려드리겠습니다...ㅠ.ㅠ
가르쳐 주실수 있을까요??
뭐가 문제점인지...ㅠ.ㅠ
RE..........
가르쳐주신대로 lst회원정보 선택하고 lst강사정보 선택하고 보고서를 눌렀는데
보고서 선택기준을 눌렀는데....
여전히 매개변수 값 입력이라는 메시지가 뜨면서 회원정보를 적으라하고 김기묘라고 적으면
매개변수 값 입력이라는 메시지가 뜨면서 Form!스포츠클럽관리!lst회원정보라는 창이뜨네요...ㅠ.ㅠ
어찌된건지...ㅠ.ㅠ 알려주세요..ㅠ.ㅠ
제가 컴퓨터를 잘 못해서요..ㅠ.ㅠ
혹시 몰라서 파일을 첨부합니다...
파일 비밀번호는 93#767입니다....ㅠ.ㅠ
수고하세요..ㅠ.ㅠ
답변
2011-11-16 11:09:07
파일에는 오타가 많네요?
Private Sub cmd표시_Click()
If Fra확인란 = 1 Then
DoCmd.OpenReport "회원별사용현황", acViewPreview, , "[회원성명] = [form]![스포츠클럽관리]![lst회원정보]"
Else
DoCmd.OpenReport "강사별사용현황", acViewPreview, , "[강사코드] = [form]![스포츠클럽관리]![lst강사정보]"
End If
End Sub
부분에 오타가 있었습니다. 아래 코드가 첨부하신 파일의 코드입니다.
Private Sub cmd표시_Click()
If Fra확인란 = 1 Then
DoCmd.OpenReport "회원별사용현황", acViewPreview, , "[회원정보] = [form]![스포츠클럽관리]![lst회원정보]"
Else
DoCmd.OpenReport "강사별사용현황", acViewPreview, , "[강사정보] = [form]![스포츠클럽관리]![lst강사정보]"
End If
End Sub
오타가 있죠? Lst회원정보, Lst강사정보 로 작성하셔야 하고 회원정보는 회원성명, 강사정보를 강사코드으로 변경하셔야 합니다.
오타 수정한 후 사용해 보세요.
좋은 하루 되세요.
"
-
*2011-11-16 11:09:07
파일에는 오타가 많네요?
Private Sub cmd표시_Click()
If Fra확인란 = 1 ThenDoCmd.OpenReport "회원별사용현황", acViewPreview, , "[회원성명] = [form]![스포츠클럽관리]![lst회원정보]"ElseDoCmd.OpenReport "강사별사용현황", acViewPreview, , "[강사코드] = [form]![스포츠클럽관리]![lst강사정보]"End IfEnd Sub부분에 오타가 있었습니다. 아래 코드가 첨부하신 파일의 코드입니다.Private Sub cmd표시_Click()
If Fra확인란 = 1 ThenDoCmd.OpenReport "회원별사용현황", acViewPreview, , "[회원정보] = [form]![스포츠클럽관리]![lst회원정보]"ElseDoCmd.OpenReport "강사별사용현황", acViewPreview, , "[강사정보] = [form]![스포츠클럽관리]![lst강사정보]"End IfEnd Sub오타가 있죠? Lst회원정보, Lst강사정보 로 작성하셔야 하고 회원정보는 회원성명, 강사정보를 강사코드으로 변경하셔야 합니다.오타 수정한 후 사용해 보세요.좋은 하루 되세요."