Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

1350 / 9994

←次へ　｜　前へ→


	【11942】Re:帳票フォームと単票フォームの連携

さつき - 11/1/26(水) 20:31 -


	引用なし

	パスワード

▼雅さん
ご回答ありがとうございます。

>よろずやさんとのやり取りをざっと見ましたがやりたいことが
>いまいちつかめません。
>さつきさんもいまいち整理できていないのではないですか？
>いま一度何をしたいか整理されてはいかがでしょう？

説明の仕方が悪かったようで、伝え切れなくて申し訳ありません。
やりたかったことは、帳票フォームで検索した後、
その中から特定のデータを選択して単票フォームで詳細を表示したいのですが、
その単票側でも、帳票フォームで検索した後の絞り込んだデータだけを
詳細確認していきたかったのです。
似たような目的のサンプルを見つけて、下記のようにしてみたら上手く行きました。

帳票フォームでの検索

Private Sub setfilter()

Dim strfilter As String
Dim ctl As Access.Control

For Each ctl In Me.Section(acHeader).Controls
if ctl.ControlType = Access.acCheckBox
　If ctl.Value Then
　 strfilter = strfilter & " and 資料名 like '*" & ctl.Controls.tag & "*'"
　End If
End if
Next

Me.Filter = mid(strfilter,6)
Me.FilterOn = true

単票フォームを表示するボタンのクリックイベント
Dim rs As DAO.Recordset

DoCmd.OpenForm "単票フォーム", , , Me.Filter
Set rs = Forms!単票フォーム.Recordset.Clone
rs.FindFirst "連番 = '" & Me!連番.Value & "'"
Forms!単票フォーム.Bookmark = rs.Bookmark
Set rs = Nothing

まだ質問したいことが他にありますので、その際もよろしくお願いします。

710 hits

▼

【11922】帳票フォームと単票フォームの連携 さつき 11/1/20(木) 1:26