質問: date else end if end sub
回答: こんな感じですかね ※テキスト書きなので試していません private m_見積書番号 as variant private sub 見積書番号_gotfocus() m_見積書番号 = nz([見積書番号], vbnullstring) end sub private sub 見積書番号_afterupdate() if not isnull([見積書番号]) then if isnull([見積書作成日]) then [見積書作成日] = date else if nz([見積書番号], vbnullstring) <> m_見積書番号 then [見積書作成日] = date end if end if end if end sub あと便利な機能として、 「見積書作成日」のプロパティ→「データ」→「規定値」 規定値プロパティに「=date()」と設定すると今日の日付がデフォルト表示されます