よろしくお願いいたします。
データベースに格納されている文字列を、初めにMeフォームのテキストに取得します。
そのMeフォームのテキストの値を、フォーム1テキストに、ボタンで取り込むシステムを作りました。
Forms![フォーム1]![テキスト1] = Me![テキスト2]
上記の処理内容が17項目あります。
Meのテキストボックスの値をformsに反映させていくのですが、
その前に、値のチェック処理がしたいのです。
チェック処理は、17回するのでは無く、一気にできればと思っています。
実現したい内容は下記です。
①If Meに値が入っていたら
②●MeとFormsの形式は合っているか
→合っているならそのままMeの値をFormsに反映
③○Else
→Msg ”型が違います”
④If Meに値が入っていなければ
⑤●そのFormsの項目が入力必須項目であった場合
** →Msg ”入力してください”
⑥○Else
→その型の初期値を設定**
とういう処理をしたいのですが、このロジックをうまくコードに書き出せません。
どうか、ご教示いただけますでしょうか。
ちなみに、①のMeに値が入っているかどうかの処理は、フォームのプロパティ「タグ」に入力必須項目の意味としてRequiredという値を記入し、
下記コードを考えてみました。
併せてアドバイスいただければ幸いです。
For Each inputItem In Forms![フォーム1].Controls If inputItem.Tag = "Required" Then If IsNull(CtinputItemrl.Value) Then MsgBox "必須入力です", vbOKOnly inputItem.SetFocus Cancel = True Exit Sub End If End If
回答3件
あなたの回答
tips
プレビュー