フォームの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フィールドに設定されているファイル名を元にエクセル等の文書が表示されるように

なっています。

通常は、ビュー上で文書をダブルクリックするとエクセル等の文書が立ち上がるのですが、ユーザーの

中に、ビュー上で文書をシングルクリックしただけで、エクセル等の文書が開いてしまう人がいます。

これを解消して通常通りダブルクリックで文書が開くように戻したいのですが、方法がわかりません。

解決策のヒントでもあれば教えてください。

よろしくお願い致します。