Guten Tag zusammen,
vielleicht kannn mir jemand bei meinen Problem helfen.
Beim umbenennen einer Ressource bekomme ich folgende Fehlermeldung
"Object variable not set"
wenn ich den Debugger mitlaufen lasse bleibt er hängen beim Code
If view.EntryCode = 0 then
Ich arbeite unter Notes 6.5.1.
Sollte da tatsächliche "EntryCode" stehen, kann ich mir das mit der nicht gesetzten Objektvariable vorstellen, weil "EntryCode" keine Property des NotesView-Objektes ist. Auf Anhieb würde mir nur "EntryCount" einfallen...
Was sagt der Debugger eigentlich zum "view"-Objekt?
sorry
natürlich "EntryCount".
zum view Objekt. hmm. Ich bin jetzt nicht der Entwickler. Bin froh das ich das mit dem debugger hingekriegt habe.
Ich sehe zwar unten im debugger unter dem reiter Variablen VIEW. aber da steht nix dabei sonst.
Dann ist das das Problem. Ohne Entwicklerkenntnisse sich nun aber durchhangeln, warum das View-Objekt nicht gesetzt wird, ist nicht ganz trivial. Im Laufe des Codes sollte aber irgendwo stehen, welche View angezogen werden soll. Das wäre ein Ansatzpunkt.
Hier mal der Code der hinter dem Umbennen Button in der Ressourcen Maske liegt.
Habe die Stelle mal fett markiert. Und ein paar zeilen weiter wird auf eine Ansicht verwiesen die es nicht gibt in der DB.
Ich meine folgende Zeile mit der verst. Ansicht.
=template1.GetView("$RenameResourceHelp)")
Edit::
also das db Objekt hat verschiedene Eigenschaften wie es aussieht. zB title filename usw.. .Manche haben einen String wert und manche sind leer
Sub Click(Source As Button)
Dim s As New NotesSession
Dim ws As New NotesUIWorkspace
Dim db As NotesDatabase
Dim template1 As NotesDatabase
Dim template2 As NotesDatabase
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Dim xxvar As String
Dim view As NotesView
Dim templateview1 As NotesView
Dim templateview2 As NotesView
Dim server As String
Dim filename As String
Dim hiddendoc As NotesDocument
Set uidoc=ws.CurrentDocument
Set doc=uidoc.Document
If doc.GetItemValue("ResourceType")(0)="1" Then
xxvar="Räume"
Elseif doc.GetItemValue("ResourceType")(0)="2" Then
xxvar="Ressourcen"
End If
xxstr1="Ressource umbenennen"
xxstr2="Wenn Sie die Namen vorhandener "+ xxvar+"ändern, werden alle Reservierungen für diese "+ xxvar+" umbenannt. "
xxstr3="Eine Ressourcenumbenennungsbenachrichtigung wird an alle Leiter gesendet, die noch ausstehende Reservierungen für diese Ressource haben. Dies kann etwas dauern. "
xxstr4="Möchten Sie fortfahren?"
xxstr5="Die erforderlichen Einstellungen zum Umbenennen von Ressourcen wurden nicht gefunden. Ressource konnte nicht umbenannt werden. Bitte wenden Sie sich an den Datenbankmanager."
Set uidoc=ws.CurrentDocument
warn= ws.Prompt(2, xxstr1, xxstr2+xxstr3+xxstr4)
If warn=1 Then
'check if there is doc with Update My Meetings button
Set db=s.CurrentDatabase
Set view=db.GetView("($RenameResourceHelp)")
'if there is no doc in a view, open template on current server
If view.EntryCount=0 Then
server=db.Server
Set template1=s.GetDatabase(server, "resrc60.ntf")
If Not(template1 Is Nothing) And template1.IsOpen Then
Set templateview1 =template1.GetView("($RenameResourceHelp)")
If Not (templateview1 Is Nothing) Then
If templateview1.EntryCount<>0 Then
Set hiddendoc=templateview1.GetFirstDocument
End If 'templateview1.EntryCount<>0
End If ' Not templateview1 is nothing
End If ' template1.Open
'if there doc not found in a template on current server, ask user which template to use
If hiddendoc Is Nothing Then
Call ws.DialogBox("(FindTemplate)", True, True,True, False, False, False, "Wählen Sie einen Server", , True, True)
server=doc.GetItemValue("tmpServer")(0)
filename=doc.GetItemValue("tmpfile")(0)
Set template2=s.GetDatabase(server, filename)
If Not(template2 Is Nothing) And template2.IsOpen Then
Set templateview2 =template2.GetView("($RenameResourceHelp)")
'if there is no doc in a template on a server that user selected - cannot continue
If Not (templateview2 Is Nothing) Then
If templateview2.EntryCount<>0 Then
Set hiddendoc=templateview1.GetFirstDocument
End If 'templateview2.EntryCount<>0
End If ' Not templateview2 is nothing
End If ' template2.Open
End If' Not DocFound
If Not(hiddendoc Is Nothing) Then
Call hiddendoc.CopyToDatabase(db)
Else
Call ws.Prompt(1, xxstr1, xxstr5)
Exit Sub
End If
End If 'view.EntryCount=0
Call ws.DialogBox("(Rename Resource)", True, True, True, False, False, False, "Ressource umbenennen", , True, True)
End If 'if warn
Call uidoc.Refresh
End SubMagst du den Code noch in die entsprechenden Tags verpacken? Macht es einfacher zu lesen.
Ist das Objekt "db" denn korrekt?
hat vielleicht noch einer eine Idee
Wieso noch eine Idee?
Fakt ist, dass View leer ist. Hast du ja selber gesagt, weil da im Debuger nichts steht.
Und da musst du dich nun hochhangeln.
View kommt von DB. Und daher die Frage wie das Objekt db im Debugger aussieht?
Wobei wenn du schon sagst, dass es die Ansicht ($RenameResourceHelp) nicht in der DB gibt, dann ist es auch klar, warum view leer ist.
Das ist also des Rätsels Lösung.
ok - Danke