Ist da nicht ein kleiner Denkfehler ?? wenn ich mir das richtig überlege bekommt der R4 Client doch sowieso die Meldung, dass es sich um eine falsche version handelt. Will sagen, er kommt doch eh nicht rein. Was willst du dann schliessen?
Wenn er doch reinkommen sollte, kannst du den erzeugten Subprozess mit
Declare Function NEMGetCurrentSubprogramWindow Lib "nnotesws.dll" () As Long
Declare Function NEMStopSubprogramWindow Lib "nnotesws.dll" (Byval hwnd As Long) As Integer
Sub Postopen(Source As Notesuidatabase)
Dim wHandle As Long
wHandle = NEMGetCurrentSubprogramWindow
Call NEMStopSubprogramWindow(wHandle)
End Sub
killen und dann ist die DB zu
eknori