Access VBA質問箱 IV

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

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


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

1364 / 9994

←次へ　｜　前へ→


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

さつき - 11/1/23(日) 1:20 -


	引用なし

	パスワード

▼よろずやさん：
ご回答ありがとうございます。

>意味不明です。
>変数strfilter なんて初登場ですから、どう使っているのか、
>使っているのに中身がから？
>なんで mid(strfilter,6) ？
失礼いたしました。説明不足でした。

帳票フォームのヘッダーにチェックボックスが複数個あり、
それぞれの更新後イベントに下記の
フィルター設定プロシージャーを呼び出すようにしてあります。

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

この条件で検索した結果の1レコードを選んでボタンを押すと、
単票フォームを表示させるようにすることが、
おかげさまでできるようになりました。
プロシージャが違うので、strfilterの値を引き継ぐようにしないといけないのかどうかよくわからなかったので、意味不明なご質問になってしまいました。
申し訳ありません。
どうか引き続きご教授お願いいたします。

833 hits

▼

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