ACCESS初心者です。
顧客住所録管理をしていて、フォームで既存レコードのどこかのフィールドを変更したら、”変更日時”のフィールドに日時が入るように指定しました。
(全てのフィールドのプロパティ更新後処理に
          Me![更新日時].Value = Now()     と設定。)
変更日時で抽出をかければ特定の日以後に変更のあったデータを抽出してくれるの
ですが、どのフィールドが変更になったかは分かりません。
そこで、変更があったフィールドに色をつけるということはできないものかと考えました。
フォームの条件付書式で条件が真のときに色を塗るっていうのがありましたよね。
あんな感じのことがしたいのですが・・・。
各フィールドの更新後処理になにかVBAを付け加えればいいのでしょうか?
初心者なもので質問が的を得ていないのかもしれませんが、どなたかご教授頂ける方、よろしくお願いします。

このQ&Aに関連する最新のQ&A

A 回答 (2件)

単票フォームの場合ですが


各フィールドの更新後イベントで
フィールド名.OldValueプロパティで変更前の値を取得できます。これと現在の値を比較して異なっていればフィールド名.BackColorで背景色を変更するっていうのはどうでしょう?

帳票フォームの場合は使えませんが。
    • good
    • 0
この回答へのお礼

ありがとうございました。
早速チャレンジしてみます。

お礼日時:2001/02/23 09:31

これは、レコードの更新日時のほかに、各フィールドことに更新日時を保存するしかないでしょうね。



各フィールドの更新後処理に、
sub ほげ_Afterupdate()
 me![ほげ更新日時] = now()
end sub
みたいなコードを書いてやって、これが指定日以降のものだけを色換えするように条件付書式を設定してやると。

それ以外の方法としては、フォームのAfterUpdate時に、#1,CHOROLYNさん方法で更新されたフィールドを特定して、更新ログのようなものを作成するとか。

ちなみに、前者は作成するのが簡単ですが、柔軟性に欠けます。後者は、作るのにそれなりの労力を必要としますが、より詳しい変更履歴を得ることが出来ます。
    • good
    • 0
この回答へのお礼

回答ありがとうございました。
どちらの方法をとるかもう少し検討してみます。

お礼日時:2001/02/26 11:25

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Qビデオカードのドライバの更新(SiS740)

PCに全く詳しくないため
どなたかご教授いただけるとうれしいです

今SiS740のPCを使っているのですが
これでは十分に対応できない状況になりまして
ビデオカードのドライバを更新したいと思い
SiSの公式ホームページに行きましたところ
どれをDLしていいのかさっぱりわかりません;;

すいません;;
教えてください;;

Aベストアンサー

http://download.sis.com/

IGP Graphics Driver⇒SiS650&SiS740 seriesと開いてOSを選んでGOを
押せばダウンロードできますよ。

参考URL:http://download.sis.com/

QACCESSで条件によってフォーム上のフィールドの色を変更

一覧形式のフォームがあり、条件によって色を変更したいのですが、その条件というのが下記のような感じです。

フィールドA | フィールドB | フィールドC | チェックボックス
チェックボックスのチェックがあったら、フィールドA・B・Cの色をグレーにする。
チェックがなかったら白いまま。

というものです。
条件付書式だと、色を変更するフィールドそのもののデータを参照にしないといけないんですよね?
フォームオープンのところにVBAをかいてみたんですが、ひとつひとつは認識してないみたいで…。
どのようにすればいいのでしょうか?

よろしくお願いします。

Aベストアンサー

フォームのデザイン画面で3つのフィールドすべて選択し条件付書式画面を表示させる。
条件1のコンボで”式”を選択。
右側の欄に[チェックボックスのコントロール名]=True
と入力し、バケツアイコンでグレーを選択。
(もちろん1フィールドづつ設定してもOK)

QSiS 630チップセットのドライバの更新??

はじめまして
とあるゲームを購入したのですが、起動されないので
サポートセンターに問い合わせたのですが以下の
ような返信が送られてきました

ご利用されているビデオカード(SiS 630チップセット内蔵)のドライバが2001年12月に
作成されたものとなっております。ドライバの更新により、改善が見受けられないかをご
確認いただけますでしょうか。
新しいドライバはパソコンのメーカーにて提供されている場合がございます。ドライバの
更新方法につきましては、パソコンのメーカー様にご相談ください。


どういうことでしょうか??PC初心者のため
よく分からないです、詳しい方がいらっしゃれば
是非とも解決法を教えて下さい
宜しくお願いします

Aベストアンサー

No.3です。補足ありがとうございます。

SOTEC WL2130について、Google検索で仕様を調べてみたところ、グラフィック関係については

>グラフィックシステム:SiS 630ST チップセット内蔵
>ビデオメモリ:システムメモリより割り当て(8MB)

とありました。これはAge Of Empires Gold Editionの必須動作環境である

