LOTUS CONNECTOR

例:IsValueNull メソッド
次のスクリプトは、フィールドが入力されたときに実行され、結果セットの同じ名前の列が null の場合にメッセージを表示します。ボタンを含むフォームにはほかのスクリプトが含まれます。それらは、グローバル変数を宣言する、結果セットをロードする、および結果セットを処理するスクリプトです。グローバル宣言と Postopen スクリプトの一部を次に示します。

Uselsx "*LSXODBC"

Dim con As ODBCConnection
Dim qry As ODBCQuery
Dim result As ODBCResultSet

Sub Postopen(Source As Notesuidocument)
Set con = New ODBCConnection
Set qry = New ODBCQuery
Set result = New ODBCResultSet
Set qry.Connection = con
Set result.Query = qry
con.ConnectTo("ATDB")
qry.SQL = "SELECT * FROM STUDENTS ORDER BY LASTNAME"
result.Execute
...
End Sub

Sub Entering(Source As Field)
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = workspace.CurrentDocument
If result.IsValueNull(uidoc.CurrentField) Then
Messagebox "This field is null",, "Null field"
End If
End Sub

関連項目