ACCESS コンボボックス 日付入力VBA

質問

win10 office365
access365におきまして
フォーム　Fを開いて
そのなかの非連結テキストが　コンボボックスになっており
そのコンボボックス名をcombo としますとき

そこに規定の文字列
これは　そのコンボボックスの選択文字列として
あるもので
たとえば、あかさ
この文字列は
コンボボックスを開くと
第１列に表示されます
一番左側です
を入れたいとき
Sub Sample()

DoCmd.OpenForm "F", acNormal

Form![F]!combo = "あかさ"

end sub

フォームFは当然開くのですが
非連結コンボボックス　comboは
空白のままです

Form![F]!combo = "あかさ"
ここの部分を
Form![F]!combo.column(0) = "あかさ"

または

Form![F]!combo.column(1) = "あかさ"
としても
同様の結果となります
②
もうひとつすみませんが
テキストボックス　コメントテキストに
本日の日付で
４月１７日であれば
0417
と入れたいので
Forms![F]![コメントテキスト]
= Format(Now, mmdd)
としますと
2024/04/17 13:02:59
と出てしまいます
できるものなら
全角で
０４１７
と打ち出したいのですが、、

重ねて　恐縮ですが
御教示宜しくお願い致します

回答No.1

kkkkkm · ベストアンサー

> Form![F]!combo = "あかさ"

Formの最後の「s」がありません

Forms![F]!combo = "あかさ"

Formatの書式は「"」で囲んでください。
日付だけでしたらDateでもでいけます。
全化に変換はStrConvを使います。

Forms![F]!コメントテキスト = StrConv(Format(Date, "mmdd"), vbWide)

お礼

またｓの付け忘れのご指摘すみません Forms![F]!コメントテキスト = StrConv(Format(Date, "mmdd"), vbWide) うまく行きました 有り難うございました。

Powered by GRATICA