Access (一般機能)

Accessの一般機能に関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(Windows 11 Pro : Access 2019)
レポート 用紙の最後まで罫線です
投稿日時: 22/09/20 14:41:16
投稿者: blaketto5271

申し訳ありません。hatenaさんを参考にしました。
レポートの詳細ページに、左隅と右隅に縦線を作成しました。
ページの最終行まで罫線を表示しました。
モジュールに以下のコードです
Public Function PageDrawLine(PageRows As Integer)
    Dim SecHeight As Single, SecTop As Single
    Dim ctl As Control
    Dim I As Integer
    Const boldSize = 8
     
    With CodeContextObject
        .ScaleMode = 1
        SecHeight = .Section(acDetail).Height
        SecTop = .Section(acPageHeader).Height
        For Each ctl In .Controls
            If ctl.Section = acDetail And ctl.ControlType = acLine Then
                ctl.Visible = False
                If ctl.BorderStyle = 1 Then
                .DrawStyle = 0
               Else
                .DrawStyle = 2
                End If
                 
                If ctl.BorderWidth = 0 Then
                    .DrawWidth = 1
                Else
                    .DrawWidth = boldSize
                End If
                For I = 0 To PageRows - 1
CodeContextObject.Line (ctl.Left, SecTop + ctl.Top + SecHeight * I)-Step(ctl.Width, ctl.Height), ctl.BorderColor
                Next I
            End If
        Next ctl
   End With
End Function
プロパティの
ページフォーマット時に 「=PageDrawLine(47)」のコードを入力。
2つの縦線が47行目まで表示されました。
横線の設定は不要としました。
最終行のふたつの縦線を結びたいのですが。
47行目に横線を表示したいのですが。
ご指導よろしくお願いします
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

投稿日時: 22/09/21 09:46:26
投稿者: blaketto5271

大変失礼しました
=PageDrawLine及びページフッターを調整して
表示できました
 
感謝申します