Domino 9 und frühere Versionen > Entwicklung
Eingebettete Maske ->@if "refreshen"
koehlerbv:
"Vorgabemaske nicht gefunden" ist doch easy, Frank: Deine DB hat keine. Und das gibt Probleme in vielen Richtungen. Ergo: Definiere immer eine Vorgabemaske und Vorgabeansicht.
Warum der Code diese Meldung aber provoziert - keine Ahnung. Poste bitte mal Deinen Code (ich mag jetzt hier nicht erst selbst dem Link-Dschungel folgen). Einen Grund hierfür muss es ja geben. Naherliegenderweise ist der Aufruf eines Documents mit fehlender Information über die Maske oder mit einem Maskennamen, den es in der DB nicht gibt. Der Fehler sollte mit mehr Infos aber einfach zu ermitteln sein.
HTH,
Bernhard
DonPromillo:
Hallo Bernhard,
vielen Dank schon mal!
hier der Code vom "Click-Event"
Sub Click(Source As Button)
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Dim ret As Integer
Set uidoc = ws.CurrentDocument
Set doc = uidoc.Document
ret = ReOpen(doc)
End Sub
und hier von der ReOpen Funktion:
Function ReOpen(docThis As NotesDocument) As Integer
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim dbThis As NotesDatabase
Dim unid As String
ReOpen = 0
Set dbThis = docThis.ParentDatabase
Call docThis.Save(True , True)
unid = docThis.UniversalID
docThis.SaveOptions = "0" ' # ... Speicherabfrage vermeiden
Set uidoc = ws.CurrentDocument
Call uidoc.Close
Set docThis = dbThis.GetDocumentByUNID(unid)
Set uidoc = ws.EditDocument(True , docThis)
Set docThis = uidoc.Document
If docThis.HasItem("SaveOptions") Then
' # ... das Feld SaveOptions wieder entfernen...
docThis.RemoveItem("SaveOptions")
Call docThis.Save( True , True )
End If
ReOpen = 1
Print "Das Dokument wurde erneut geöffnet"
End Function
OK, Vorgabemaske ist eingerichtet, die Zeile, bei der er momentan hängt ist:
If docThis.HasItem("SaveOptions") Then
Fehlermeldung nun: "Object variable not set"
Gruß
Frank
Axel:
Hi,
überprüf mal mit dem Debugger ob die Variable docThis gesetzt ist.
Axel
DonPromillo:
gerne, wenn ich wüßte wie ich das herausfinden kann!?!?!?
Frank
Semeaphoros:
File - Tools - Debug LotusScript
einschalten, den Agenten starten und ihm bei der Arbeit zusehen
Navigation
[0] Themen-Index
[#] Nächste Seite
[*] Vorherige Sete
Zur normalen Ansicht wechseln