お世話になっております
よろしくお願いします。
WindowsXP SP3
office2000
を使っています
テーブルに2つのデータがり
それをフォームで表示しています
表示した際に下のほうにページ移動の黒い三角のマークがあると思うのですが
そのページを移動をしたときに発生するイベントはないのでしょうか?
データによってラベルを表示・非表示をしたいのですが
最初に非表示になると次からは非表示のままです
Private Sub Form_Load()
If me.フィールド名 = 0 Then
me.フィールド名.Visible = False
End If
これをどこに書いたらページごとに実行できるのでしょうか?
以上よろしくお願いします。
No.1
- 回答日時:
プロパティシートで「レコード移動時」、VBAで「Current」イベントがご希望に
沿うかと思います。
Private Sub Form_Current()
If Me!フィールド名 = 0 Then 'フィールドの値が0の場合
Me!ラベル名.Visible = False
Else 'フィールドの値が0以外の場合
Me!ラベル名.Visible = True
End If
End If
【以下、蛇足】
恐らく単票型フォームを使用されているものと思いますので問題はないはずですが、
もしも帳票型の場合は、ラベルの表示/非表示は全てのレコードで同じ(→フォームの
左端に、横向きの「▼」があるレコード(=カレントレコード)の値で判定される)に
なりますので、ご注意下さい。
この回答への補足
返答ありがとうございます
単票型で作っています。
レコード移動時にイベントプロシージャーで
msgbox "a"としてみたのですが
最初に読み込むときにしか実行されません
なにかプロパティの設定が間違っているのでしょうか?
申し訳ありませんがなにかお分かりでしたら教えてください
以上よろしくお願いします。
No.2ベストアンサー
- 回答日時:
No.1です。
> なにかプロパティの設定が間違っているのでしょうか?
ちょっと原因が考えにくい状況ですね(汗)
念のため、の意味合いが強くなってしまいますが、以下の点を確認してみてください。
・移動できるレコードがあるか:
レコードソースが設定されていないフォーム(非連結フォーム)や「新規レコードのみ」
「1レコードのみ&追加不可」だった場合、フォームを開いた直後は同イベントが
発生しますが、以降は発生しないため、状況的には似ているかということで・・・(汗)
・マクロ/VBAで「レコード移動時(OnCurrent)」プロパティを切り替えていないか:
例えば、「Form_Current」Sub内で「Me.OnCurrent = ""」の代入を行うと、
以降のレコードイベント発生時にはコードが実行されなくなります。
・当該mdbファイルに、新規のテーブル(レコードは適当に追加)と、それをレコードソースと
するフォームを作成し、同様にレコード移動時イベントにMsgBoxを設定してみる:
これでも同様に、展開時しかMsgBoxが表示されないとなると、当該mdbファイルか
Accessアプリケーションが破損していると推測されるため、修復か再インストールと
いうことになります。
(当該mdbファイルで不可だった場合は新規mdbファイルで同様に試してみて、
再現するならアプリケーションの問題、再現しないならファイルの問題、と)
※ファイルの修復については、当該ファイルを開いた状態で、Accessのメニューから
「ツール(T)→データベース ユーティリティ(D)」内に、該当するものがあったと思います。
(こちらはAccess2003で、Access2000とはこの辺りの項目に違いがあったような記憶
があるため、明示できませんが(汗))
・・・お役に立てるかわかりませんが、参考まで。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Access(アクセス) AccessVBAで降順にするテーブル作成クエリを使用して作成したテーブルを削除し同一のテーブル作成 1 2023/01/06 11:17
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
- JavaScript フォームが空欄の時にフォームの外をクリックすると、エラーが出るコードを調べています。 1 2023/06/25 11:51
- Visual Basic(VBA) VBA Bookの表示、非表示 1 2022/09/16 20:44
- PHP PHP MySql ページング 2 2022/09/20 06:38
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 6 2022/06/08 12:55
- Access(アクセス) Accessでセレクタをダブルクリックで別フォームで詳細表示 3 2022/12/20 10:36
- PHP php my adminより取り出したデータ表示 2 2022/06/15 11:56
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2022/06/10 11:06
- Visual Basic(VBA) 検索のユーザーフォームの表示について 1 2023/03/27 23:31
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
カレントレコードが無い事を判...
-
データセットのレコード更新が...
-
ADO VBA 実行時エラー3021
-
レコードが存在しなかった場合
-
Access でレコードセレクタが押...
-
DataGridViewの、選択されてい...
-
ファイル書込みで一行もしくは...
-
ヘッダレコードとトレーラレコ...
-
Line Inputで文字化け(助けて...
-
COBOLでのランダムアクセス
-
DataGridViewの内容をDBに反映...
-
JSPのNULLレコード表示について...
-
VB6.0のIsNull関数に相当するもの
-
レコードセット(ADO.Recordset)...
-
Access を×ボタンで閉じ...
-
DataGridViewにてセル以外をク...
-
エラー番号=5 制約を有効にで...
-
ADODBのRecordset.Deleteのエラ...
-
アクセスでレポートの1印刷内...
-
[VB6]プログレスバーコントロー...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
レコードが存在しなかった場合
-
ADO VBA 実行時エラー3021
-
ファイル書込みで一行もしくは...
-
アクセスでレポートの1印刷内...
-
カレントレコードが無い事を判...
-
差し込み印刷のレコード数について
-
レコードセット(ADO.Recordset)...
-
ワードの差込印刷で教えて下さ...
-
DataGridViewの内容をDBに反映...
-
Access でレコードセレクタが押...
-
DataGridViewの、選択されてい...
-
JSPのNULLレコード表示について...
-
ACCESSで大量の更新を行うと「...
-
[VBA] ADOの Clone と AddNew
-
Access を×ボタンで閉じ...
-
サブレンジ分割されたNDB(富士...
-
ヘッダレコードとトレーラレコ...
-
データセットのレコード更新が...
-
DataGridViewにてセル以外をク...
-
Line Inputで文字化け(助けて...
おすすめ情報