>グラフィック→ビデオRAM16MB以上

の条件を満たしていません。残念ですが、お使いのPCでこのゲームは動作しません。ノートPCですので、ビデオチップの交換やビデオメモリの増設は不可能です。


従って、ご質問の「Age Of Empires Gold Editionを動かすための解決方法」の唯一の回答は、

   PCの買い替え

ということになります。


余談ですが、

エラーメッセージ「グラフィックシステムを初期化できません」をキーワードにGoogleで検索したら、先頭に次の記事がヒットしました。
【[AOE] エラー メッセージ : グラフィック システムを初期化できませんでした】
http://support.microsoft.com/kb/179920/JA/

上記手順を試してみれば、もしかすると改善されるかもしれません。ただ、そもそも最低動作条件を満たしていないので、改善される可能性は限りなくゼロに近いのですが、駄目もとで試してみてはいかがでしょうか?

No.3です。補足ありがとうございます。

SOTEC WL2130について、Google検索で仕様を調べてみたところ、グラフィック関係については

>グラフィックシステム:SiS 630ST チップセット内蔵
>ビデオメモリ:システムメモリより割り当て(8MB)

とありました。これはAge Of Empires Gold Editionの必須動作環境である

>グラフィック→ビデオRAM16MB以上

の条件を満たしていません。残念ですが、お使いのPCでこのゲームは動作しません。ノートPCですので、ビデオチップの交換やビデオメモリの増設は...続きを読む

Q一部の文字で抽出したファイル名で更新日時を表示するVBA

一部の文字でファイルを開く方法を先日質問させていただきました。

今回質問したいのは、その一部の文字で抽出したファイルの更新日時を表示させたいのです。
一部の文字でヒットしたファイル名を更新日時を調べるVBAの式に割り当てたいのですが、どのように式を立てたら良いかわかりません。わかる方教えてください。

Aベストアンサー

Sub openTargetFile()
  Const findPath As String = "C:\Users\英明\Desktop\陽平\"
  Const findName As String = "配置表(入力用)*11月*"

  Dim getName As String
  Dim objFso As Object
  Dim strLastTime As String
  Dim lngSave As Long
  Set objFso = CreateObject("Scripting.FileSystemObject")
  getName = Dir(findPath & findName)

  Do While getName <> ""
    strLastTime = objFso.GetFile(findPath & getName).DateLastModified
    lngSave = MsgBox(getName & " の更新時刻は " & strLastTime & " です。" _
      & vbNewLine & vbNewLine & getName & " を開きますか?", vbYesNo + vbInformation, "更新時刻")
    If lngSave = vbYes Then
      Workbooks.Open findPath & getName
    Else
      MsgBox "終了します。", vbExclamation, "更新時刻"
      Exit Sub
    End If
    getName = Dir()
  Loop
End Sub

こんな感じでどうでしょうか?

