質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.46%
Access

Accessはマイクロソフトによるリレーショナルデータベース管理システムです。オブジェクト指向のアプリケーション作成に対応しており、テーブルや編集をはじめ、クエリ生成、入力フォーム作成、レポート作成など一通りの機能を備えています。

Q&A

解決済

1回答

459閲覧

ACCESSのVBAに関して

退会済みユーザー

退会済みユーザー

総合スコア0

Access

Accessはマイクロソフトによるリレーショナルデータベース管理システムです。オブジェクト指向のアプリケーション作成に対応しており、テーブルや編集をはじめ、クエリ生成、入力フォーム作成、レポート作成など一通りの機能を備えています。

0グッド

0クリップ

投稿2021/04/13 16:58

画像のように開始ボタンを押したら、現在の時刻がはいるようにVBAを作成したのですが、
今の状態では全ての行に時間が反映されてしまいます。
選択行の部分だけ開始時刻が入る(編集できる)ようにしたいのですが、どのように修正すれば良いでしょうか?
Formatの部分を変える必要があると思うのですが・・・

イメージ説明

Private Sub 開始_Click() Me.tx_開始時刻.Value = Format(Now, "hh時mm分") End Sub

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

guest

回答1

0

ベストアンサー

テキストボックスが非連結(コントロールソースが未設定)の場合はそうなります。

レコードソースのテーブルのフィールドと連結(コントロールソースにフィールド名を設定)してください。
テーブルに開始時刻、終了時刻のフィールドがない場合は、追加してください。

フィールドのデータ型は「日付/時刻型」がいいでしょう。
その場合は、代入コードに Formatは不要です。(Formatすると文字列になってしまうので)

vba

1Private Sub 開始_Click() 2 Me.tx_開始時刻.Value = Now 3End Sub

そのうえでテキストボックスの書式プロパティに「hh時mm分」と設定すればいいでしょう。
ただし、この場合は、表示は時刻だけですか、日付部分も含まれていることに留意してください。

投稿2021/04/13 20:39

編集2021/04/13 20:47
hatena19

総合スコア33782

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

退会済みユーザー

退会済みユーザー

2021/04/14 02:10

ありがとうございありがとうございます。ご指摘いただいた通りに修正してみたところうまく行きました。 また、なぜ文字列になってしまうのか・・・というのも疑問だったのですが、【Format】にすると文字列になるという事も知れて本当に良かったです。
guest

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.46%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問