| |
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
- 액세스 버전(95,97,2000,xp,2003,2007): 2003
* 아래줄에 질문을 작성하세요 >>
안녕하세요.
거래처별로 페이지 번호를 다시 표시하고 싶습니다.
그룹별/부분합은 거래처별로 다른페이지에 인쇄는 되나...
페이지 번호는 거래처별로 표시가 안돼더라구여..
이전에 질문 올리셨던거 확인은 해보았는데..
김규경님 홈피에 예제가 있다고 해서 가보았으나,
지금은 그 홈피가 열리지 않는 거 같습니다.
오래전에 올라온 글이라..
제가 알고 있던 홈피주소로는 안열리더라구요..
다른 홈피로 활동하고 계시는걸까요?ㅠㅠ
글로 설명된 것은..
제가.. 아직 전문가적 지식이 없어서 그런가 이해하기 힘드네요..
친절한 설명 부탁드립니다..
==============[룽님 글에 대한 답변입니다]==============
그룹 머리글의 'On Format' 이벤트에 page=1 을 써주면 현재 페이지 번호는 각 그룹별로 카운팅 됩니다만, 전체 페이지는 자동으로 계산된 값만 나타냅니다. 따라서 별도의 계산이 필요합니다.
본 내용은 구글에서 검색하여 그대로 알려드리는 것입니다.
참조 사이트 : http://access.mvps.org/access/reports/rpt0013.htm
동영상 : http://www.experts-exchange.com/videos/523/MS-Access-Adding-Page-x-of-y-Over-a-Group-in-a-Report.html
1. 보고서를 디자인모드로 연 후, 페이지 바닥글에 페이지 번호를 표기할 텍스트 박스를 만들어 넣습니다. 컨트롤이름은 'ctlGrpPages' 로 하겠습니다.
2. 페이지 바닥글 타이틀 오른 클릭 - '이벤트작성' 클릭
3. 아래 코드 삽입합니다. 이때 이벤트 전 후 코드를 잘 확인 하셔서 붙여넣기 하세요.
Option Compare Database
'여기부터 이벤트 전 코드
Option Explicit
Dim GrpArrayPage(), GrpArrayPages()
Dim GrpNameCurrent As Variant, GrpNamePrevious As Variant
Dim GrpPage As Integer, GrpPages As Integer
'여기부터 이벤트 내 코드 입니다.
Private Sub 페이지_바닥글_구역_Format(Cancel As Integer, FormatCount As Integer)
Dim i As Integer
If Me.Pages = 0 Then
ReDim Preserve GrpArrayPage(Me.Page + 1)
ReDim Preserve GrpArrayPages(Me.Page + 1)
GrpNameCurrent = Me.업체명
If GrpNameCurrent = GrpNamePrevious Then
GrpArrayPage(Me.Page) = GrpArrayPage(Me.Page - 1) + 1
GrpPages = GrpArrayPage(Me.Page)
For i = Me.Page - ((GrpPages) - 1) To Me.Page
GrpArrayPages(i) = GrpPages
Next i
Else
GrpPage = 1
GrpArrayPage(Me.Page) = GrpPage
GrpArrayPages(Me.Page) = GrpPage
End If
Else
Me!ctlGrpPages = "Group Page " & GrpArrayPage(Me.Page) & " of " & GrpArrayPages(Me.Page)
End If
GrpNamePrevious = GrpNameCurrent
==============[황동준님 글에 대한 답변입니다]==============
안녕하세요..
추가 질문이 있어 글을 남깁니다.
알려주신대로 했는데..
처음에 시도했었을때는 page 가 보였는데..
화면을 닫고 다시 여니 page 번호가 안보입니다.
혹시 몰라서 다시 작성하였는데..
아예 화면에 page 번호가 안나오네요..
원인이 무엇일까요?ㅠㅠ
==============[룽님 글에 대한 답변입니다]==============
희한하게도.. 왜 안나오는지 알수가 없네요. 보고서 자체를 다시 만들어 보세요.. |
|
액세스에 대한 질문과
답변을 올려주세요. 단, 취지에 맞지 않는 글은 운영자가 삭제합니다.
