Access VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
964 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【9334】可能でしょうか？ 迷子 07/4/24(火) 14:56 発言[未読]
【9335】Re:可能でしょうか？ Gin_II 07/4/24(火) 15:11 回答[未読]
【9337】Re:可能でしょうか？ 迷子 07/4/24(火) 15:40 お礼[未読]
【9334】可能でしょうか？
発言  迷子  - 07/4/24(火) 14:56 -
引用なし
パスワード
   こんにはAccess2000を使用しております。
モジュールにPublic作成し定義をしています。
毎度毎度Publicだけを修正しているのですが、これをフォーム上にPublic定義した値を表示し、ここを修正したら、Publicを更新出来る様にはならないでしょうか？
Publicには色々変数として定義していますが、全体または一部を一気に更新したく1画面のフォーム上で閲覧修正したいと思っています。
良い方法があれば教えて下さい。


Public Const M_Day = "2006/01/14," _
　　　　　　　　　 & "2006/02/04," _
　　　　　　　　　 & "2006/03/04"
Public Const chk0 = "2007/02/28"
Public Const chk2 = "2008/03/01"
【9335】Re:可能でしょうか？
回答  Gin_II  - 07/4/24(火) 15:11 -
引用なし
パスワード
   > 毎度毎度Publicだけを修正しているのですが、これをフォーム上にPublic定義した値を表示し、ここを修正したら、Publicを更新出来る様にはならないでしょうか？
> Publicには色々変数として定義していますが、全体または一部を一気に更新したく1画面のフォーム上で閲覧修正したいと思っています。

Const で定義しているのなら、フォーム上から変更することはできないですね。
通常、こういったことをする場合は、テーブルを使ったり、レジストリや ini ファイルなんかを使うことが多いと思います。

せっかくAccessを利用しているのなら、テーブルを利用するのが簡単ですね。

テーブル：TM_システム情報
　フィールド：キー（主キー：テキスト型）
　　　　　　　値（テキスト型）

キー　　値
自期間　2007/01/01
至期間　2007/01/31

なんかのように登録しておけば、

DLookup("値", "TM_システム情報", "キー='自期間'")
のように取得することができます。

変更も、テーブルを元に、フォームを作成すれば簡単ですし。
【9337】Re:可能でしょうか？
お礼  迷子  - 07/4/24(火) 15:40 -
引用なし
パスワード
   回答ありがとうございます。
かなりの部分はレコード化されているのですが、イレギュラーの部分をPublicに定数を起き特殊処理時にここの定数を使用しいる状況が続き、非常に長いPublicの為修正忘れが出る様になってしまいました。
そこでPublicに定義した値をフォーム上に表示させて、ここに新しい数値を入れ替えたら、元々のPublicを更新させたかったと言うのが趣旨でした。
これが出来れば、各フォームで設定している記述を変更無く安全に修正出来ると思っていましたが、出来ずに悩んでいました。
Gin_IIさんの意見を参考にして、トライして見たいと思います。


▼Gin_II さん：
>> 毎度毎度Publicだけを修正しているのですが、これをフォーム上にPublic定義した値を表示し、ここを修正したら、Publicを更新出来る様にはならないでしょうか？
>> Publicには色々変数として定義していますが、全体または一部を一気に更新したく1画面のフォーム上で閲覧修正したいと思っています。
>
>Const で定義しているのなら、フォーム上から変更することはできないですね。
>通常、こういったことをする場合は、テーブルを使ったり、レジストリや ini ファイルなんかを使うことが多いと思います。
>
>せっかくAccessを利用しているのなら、テーブルを利用するのが簡単ですね。
>
>テーブル：TM_システム情報
>　フィールド：キー（主キー：テキスト型）
>　　　　　　　値（テキスト型）
>
>キー　　値
>自期間　2007/01/01
>至期間　2007/01/31
>
>なんかのように登録しておけば、
>
>DLookup("値", "TM_システム情報", "キー='自期間'")
>のように取得することができます。
>
>変更も、テーブルを元に、フォームを作成すれば簡単ですし。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
964 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
1078201
(SS)C-BOARD v3.8 is Free