作成者	カテゴリ	返答の対象		公開
はやて 03/09/2007 05:27 PM		「I010 PROPERTY の使い方が不正です」エラーがでてしまいます。

変数の宣言などに特に問題がないのでしたら

＞今現在、Back-Endクラスで処理を行っているのですが、
＞Inputbox?や、PickListStringsは、Front-Endクラスなので、
＞理解できないよう。と言っているのかと。。。

と、書かれてるのですが、どこでこの処理を行なっているのでしょうか？
UIWorkspaceが使えないような箇所でやってるのでしたらNGかと思います。
それにも該当しなければ、特に問題が他にはないように思うのですが…

エラーは本当に言われてる箇所なんですか？
なんとなくErr_Labelの中の処理が怪しいと思えるのですが？
試しに他の処理を省いたシンプルなスクリプトを作ってInputBoxなどを確認してみては如何でしょう？Err_Labelの中はMessageBoxのみとかにして。

以下は当方でフォーム内のボタンに記入して問題ないことを確認しました。
Sub Click(Source As Button)
Dim picklist As Variant
Dim strnum As String
Dim num As Integer
Dim ws As New NotesUIWorkspace
Dim session As New NotesSession
Dim db As NotesDatabase

Set db = session.CurrentDatabase

strnum = Inputbox$("分冊最終番号を入力してください" & Chr(13) & "例）入力値が分冊番号に該当します","分冊文書を作成します。")

If strnum = "" Then
Goto Err_Label
Else
num% = Cint(strnum)
End If
picklist = ws.PickListStrings( PICKLIST_CUSTOM, False, db.Server, db.FilePath, "WkRole3", "ロールの選択1", "ロールの選択", 1)
If Isempty(picklist) Then Goto Err_Label
Exit Sub
Err_Label:
Messagebox "Error"
Sub Click(Source As Button)