나눔터  
  HOME > 나눔터 > 묻고답하기 > 액세스
액세스
액세스에 대한 질문과 답변을 올려주세요. 단, 취지에 맞지 않는 글은 운영자가 삭제합니다.
 "000 님, 도와주세요", "부탁 드립니다.", "급합니다!" 등과 같이 막연한 제목을 달지 말아주세요.
[필독] 빠르고 정확한 답변을 얻는 16가지 Tip !
[필독] 저작권법 개정에 따른 이용안내
작성자:  

 열심맨 (ojk)

추천:  1
파일:     조회:  1304
제목:   [RE] 자체해결 했습니다. - 내용을 기록합니다.
     
  댓글 600자에 걸려서 답변글로 기록합니다.

자체해결 했습니다.
저와 같이 필요하신 분을 위해서 기록합니다.
매크로함수는 runcode 를 사용했습니다.
아래는 매크로에서 사용한 모듈 소스 입니다.

----------------------------
Option Compare Database


Public Function aprint()

    '??? ????? ???
    DoCmd.PrintOut

End Function


Public Function aprints()

On Error GoTo Err_????

    '?μ? ????a ???
    DoCmd.RunCommand acCmdPrint

Exit_????:
    Exit Function

Err_????:
    '?????? ???? ?????? ????ο????? ?????? ?????? - ?????? ?????????? ??????? ???o????
    'MsgBox Err.Description
    Resume Exit_????

End Function

Public Function aprintys()

On Error GoTo Err_????

    '?????? ????a ???
    DoCmd.RunCommand acCmdPageSetup

Exit_????:
    Exit Function

Err_????:
    '?????? ???? ?????? ????ο????? ?????? ?????? - ?????? ?????????? ??????? ???o????
    'MsgBox Err.Description
    Resume Exit_????


End Function

Public Function apdfs()

On Error GoTo Err_????

    '?μ? ????a ??? ??????? ???? ????? ??????? ????????
    MsgBox "??????? ?μ?a???? ??????? pdf?? ??????ð?     " & Chr(13) & Chr(13) & "????? ?????ø? ????.", vbInformation, " ???"
    
    '?μ? ????a ???
    DoCmd.RunCommand acCmdPrint

Exit_????:
    Exit Function

Err_????:
    '?????? ???? ?????? ????ο????? ?????? ?????? - ?????? ?????????? ??????? ???o????
    'MsgBox Err.Description
    Resume Exit_????

End Function

Public Function aclose()

    '????? ???
    DoCmd.Close

End Function
 
[불량 게시물 신고]  
열심맨헉...
글자가 깨지네요... 엑세스 소스를 카피해서 붙인것인데...
글자가 깨진것은 주석을 달아논 한글입니다.

에러코드에 깨진것은 
Err_???? -> Err_에러
입니다.
03-22 (23:00)
삭제 ■신고
qqqq훌륭하십니다~!04-10 (08:41)
삭제 ■신고
        
  

작성일 : 2020-03-22(22:55)
최종수정일 : 2020-03-22(23:01)
 


 ◎ 관련글

  제 목   작성자   날짜
보고서에 팝업메뉴 구현중 지원하는 매크로 명령어가 없을경우? 열심맨 2020-03-22
[RE] 자체해결 했습니다. - 내용을 기록합니다. 열심맨 2020-03-22