Hallo ich habe folgenden Code in einer Gemeinsamen Aktion:
Sobald der User mit Ja antwortet soll nciht nur die Methode beenden werden, sondern komplett die Datenbank geschlossen.
Code
Sub Click(Source As Button)
Dim session As New NotesSession
Dim db As Notesdatabase
Dim nuid As NotesUIDocument
Dim PUIW As New PavoneUIWorkspace
Dim msg As String
Dim boxType As Long
Dim answer As Integer
Set db = session.currentDatabase
boxtype& = 4 + MB_ICONEXCLAMATION
msg = | Hat der neu anzulegende Benutzer bereits einen NT-User?
Is the new user owner of an NT-User?|
answer = Messagebox (msg,boxtype&,"Wichtige Information")
If answer="6" Then
msg =|Bitte beantragen Sie die neuen User, per Mail über Herrn Erwin Völker
Der Vorgang wird abgebrochen
Please contact Mr. Erwin Voelker.
|
boxtype&= MB_OK + MB_ICONSTOP
Messagebox msg,boxtype&,"STOP"
Call db.close
'Exit Sub
End If
If answer <>"6" Then
Call PUIW.StartNewJob("UserManagement", "Antrag für neuen User erstellen" , "", True, False, False)
End If
End Sub
Alles anzeigen
Das geht aber nicht.
Fehlermeldung: Cannot close the context Database
Hat jemand eine Idee, wie das zu lösen ist?
Viele Grüße
Heiko