Sub openTargetFile()
  Const findPath As String = "C:\Users\英明\Desktop\陽平\"
  Const findName As String = "配置表(入力用)*11月*"

  Dim getName As String
  Dim objFso As Object
  Dim strLastTime As String
  Dim lngSave As Long
  Set objFso = CreateObject("Scripting.FileSystemObject")
  getName = Dir(findPath & findName)

  Do While getName <> ""
    strLastTime = objFso.GetFile(findPath & getName).DateLastModified
    lngSave = MsgBox(getName &...続きを読む

Qビデオカードの更新

SiS740が搭載されているパソコンを利用していますが、SiS740の更新の方法がわかりません。
どこを探してもありません;;わかる方がいましたら教えてください。

Aベストアンサー

>SiS740の更新

もしかして3Dゲームのプレイがしたいんじゃないですか?だとしたら更新しても意味がありません。ゲームが動作しない場合に出たり動作が遅い場合に出る「更新して下さい」というのは性能が足りないという意味です。これはグラフィックボードの増設でしか改善出来ません。

状況を改善したい場合はパソコンの型番や現在出ている症状などを補足して下さい。

QAccessのOLEオブジェクトのファイル名/更新日時をフォームに表示

よろしくお願い致します。
AccessのOLEオブジェクト(画像ファイル等)を、アイコンでフォームに表示させているのですが、同時にファイル名とそのファイルの作成/更新日時を表示させたく思うのですが、可能でしょうか?
基本的な質問で申し訳ありません。
不足している情報がありましたら御質問ください。
よろしくお願い致します。

Aベストアンサー

Label1・2・3をフォームに用意してLabelに表示させるようにするには
参照設定でMicrosoftScriptingRuntime の参照にチェックが必要。
下記でできるはずなのですが

Dim Ocn   As New FileSystemObject
Dim OcnFile As File
      Set OcnFile = Ocn.GetFile(フルパス\ファイル名.拡張子")
      Label1.Caption = "ファイル名:" &OcnFile.Name
      Label2.Caption = "作成日時:" & OcnFile.DateCreated
      Label3.Caption = "最終更新日時:" & OcnFile.DateLastModified
  Set OcnFile = Nothing

QSiS651を最新のverにしたのですが、動作が遅くなった?

windows XPです 
SiS 651 Rev 00を更新したのですが、英語のーページなので本当に出来たのか自信がありません・・・
少し動作が遅くなったような気がします。

http://www.sis.comのdownloadからXPのIGP Graphics DriversでSiS650 & SiS740 seriesを選んで
SiS UniVGA2 Graphic Driver for Win2000/XP
File Name 650_222_win2kxp.zip

をDLしてインストールしました。間違っているでしょうか?

Aベストアンサー

それは3年前の古いドライバです。
最新はSiS UniVGA3 graphics driver v3.80です。
http://www.sis.com/download/download_step1.php?id=155938

Qサブフォームのフィールドの幅を変更したい。

アクセス2003です。

画像の様に、コマンドボタンを押したら
サブフォームの列(フィールド)の幅を変更することは可能ですか?

エクセルvbaで例えたら
Columns("A:A").ColumnWidth = 30
から
Columns("A:A").ColumnWidth = 10
へしたいです。

ご教授よろしくお願い致します。

Aベストアンサー

Me.サブフォームコントロール名![出金].ColumnWidth = 1000
とか。

Access2003 ということなら
Me.サブフォームコントロール名![出金].ColumnWidth = -2
もありかも。

詳細は VBE のヘルプで「ColumnWidth」プロパティを調べてください。

Qビデオカードの更新の利点?

いつもお世話になります。
今始めたいMMORPGがあるのですが、画面が真っ黒になったりと不具合?が出ます。
過去ログを検索したら、画像関係ならビデオカード(ドライバ?)の更新をするといい、というような結論に(私の中で)達したのですが、ビデオカードの更新をすることによって、どのような利点があるのでしょうか?
と言いますか、むやみに更新しても大丈夫でしょうか。かえって状況が悪くなるというようなこともあるのでしょうか?
実はもう一度更新を試みていて、理由は不明ですが失敗しました。
http://okweb.jp/kotaeru.php3?q=1114634
↑の質問を参考にして、No.2さんの回答のアドレスからダウンロードをしようとしたら、アクセス許可がない~って英語のページが出てきました。
チップの種類:SiS 740 Rev 00
OS:Windows XP
SiS740の更新は今はもう出来ないのでしょうか?

・ビデオカード更新の利点
・SiS740の更新の可否
上記二点の質問に対する回答・アドバイスを、どうぞ宜しくお願いします。


また、あまり理解出来ていないので、何かおかしいことを書いていたらご指摘いただけると有難いです。

いつもお世話になります。
今始めたいMMORPGがあるのですが、画面が真っ黒になったりと不具合?が出ます。
過去ログを検索したら、画像関係ならビデオカード(ドライバ?)の更新をするといい、というような結論に(私の中で)達したのですが、ビデオカードの更新をすることによって、どのような利点があるのでしょうか?
と言いますか、むやみに更新しても大丈夫でしょうか。かえって状況が悪くなるというようなこともあるのでしょうか?
実はもう一度更新を試みていて、理由は不明ですが失敗しました。
h...続きを読む

Aベストアンサー

利点
・ゲーム等に対応する可能性がある
・速度が上がる場合がある
・バグ潰しがある

欠点
・バグ潰しが新たなバグになっている場合がある
・ユーティリティ等との相性が出る場合がある

以前自分もSiSのビデオカードで、ゲームを起動すると画面が真っ黒になる不都合があり、結局原因不明のままでした。
その後同じPC構成で、VGAカードのみRadeon9200に取り替えると何事もなくプレイ出来ましたので、ゲームとVGAカードの相性が悪かったのだ思います。

QOutLook Express でテキストファイルを送った時の、更新日時や、作成日時

WindowsXPを使っています。
フォルダの中にテキストを数個入れたものを、Lhacaで圧縮し、OutLook Expressを使って、添付ファイルで、知人に何度か送っています。

その場合、知人は、私がそのテキストを作成した時の、更新日時や作成日時は、分かるものでしょうか?
知人が添付ファイルを開いた時、私がテキストを作った時間が、そのまま掲載(?)されていますか?
それとも、OutLook Expressを送信した時間に変わっていて、その時間が、テキストの更新日時や作成日時として、掲載されているのでしょうか?

Aベストアンサー

OEには知人の方が受信された受信日時
それとは別に添付ファイルには
ご質問者様が圧縮した時の圧縮日時
ご質問者様がテキストファイルを作成した作成日時と更新日時
(最終保存日時)
が、それぞれ別に各々のプロパティにのっているのではないかと思います。
OSがXPであれば、プロパティという名称?も存在しますし。
(※ ロックをかけている等特殊の際は不明...)


このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング

おすすめ情報