アクセス フォームの非連結テキストに入力VBA

質問

win10 office365
access365におきまして
フォーム　Fを開いて
そのなかの非連結テキスト　textが
あるとしまして
そこに規定の文字列
たとえば、あいう
を入れたいとき
Sub Sample()
Dim cn As ADODB.Connection

Set cn = CurrentProject.Connection

DoCmd.OpenForm "F", acNormal

Form![F]!text1 = "あいう"

end sub

フォームFは当然開くのですが
非連結のテキスト　textは
空白のままです
ちなみに
通常の使い方は
このテキスト　text1の空欄に
カーソルを合わせて
文字を打ち込んで行き
最後は　既製の保存ボタンをクリックすることにより
別テーブルに非連結テキストに入力した値を保存する流れになりますが、
この非連結テキストが複数ありまして
テンプレートを作りたいので
上記のようなコードを
考えました
すみませんが
不足しているポイントの
御教示宜しくお願い致します

回答No.1

kkkkkm · ベストアンサー

Form![F]!text1 = "あいう"
で
Formの最後のsが抜けています。

Dim cn As ADODB.Connection
Set cn = CurrentProject.Connection

の2行は無くても

DoCmd.OpenForm "F", acNormal
Forms![F]!text1 = "あいう"

だけでいけると思います。

もし駄目な場合
以下のどちらかを試してみてください。

Forms![F].Refresh
もしくは
Forms![F].Requery

状況によっては上記が無いと再表示してくれないときがありますから今回なくてよくても必要な時があると覚えておいて損は無いと思います。

お礼

formsのsの指摘、有り難うございました。requery freshも　使ってみて　うまく出来ました。有り難うございました。

Powered by GRATICA