Access (VBA)

Access VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(Windows 10 Home : 指定なし)
月の最初の日及び最後の日を表示です
投稿日時: 21/03/04 13:00:19
投稿者: miyama2305

access2019
 
フオーム(F集計_工事台帳集計)にコンボボックスとテキストボックスを配置しています
cbo日付、cbo日付1 以上がコンボボックス
cbo日付、を説明します。cbo日付1も同じ設定です。
値集合ソースで表示します。
値集合ソースはQ年月(クエリ)です。列数は3、列幅は0cm;;0cm 
フイールドは以下です
年月/nengetu/Gnengetu
202101/2021年01月/令和3年01月
202102/2021年02月/令和3年02月
202103/2021年03月/令和3年03月
12月迄表示しています
cbo日付にはnengetuのフイールドを表示しています。
表示したい年月を選択します。
 
テキストボックス名、期首日、期末日を配置。
ここに、たとえば、cbo日付から2021年01月を選択したら
期首日に2021/01/01と表示したいのです。
又、cbo日付1から2021年01月を選択したら
期末日に2021/01/31と表示したいのです。
期首日には、月の最初の日
期末日には、月の最語の日
を表示したいのです。
ご指導おねがいします。
 
 
 
 
 
 
 

回答
投稿日時: 21/03/04 13:22:21
投稿者: sk

引用:
cbo日付、cbo日付1 以上がコンボボックス

引用:
値集合ソースはQ年月(クエリ)です。列数は3、列幅は0cm;;0cm

[cbo日付]および[cbo日付1]の[連結列]プロパティは 1 でしょうか。
 
引用:
フイールドは以下です
年月/nengetu/Gnengetu
202101/2021年01月/令和3年01月
202102/2021年02月/令和3年02月
202103/2021年03月/令和3年03月

引用:
テキストボックス名、期首日、期末日を配置。
ここに、たとえば、cbo日付から2021年01月を選択したら
期首日に2021/01/01と表示したいのです。

=IIf(IsNull([cbo日付]),Null,Format([cbo日付],"0000/00") & "/01")
 
引用:
又、cbo日付1から2021年01月を選択したら
期末日に2021/01/31と表示したいのです。

=IIf(IsNull([cbo日付1]),Null,Format(DateAdd("m",1,Format([cbo日付1],"0000/00"))-1,"yyyy/mm/dd"))
 
--------------------------------------------------------------
 
とりあえず、各テキストボックスの[コントロールソース]プロパティに
以上のような式を設定なさればよろしいのではないかと。

投稿日時: 21/03/04 14:10:09
投稿者: miyama2305

sk様
 
ありがとうございます
感謝申し上げます。