Domino 9 und frühere Versionen > Entwicklung

Vorschläge für Software Tracking

<< < (4/5) > >>

Driri:

--- Zitat von: seerow am 16.02.04 - 15:57:03 ---Sub Click(Source As Button)
   Dim session As New NotesSession
   Dim workspace As New NotesUIWorkspace
   
   Set db = session.CurrentDatabase
   Set collection = db.UnprocessedDocuments
   
   picklist = workspace.Pickliststrings(3, False,"","","sw_update", "Titel", "Eingabeaufforderung", 1)
   
   Set doc = collection.GetFirstDocument
   While Not (doc Is Nothing)
      doc.sw_update_history = picklist
      Call doc.Save(True,False)
      Set doc = collection.GetNextDocument(doc)
   Wend
End Sub

Incorrect Argument: non-null string expected

--- Ende Zitat ---

Also was direkt auffällt ist, daß doc, db und picklist nicht deklariert sind. Das wird zwar nicht direkt den Fehler auslösen, aber unsauber ist es allemal.

Driri:
Ich hab noch nen bißchen getestet. Die Fehlermeldung kommt von den beiden Null-Strings für die Parameter Server und Database im Pickliststrings.

Zwei Möglichkeiten sehe ich da :

1) Server fest eintragen (sicherlich nicht ideal, außer es läuft eh nur auf einer Maschine)

2) db.Server und db.FilePath als Parameter verwenden

seerow:
Moin zusammen,

danke für die vielen Antworten. Aber es klappt nicht......... ??? Hat niemand ein funktionierendes Beispiel am Start.
Was trag ich eigentlich bei server und filename ein, wenn die DB lokal liegt?

Driri:
Hi,

hast Du meine Antworten gelesen ? Mit den angesprochenen Änderungen klappte das bei mir problemlos. Und wenn Du db.Server und db.Filepath verwendest, sollte das auch mit ner lokalen Datenbank funktionieren.

Also so :

Sub Click(Source As Button)
   Dim session As New NotesSession
   Dim workspace As New NotesUIWorkspace
   Dim db as NotesDatabase
   Dim doc as NotesDocument
   Dim picklist As Variant
   
   Set db = session.CurrentDatabase
   Set collection = db.UnprocessedDocuments
   
   picklist = workspace.Pickliststrings(3, False,db.Server,db.FilePath,"sw_update", "Titel", "Eingabeaufforderung", 1)
   
   Set doc = collection.GetFirstDocument
   While Not (doc Is Nothing)
      doc.sw_update_history = picklist(0)
      Call doc.Save(True,False)
      Set doc = collection.GetNextDocument(doc)
   Wend
End Sub

seerow:
stimmt jetzt geht es  8) , Vielen Dank. Aber ich bin mit der Picklist Lösung nicht so glücklich.

Ich finde es besser wenn man es als Dialog aufrufen kann. Wie ich es auch am Anfang diese Posts erklärt habe.

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete