こんにちは。 どきどきのスクリプト練習中に こんなエラーが出てしまいました。 市販書籍のスクリプト記述例をまねてみたのですが、上のようなエラーで保存が出来ません。 「定義」は"ＴＥＬ（フィールド）" で、 「イベント」は"Exiting"です。 スクリプトは下の内容を書いているのですが、そのうち ６行目と７行目のエラーが "Unexpected:"";Expected.End-of-statement;演算子" 10行目のエラーは "ｶｯｺの使い方が不正です" となっています。 ブランク " " や、カッコ ( )の前後にはスペースはダメ、などの制限があるのでしょうか？ 書籍の通りには書いているつもりなのですが、間違いなどあったらご指摘下さるとありがたいです。 -----記述した式----- Sub Exiting(Source As Field) Dim ws As New NotesUIWorkspace Dim uidoc As NotesUIDocument Set uidoc = ws.CurrentDocument tel = uidoc.FieldGetText("TEL") If tel = "" Then While tel = "" tel = Inputbox("電話番号を入力してください") Wend Call uidoc.FieldSetText("TEL",tel) End If End Sub