책 내용 질문하기
2008년 4회 컴활1급실기(액세스)F형
도서
[2010] 컴퓨터활용능력 1급 실기(엑셀, 액세스 2007 사용자용)
페이지
조회수
57
작성일
2011-08-10
작성자
첨부파일
1. 문제3 조회및 출력기능구현-3
명령단추를 이용하여 작성했는데, 실제로 클릭하면 되지 않아요ㅠ
2. 문제4 처리기능구현-1
조인속성을 할려면 어떻게 해야하나요?? 책에도 설명만 되어있지 어떻게 속성을 지정하는지 않나와서ㅠ
답변
2011-08-11 13:11:18
Private Sub cmd보고서_Click()
On Error GoTo Err_cmd보고서_Click
Dim stDocName As String
stDocName = "등록현황"
DoCmd.OpenReport stDocName, acPreview
DoCmd.OpenReport stDocName, acPreview
Exit_cmd보고서_Click:
Exit Sub
Exit Sub
Err_cmd보고서_Click:
MsgBox Err.Description
Resume Exit_cmd보고서_Click
End Sub
Private Sub cmd보고서_Click()
On Error GoTo Err_cmd보고서_Click
MsgBox Err.Description
Resume Exit_cmd보고서_Click
End Sub
Private Sub cmd보고서_Click()
On Error GoTo Err_cmd보고서_Click
Dim stDocName As String
stDocName = "등록현황"
DoCmd.OpenReport stDocName, acPreview
DoCmd.OpenReport stDocName, acPreview
Exit_cmd보고서_Click:
Exit Sub
Exit Sub
Err_cmd보고서_Click:
MsgBox Err.Description
Resume Exit_cmd보고서_Click
End Sub
Private Sub cmd보고서_Click()
On Error GoTo Err_cmd보고서_Click
MsgBox Err.Description
Resume Exit_cmd보고서_Click
End Sub
Private Sub cmd보고서_Click()
On Error GoTo Err_cmd보고서_Click
Dim stDocName As String
stDocName = "등록현황"
DoCmd.OpenReport stDocName, acPreview
DoCmd.OpenReport stDocName, acPreview
Exit_cmd보고서_Click:
Exit Sub
Exit Sub
Err_cmd보고서_Click:
MsgBox Err.Description
Resume Exit_cmd보고서_Click
End Sub
MsgBox Err.Description
Resume Exit_cmd보고서_Click
End Sub
cmd보고서_click 프로시저가 3개가 있어서 그런것입니다..
2개의 프로시저는 삭제하시고 하나만 남기고 사용해 보세요.
좋은 하루 되세요.
"
-
*2011-08-11 13:11:18
Private Sub cmd보고서_Click()
On Error GoTo Err_cmd보고서_ClickDim stDocName As StringstDocName = "등록현황"
DoCmd.OpenReport stDocName, acPreviewExit_cmd보고서_Click:
Exit SubErr_cmd보고서_Click:
MsgBox Err.Description
Resume Exit_cmd보고서_Click
End Sub
Private Sub cmd보고서_Click()
On Error GoTo Err_cmd보고서_ClickDim stDocName As StringstDocName = "등록현황"
DoCmd.OpenReport stDocName, acPreviewExit_cmd보고서_Click:
Exit SubErr_cmd보고서_Click:
MsgBox Err.Description
Resume Exit_cmd보고서_Click
End Sub
Private Sub cmd보고서_Click()
On Error GoTo Err_cmd보고서_ClickDim stDocName As StringstDocName = "등록현황"
DoCmd.OpenReport stDocName, acPreviewExit_cmd보고서_Click:
Exit SubErr_cmd보고서_Click:
MsgBox Err.Description
Resume Exit_cmd보고서_Click
End Subcmd보고서_click 프로시저가 3개가 있어서 그런것입니다..2개의 프로시저는 삭제하시고 하나만 남기고 사용해 보세요.좋은 하루 되세요."