Q084. 文字が記入された項目のみをVerifierで必ず確認させる方法はありますか。｜FAX/スキャナー対応OCRソフト『TeleForm』

TeleForm Ver.8 以前のユーザー様向け FAQ

［ BasicScript｜Verifier ］

Q084. 文字が記入された項目のみをVerifierで必ず確認させる方法はありますか。

バージョン	5、6、7、8	タイプ	すべて	最終更新日	2005年06月02日

---

BasicScriptを活用することにより、実現可能です。

---

■フォーム上に1つ1つ作成しているデータ入力フィールドの場合 次の①～④のデータ入力フィールドに記入があった場合に必ず確認させたい場合には、以下のようなスクリプトを組み込みます。 ① 事業所コード：Jigyousho ② 営業担当コード：Eigyou ③ 販売店コード：Hanbaiten ④ 代理店コード：Dairiten ≪Scriptのサンプル≫ Sub Form_Evaluate 　　　 Dim field(5) As String 　　　 field(1) = "Jigyousho" 　　　 field(2) = "Eigyou" 　　　 field(3) = "Hanbaiten" 　　　 field(4) = "Dairiten" 　　　 Dim i As Integer 　　　 　　　For i = 1 to 4 　　　 　　　　If Fields(field(i)).Text <> "" then 　　　 　　　　　Fields(field(i)).Status = 64 　　　 　　　　End If 　　　 　　　Next i End Sub ※ご注意※ 弊社では、スクリプトのサポートは行っておりません。 上記のスクリプトはあくまでもサンプルです。 お客様の責任範囲でご活用いただきますようお願い致します。 なお、上記サンプルに関してのサポートもお受け致しかねますので、あらかじめご了承下さい。

■詳細グループ内のデータ入力フィールドの場合 ① 詳細グループ（Detail）内の「注文数（Suryou）」フィールドに記入があった場合に必ず確認させたい場合には、以下のようなスクリプトを組み込みます。 ≪Scriptのサンプル≫ Sub Form_Evaluate 　 Dim i As Integer 　 　For i = 0 to Detail.Count-1 　 　　If Detail(i). Suryou.Text <> "" then 　 　　　Detail(i). Suryou.Status = 64 　 　　End If 　 　Next I End Sub ※ご注意※ 弊社では、スクリプトのサポートは行っておりません。 上記のスクリプトはあくまでもサンプルです。 お客様の責任範囲でご活用いただきますようお願い致します。 なお、上記サンプルに関してのサポートもお受け致しかねますので、あらかじめご了承下さい。

② 詳細グループ（Detail）内のすべてのデータ入力フィールドに記入があった場合に必ず確認させたい場合には、以下のようなスクリプトを組み込みます。 ≪Scriptのサンプル≫ Sub Form_Evaluate 　 Dim i As Integer 　　Dim j As Integer 　　　　For i = 0 to Detail.Count-1 　　　　　For j = 0 to Detail(i).Fields.Count-1 　　　　　　If Detail(i).Fields(j).Text <> "" then 　　　　　　　Detail(i).Fields(j).Status = 64 　　　　　　End If 　　　　　Next j 　　　　Next I End Sub ※ご注意※ 弊社では、スクリプトのサポートは行っておりません。 上記のスクリプトはあくまでもサンプルです。 お客様の責任範囲でご活用いただきますようお願い致します。 なお、上記サンプルに関してのサポートもお受け致しかねますので、あらかじめご了承下さい。

ページ先頭へ