| |
>試した内容。
>商品テーブルにページを保存するフィールド「目次用ページ」を作成
>↓
>レポートの詳細部分に非連結のテキスト1.を作成。
>↓
>ページフッターのページを表示するテキスト2.を作成
>（コントロールソース=[page])
>↓
>テキスト1.のコントロールソースに（=テキスト2.）と入力
>↓
>レポートを開いた状態でテーブルの「目次用ページ」にテキスト1.
>が入力されるよう更新クエリを実行
>
>という手順でやってみました。するとテキスト1.にはきちんとテキスト2.
>と同じページが表示されているのにテーブルの「目次用ページ」は全て
>”１”になってしまいます。試しに更新クエリでテキスト2.を入力しても
>全て”１”でした。
どのイベントで、どのような更新クエリを実行したのでしょうか。
実際に確認はしてませんが、
下記のようにすればうまくいくと思います。
レポート上にコントロールソース =[Pages] のテキストボックスを配置
（可視は「いいえ」でも可）
レポートの詳細セクションのフォーマット時のイベントプロシージャで、
If Me.Pages = 0 And FormatCount = 1 Then
CurrentDB.Excecute _
"UPDATE 商品テーブル SET 目次用ページ = " & Me.Page & _
" WHERE 商品コード=" & Me.商品コード & ";"
End If
これで、レポートをプレビューまたは、印刷すると、商品テーブルに目次用ページが
書き込まれると思います。
商品テーブルの主キーは商品コードで、数値型との前提でコーディングしてます。
|
|
hatena
- 07/6/22(金) 9:57 -
![[未読]](./data/access/image/read_icon.gif){kind=icon}
