人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

ccess2003のレポートについて教えてください。http://q.hatena.ne.jp/1267778643の続きです。
my_table,my_form,my_reportが登場します。

・my_formフォームにボタンを設置。クリックすると、「my_report」というレポートを呼び出す。

Private Sub cmd_Execute_Click()
DoCmd.OpenReport my_report, acViewPreview

・レポート上(my_report)には、r_ID,r_Nameというテキストボックスが配置されています。この2つのテキストボックスにIDと名前を表示したいと思っています。

・レポートオープン時には、下記が流れてレコードソースがセットされます。
Private Sub Report_Open(Cancel As Integer)
Dim sql As String
sql = "SELECT ID,Name from my_table where ID Between 0 and 100"
Me.RecordSource = sql
end sub

質問続きは補足で。

●質問者: akaired
●カテゴリ:コンピュータ インターネット
✍キーワード:as name SELECT SQL String
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

1 ● mj99
●100ポイント ベストアンサー

RecordSetを別途持って、RecordSourceを使わないサンプルがあります。

http://hatenachips.blog34.fc2.com/blog-entry-76.html

同ページ、下のほうにちょっと複雑なサンプルがあります。

http://www42.tok2.com/home/hatena19/samplefile/RptNonConnect.zip


ページセクションの制御を自身のコードを制御する必要があり、めんどうです。

実用性が無い気がします。

----

RecordSourceを使う場合は、ページセクションの制御をAccessに任せれるので楽です。

RecordSourceの内容と一致するようにコントロールの連結内容を変更するだけでOKです。

Private Sub Report_Open(Cancel As Integer)
 Dim sql As String
 sql = "SELECT ID,NAME from my_table where ID Between 0 and 100"
 Me.RecordSource = sql

 '左辺にレポートのコントロールを指定、右辺にSQL内のフィールドを指定します。
 Me.r_ID.ControlSource = "[ID]"
 Me.r_NAME.ControlSource = "[NAME]"
End Sub
◎質問者からの返答

Me.r_ID.ControlSource = "[ID]"こういったやりかたを知りませんでした。このようにして指定できるんですね、ありがとうございます!感謝です!

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