Access VBA質問箱 IV

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

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


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

6814 / 9994

←次へ　｜　前へ→


	【6379】Re:帳票フォームにて選択した行の背景に色...

しましま - 05/9/29(木) 2:53 -


	引用なし

	パスワード

最近私も同じことを考え、編み出した方法です。

１．まず、一覧フォームに使用しているレコードソースの「テーブル」に [カレント] と
　　いう「Yes/No型」のダミーフィールドを作成します。

２．次に一覧フォームの「フォーム移動時イベント」に下記のコードを設定します。

Private Sub Form_Current()
Const myTBL As String = "T_一覧テーブル"　　　'元となるテーブル

　 DoCmd.SetWarnings False
　 '1.今カレントになっているフラグを消し、2.新しい行のカレントフラグをオンにする
　 DoCmd.RunSQL "UPDATE " & myTBL & " SET カレント=False WHERE カレント=True;"
　 DoCmd.RunSQL "UPDATE " & myTBL & " SET カレント=True WHERE " & "ID=" & id & ";"
　 DoCmd.SetWarnings True
　　　
　 Me.Repaint　　　　'移動があまりにも早いと、画面が更新されないことがあるので再描画
　　　　　　　
End Sub
（上記例では、テーブルの主キーに「id」を使っています）
これで移動に合わせ、選択されているレコードの[カレント]フィールドに常にレ点が入り
ます。

３．ハイライト表示させたい全てのテキストボックス等のコントロールの条件付き書式に、
　　[式]　　式の内容→　[カレント]=True
　　
　　と設定します。

以上でできるはずです。
お試しあれ。　(^o^)

1,198 hits

▼

【6339】帳票フォームにて選択した行の背景に色を... okain 05/9/22(木) 14:50