Domino 9 und frühere Versionen > ND6: Entwicklung

Fehlermeldung "Datei nicht vorhanden...."

(1/2) > >>

KiTaMann:
Hallo zusammen,

ich versuche gerade, den Standardschriftwechsel im Hause zu automatisieren.

Eine außergewöhnliche Fehlermeldung bereitet mir Kopfzerbrechen:

Aus der Ansicht unserer Kundendatenbank habe ich über einen Aktionsknopf die Möglichkeit, verschiedene Arten von Anschreiben zu erstellen.

Beispiel: "Schulungsangebot"

Das Skript:

Sub CreateAnschreibenSchAng()

Dim session As New NotesSession
Dim db As NotesDatabase
Dim Korr As NotesDatabase
Dim col As NotesDocumentCollection
Dim view As NotesView
Dim item As NotesItem
Dim Doc As NotesDocument
Dim KorrDoc As NotesDocument
Dim Anrede As String
Dim message As String
Dim usw...


Set db = session.CurrentDataBase
Set col = db.UnprocessedDocuments
Set Korr = session.GetDatabase("Server","develop\Korrespondenz.nsf")
If Not Korr.IsOpen Then Call Korr.Open("","")

If col.count = 0 Then
Msgbox "Bitte wählen Sie aus, wen Sie anschreiben möchten"
Elseif col.count > 0 Then
message = Msgbox (Cstr(col.count) & " Anschreiben erstellen?", 32, "Möchten Sie ...")
End If

For Anzahl = 1 To col.count

Set Doc = col.GetNthDocument(Anzahl)

Set item = Doc.GetFirstItem("KdNr")
KdNr = Trim(item.text)

Set item = usw....


Set KorrDoc = New NotesDocument(Korr)

KorrDoc.Form = "Schulungsangebot"
...usw.

Call KorrDoc.ComputeWithForm(False,False)
Call KorrDoc.save(True,True)


Next

End Sub


Jetzt kommt die Meldung:

"Datei nicht vorhanden: Korrespondenz.nsf"


Aaabär:

Das Doc wird trotzdem in der "nicht vorhandenen DB" erzeugt.

Der debugger hakt nicht ein und meckert nicht ...


 ??? ??? ???

Wer kann helfen?

Glombi:
Hi Klaus,

Ändere bitte mal
Set Korr = session.GetDatabase("<server>","develop\Korrespondenz.nsf")
If Not Korr.IsOpen Then Call Korr.Open("","")

ab in

Set Korr = New NotesDatabase("","")
call Korr.Open("<server>","develop\Korrespondenz.nsf")
if Not Korr.IsOpen then
msgbox "Datenbank Korrespondenz konnte nicht geöffnet werden!",0+16,"Abbruch"
exit sub
End if


Gruß
Andreas

KiTaMann:
Hallo, Andreas,

besten Dank, aber das Ergebnis ist identisch...

... das Skript macht, was es soll und nach getaner Arbeit kommt ein lapidares

"Datei nicht vorhanden: "

Ich meine, grundsätzlich ist ja alles so, wie es sein soll, die Docs werden erzeugt und abgelegt, können weiter be- und verrbeitet werden, aber eine derartige Fehlermeldung trägt dann doch nicht gerade zur Beruhigung bei...

Glombi:
Kommentiere mal das
Call KorrDoc.ComputeWithForm(False,False)
aus.

Vielleicht kommt die Meldung durch eine Formel in der Maske...

Andreas

KiTaMann:
Hilft nix, Andreas...


... hab's mal auskommentiert, aber das einzige Resultat ist, dass
das Doc in der "Ansicht nach Datum" als "Nicht kategorisiert" angezeigt wird ...


Meldung bleibt bestehen - kann es an der DB selbst liegen?

Navigation

[0] Themen-Index

[#] Nächste Seite