Domino 9 und frühere Versionen > ND7: Entwicklung
Problem mit Anhängen
jBubbleBoy:
Die Funktion wird mit Parametern aufgerufen!!
@para doc = das NotesDocument; Typ = NotesDocument
@para itemName = Name des Feldes; Typ = String
bubble
C_T:
stimmt hab ich übersehen ::)
C_T:
scheint funktioniert zu haben...
C_T:
Weiteres Problem:
bezieht sich auf das Scenario von oben und ich habe wie gesagt noch ein Problem mit dem "löschen" Button.
Der Code hinter dem Button:
--- Code: ---Sub Click(Source As Button)
REM Normale Deklaration
Dim workspace As New NotesUIWorkspace
Dim session As New NotesSession
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Dim db As NotesDatabase
REM Setzten der Standardwerte
Set uidoc = workspace.CurrentDocument
Set db = session.CurrentDatabase
Set doc = uidoc.Document
REM \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ CODE \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/
'Setzen von Werten
Dim entry As NotesViewEntry
Dim vc As NotesViewEntryCollection
Dim doc2 As NotesDocument
Schluessel = Cstr(doc.Projektnummer(0))&"Entwicklungsprozess"
flag = workspace.PickListStrings(PICKLIST_CUSTOM, False,"sassmail01","APDesignlenkung.nsf", "aProtokoll","Eintrag auswählen","Bitte wählen Sie den zu löschenden Eintrag aus!",6,Schluessel)' [, categoryname$ ] )
If Not Isempty(flag) Then
Set doc2 = db.GetDocumentByUNID(flag(0))
flag2 = workspace.Prompt(Prompt_YesNo,"Löschen?","Wollen Sie den Eintrag wirklich löschen? "+ doc2.PS(0))
If flag2 = "1" Then
doc.saveoptions=0
Call doc.Save(True,False)
doc2.Remove(True)
Call uidoc.Close
Set uidoc = workspace.EditDocument(True,doc)
End If
End If
End Sub
--- Ende Code ---
So das "Unterdokumen" wird auch ganz brav gelöscht, jedoch gibt er mir eine Fehlermeldung. Siehe Anhang
Kann mir da wer helfen?
jBubbleBoy:
Aktiviere den Debugger oder baue ein Fehlerhandling ein und schreib mal welche Zeile diesen Fehler produziert.
bubble
Navigation
[0] Themen-Index
[#] Nächste Seite
[*] Vorherige Sete
Zur normalen Ansicht wechseln