Access VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1740 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【5494】更新日時のＳＥＴ方法 ｐｉｎｅｔｒｅｅ 05/6/23(木) 17:09 質問[未読]
【5496】Re:更新日時のＳＥＴ方法 小僧 05/6/23(木) 17:33 発言[未読]
【5505】Re:更新日時のＳＥＴ方法 ｐｉｎｅｔｒｅｅ 05/6/24(金) 13:30 質問[未読]
【5509】Re:更新日時のＳＥＴ方法 小僧 05/6/24(金) 21:26 発言[未読]
【5513】Re:更新日時のＳＥＴ方法 ｐｉｎｅtree 05/6/25(土) 10:50 質問[未読]
【5517】Re:更新日時のＳＥＴ方法 小僧 05/6/26(日) 9:25 回答[未読]
【5532】Re:更新日時のＳＥＴ方法 ｐｉｎｅｔｒｅｅ 05/6/27(月) 10:30 お礼[未読]
【5494】更新日時のＳＥＴ方法
質問  ｐｉｎｅｔｒｅｅ  - 05/6/23(木) 17:09 -
引用なし
パスワード
   レコードの中のいずれかのフィールドに変更があった場合、
同じレコードの中にある更新日時のフィールドをマシンデートで置き換えたい
のですが、どのような方法がありますかご教示ください。
ねらいはレコード単位で最終更新日はいつかを知りたいためです。
【5496】Re:更新日時のＳＥＴ方法
発言  小僧  - 05/6/23(木) 17:33 -
引用なし
パスワード
   ▼ｐｉｎｅｔｒｅｅ さん：
こんにちは。

>レコードの中のいずれかのフィールドに変更があった場合、

レコードを更新するにも色々方法がありますよね。

A) 連結フォームの値を変える
B) SQL（クエリ）を発行
C) VBAでADOやDAOで操作
D) 直接テーブルを開いて値を代入

D) 以外であれば、各々の処理の際に更新日時フィールドに
値を格納する事は可能だと思います。
【5505】Re:更新日時のＳＥＴ方法
質問  ｐｉｎｅｔｒｅｅ  - 05/6/24(金) 13:30 -
引用なし
パスワード
   ▼小僧 さん：
>▼ｐｉｎｅｔｒｅｅ さん：
>こんにちは。
>
>>レコードの中のいずれかのフィールドに変更があった場合、
>
>レコードを更新するにも色々方法がありますよね。
>
>A) 連結フォームの値を変える
>B) SQL（クエリ）を発行
>C) VBAでADOやDAOで操作
>D) 直接テーブルを開いて値を代入
>
>D) 以外であれば、各々の処理の際に更新日時フィールドに
>値を格納する事は可能だと思います。

早速ご教示いただきありがとうございました。
厚かましいお願いで恐縮ですが、
サンプル事例等があれば、ご紹介いただけないでしょうか
【5509】Re:更新日時のＳＥＴ方法
発言  小僧  - 05/6/24(金) 21:26 -
引用なし
パスワード
   ▼ｐｉｎｅｔｒｅｅ さん：
こんばんは。

>厚かましいお願いで恐縮ですが、
>サンプル事例等があれば、ご紹介いただけないでしょうか

サンプル事例がｐｉｎｅｔｒｅｅ さんのお役に立てれば全然構わないのですが、
ご提示された内容ですと漠然としていて、サンプルも提示しづらいです。

ちょっとしたテーブルやフォームの例と、
どのようなタイミングでレコードを更新したいのか
（コマンドボタンを押した時、コンボボックスの値を変えたとき等）
ご提示がありますと、回答が付けやすくなるかと思われます。
【5513】Re:更新日時のＳＥＴ方法
質問  ｐｉｎｅtree  - 05/6/25(土) 10:50 -
引用なし
パスワード
   ▼小僧 さん：
>▼ｐｉｎｅｔｒｅｅ さん：
>こんばんは。
>
>>厚かましいお願いで恐縮ですが、
>>サンプル事例等があれば、ご紹介いただけないでしょうか
>
>サンプル事例がｐｉｎｅｔｒｅｅ さんのお役に立てれば全然構わないのですが、
>ご提示された内容ですと漠然としていて、サンプルも提示しづらいです。
>
>ちょっとしたテーブルやフォームの例と、
>どのようなタイミングでレコードを更新したいのか
>（コマンドボタンを押した時、コンボボックスの値を変えたとき等）
>ご提示がありますと、回答が付けやすくなるかと思われます。

例えば
会社テーブルに
1.会社番号
2.会社名
3.代表者名
4.住所
5.TEL
6.最終更新日時
のような項目があり

会社テーブルに対応した
会社フォームがあるとします。
フォームの中で上記1〜5の項目のいずれかに変更が
あった場合次のレコードに移る時に
6.最終更新日時の項目がマシンデートに更新される
というようなイメージです。
【5517】Re:更新日時のＳＥＴ方法
回答  小僧  - 05/6/26(日) 9:25 -
引用なし
パスワード
   ▼ｐｉｎｅtree さん：
おはようございます。

>会社テーブルに対応した
>会社フォームがあるとします。
>フォームの中で上記1〜5の項目のいずれかに変更が
>あった場合次のレコードに移る時に
>6.最終更新日時の項目がマシンデートに更新される
>というようなイメージです。

フォーム上に「最終更新履歴」があった場合は

>1.会社番号
>2.会社名
>3.代表者名
>4.住所
>5.TEL

各コントロール（テキストボックスやコンボボックスなど）の
更新後処理のコードビルダを選択して、

Private Sub 会社番号_AfterUpdate()
　　Call 最終更新
End Sub

Private Sub 住所_AfterUpdate()
　　Call 最終更新
End Sub

・
・
・


として、一番下に

Function 最終更新()
　　Me.最終更新日時.Value = Now()
End Function

と記述すると、各項目が更新された後には最終更新日時というコントロールに
現在の時間が入ると思います。
【5532】Re:更新日時のＳＥＴ方法
お礼  ｐｉｎｅｔｒｅｅ  - 05/6/27(月) 10:30 -
引用なし
パスワード
   ▼小僧 さん：
>▼ｐｉｎｅtree さん：
>おはようございます。
>
>>会社テーブルに対応した
>>会社フォームがあるとします。
>>フォームの中で上記1〜5の項目のいずれかに変更が
>>あった場合次のレコードに移る時に
>>6.最終更新日時の項目がマシンデートに更新される
>>というようなイメージです。
>
>フォーム上に「最終更新履歴」があった場合は
>
>>1.会社番号
>>2.会社名
>>3.代表者名
>>4.住所
>>5.TEL
>
>各コントロール（テキストボックスやコンボボックスなど）の
>更新後処理のコードビルダを選択して、
>
>Private Sub 会社番号_AfterUpdate()
>　　Call 最終更新
>End Sub
>
>Private Sub 住所_AfterUpdate()
>　　Call 最終更新
>End Sub
>
>・
>・
>・
>
>
>として、一番下に
>
>Function 最終更新()
>　　Me.最終更新日時.Value = Now()
>End Function
>
>と記述すると、各項目が更新された後には最終更新日時というコントロールに
>現在の時間が入ると思います。


早速実行してみました。
意図したとおりにうまくできました。
本当にありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1740 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
1078263
(SS)C-BOARD v3.8 is Free