フォーム内に「出荷」というYes/No型のチェックボックスと「出荷日」というテキストボックスのフィールドがあります。
レコードも複数あります。
以下のコードでチェックボックスにチェックが入ると「出荷日」に当日の日付が入力されます。
Private Sub 出荷_AfterUpdate()
If Me.出荷 Then
Me.出荷日 = Format(Now(), "yyyy/mm/dd")
Else
Me.出荷日 = ""
End If
End Sub
このチェックに全選択の機能も持たせたくボタンを増設しました。
Private Sub 全選択_Click()
Dim rs As DAO.Recordset
If Me.Dirty Then DoCmd.RunCommand acCmdSaveRecord
Set rs = Me.Recordset.Clone
Do Until rs.EOF
rs.Edit
rs!出荷 = True
rs.Update
rs.MoveNext
Loop
Me.Refresh
End Sub
「出荷」の全チェックはうまくいきましたが、「出荷日」に日付が入力されません。
どうすれば良いかわからずご質問させていただきました。
お詳しい方宜しくお願いいたします。
No.1ベストアンサー
- 回答日時:
イベントの発生を元にして他のイベント発生を期待すると
時として今回の様な罠に嵌まります
もう忘れちゃいましたけど
イベント->イベントには、条件があって全て人が操作したようには反応しないイベントも少なくありません
で、今回の場合は先に準備したイベントを使う必然性はないですよね?
出荷がチェック済である事は自明なので
対応する項目の出荷日に今日の日付を設定するだけで目的を達成出来るはずです
この方が処理はシンプルになって動きが軽くなるはずです
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Access(アクセス) DoCmd.SearchForRecord が動かない時の解決方法 3 2022/07/22 15:31
- Access(アクセス) docmd.gotorecordを起動するには 5 2022/06/17 15:20
- Visual Basic(VBA) データベースから絞り込んでデータを読み込み 1 2023/02/21 19:51
- Visual Basic(VBA) ①ExcelVBAでカレンダーを作り、別のユザーフォームで日付を入力したいのですがエラーになります。 1 2023/02/17 18:39
- Visual Basic(VBA) access count数を変数に格納 2 2022/03/30 19:21
- Visual Basic(VBA) Accessフォームで全レコードを指定のExcelのセルへ転送し印刷する方法について 2 2022/09/08 18:23
- Access(アクセス) Accessのテキストボックスの入力文字制限 1 2023/01/18 20:43
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Visual Basic(VBA) エクセルのマクロについて教えてください。 3 2023/07/07 08:37
- Access(アクセス) 実行時エラー3131 FROM 句の構文エラーです について 7 2022/06/13 15:45
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
ACCESSでフォームのチェックボックスにチェックを入れて任意の数値を入力したい!!!
Access(アクセス)
-
ACCESSでテーブルにあるチェックボックスを一括でYesにする方法を教えてください
Access(アクセス)
-
ACCESSでテーブルのチェックをまとめて外すには?
Access(アクセス)
-
-
4
Access サブフォームでの選択行の取得
その他(データベース)
-
5
Access チェックボックスでチェックしたデータのみフォームで表示
Access(アクセス)
-
6
yes/no型のチェックができない(アクセス2003)
Access(アクセス)
-
7
レコードを保存するコード アクセスvba
その他(Microsoft Office)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
10月をもって辞めるって、10...
-
確認ですが普通5月までに決める...
-
自治会の通常総会の年度について
-
総会の年度表記について
-
カレンダーの日付 5/Bの意味に...
-
「6月まで」というのは6月以内...
-
8月までっていつまでのことでし...
-
月の最後の週の呼び名は?
-
ゴールデンウィークが大嫌いな...
-
「おじろく」は長男が死んだら...
-
満何歳の意味
-
エクセルのフィルターを複数シ...
-
○月第○週 の数え方について
-
昔の愛称?「~の字」
-
今は何年度ですか?
-
入社が2月1日とした場合、3ヶ月...
-
一ヶ月前、一ヶ月後
-
○年後の3月末日を関数で出したい
-
『無線LANが切れる時、何かイベ...
-
きょうだいは誕生月が近いの法...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
自治会の通常総会の年度について
-
総会の年度表記について
-
満何歳の意味
-
ひな祭りに外食するならどこで...
-
月の最後の週の呼び名は?
-
確認ですが普通5月までに決める...
-
10月をもって辞めるって、10...
-
カレンダーの日付 5/Bの意味に...
-
「6月まで」というのは6月以内...
-
学校の在籍機関
-
8月までっていつまでのことでし...
-
エクセルのフィルターを複数シ...
-
入社が2月1日とした場合、3ヶ月...
-
昔の愛称?「~の字」
-
「1年以上」の定義について
-
一ヶ月前、一ヶ月後
-
卒業式に着る袴をお店でレンタ...
-
○年後の3月末日を関数で出したい
-
「陽気」という言葉の使い方
-
VBA ユーザーフォームのChange...
おすすめ情報