フォームのqueryOpenイベントに以下の式を設定しています。
Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
Dim doc As NotesDocument
Set doc = Source.Document
cmd = Environ("comspec")
wk = Shell(cmd & " /c Call """ & doc.docpath(0) & "\" & doc.docName(0) & """")
wk = Shell(cmd & " /c Exit ")
Continue=False
End Sub
ビュー上でこのフォームで作った文書をダブルクリックすると、docpathフィールドに設定されている
パス+docNameフィールドに設定されているファイル名を元にエクセル等の文書が表示されるように
なっています。
通常は、ビュー上で文書をダブルクリックするとエクセル等の文書が立ち上がるのですが、ユーザーの
中に、ビュー上で文書をシングルクリックしただけで、エクセル等の文書が開いてしまう人がいます。
これを解消して通常通りダブルクリックで文書が開くように戻したいのですが、方法がわかりません。
解決策のヒントでもあれば教えてください。
よろしくお願い致します。