作成者	カテゴリ	返答の対象		公開
びぃ〜 02/28/2000 09:03 AM		承認ワークフローでフィールドを入力必須にしたい。

おはようございます。

Otaさんの方法だと、どこかでTrimをかけるだけでうまくいきそうですね。
単純にPostopenの一番最後に
Dim doc As notesdocument
Set doc = source.document
doc.Address = Trim(doc.Address(0))

というのを追加してはどうでしょうか？

申請ボタンの内容は、式で書く方法がよく分からないので、スクリプトで書きますが、
Sub Click(Source As Button)
Dim ws As New notesuiworkspace
Dim uidoc As notesuidocument
Set uidoc = ws.currentdocument

On Error Goto errorhandle
Call uidoc.save
Call uidoc.close
Exit Sub

errorhandle:
Exit Sub
End Sub

としてはどうでしょう。

QuerySaveの頭に
Sub Querysave(Source As Notesuidocument, Continue As Variant)
On Error Goto errorhandle
Call source.refresh
Exit Sub

errorhandle:
continue = False
Exit Sub
End Sub
と追加しておけばrefreshしたときにInputValidationの式が評価されるので、いちいちスクリプトでチェックする必要が無くなります。