足立です。 データが存在していますか？ もし、存在していないのであれば、今のプログラムでは動かないと思います。 このままでは動かないです。 隠しビューの別名とフィールド名が、多分、私が作ったプログラムのまま、使われているでしょう。あくまで、この名前は、架空のものであり、自分で、名前を設定してもらわないとこっちとしても困ります。 あと、このままでは、たぶん、エラーは消えないです。 下記のプログラムを試してみては。 Sub Entering(Source As Field) Dim su As Long Dim ws As New notesuiworkspace Dim uidoc As notesuidocument Dim sn As New notessession Dim db As notesdatabase Dim vw As notesview Dim dc As notesdocument Dim col As notesDocumentCollection Set uidoc = ws.currentdocument Set db = sn.currentdatabase Set vw = db.getview(隠しビュー) Set col = db.alldocuments If col.count > 0 Then Set dc = vw.getFirstdocument su = Clng(dc.フィールド名(0)) su = su + 1 Call uidoc.fieldsettext(フィールド名,Cstr(su)) Else Call uidoc.fieldsettext(フィード名,"01") End If End Sub