documents.Count

[Johann]

Sub Initialize
Dim dateTime As New NotesDateTime( "01/01/2001" )
   
strServer = "dom07/Energie"
strPath = "Impel\Test\Impel170.nsf"
   
Set s = New NotesSession
   
Set sourcedb =  s.GetDatabase(strServer, strPath, False)
   
If sourcedb Is Nothing Then
Error lsERR_NOTES_DATABASE_MISSING, "Datenbank " + strPath + " konnte auf " + strServer + _  
" nicht gefunden werden."
End If
   
Set destdb = s.CurrentDatabase
   
   
Set documents  = destdb.Search( form=frDokument, dateTime, 0 )
If documents.Count = 0 Then Exit Sub

hallo,
habe einen befehl erstellt oder vielmehr entstammt er aus der aktion im persönlichen adressbuch um dieses mit dem firmenadressbuch abzugleichen. die abzugleichende datenbank greift auf die original datenbank zu und aktualisiert sie dann. mein problem:
immer wenn ich ein dokument ändere, so müsste es eigentlich registrieren und der "count" sich um eins erhöhen, aber dies ist nicht der fall. so dass die aktion bei exit sub beendet ist, obwohl doch was verändert wurde.

[eknori]

For the sake of good programming, user option declare !!

Set documents  = destdb.Search( form=frDokument, dateTime, 0 )

Da liegt der Hase im Pfeffer; deine Suche funktioniert so nicht ...

[Johann]

ja soweit war ich schon. warum funktioniert sie nicht. wenn ich die zeile rausnehme, dann rennt es bis zum ende durch, aber natürlich findet er kein dokument.

[m3]

Code

Syntax
Set notesDocumentCollection = notesDatabase.Search( formula$, notesDateTime, maxDocs% )
Parameters
formula$
String. A Notes @function formula that defines the selection criteria.

Schon mal probiert, die Suchformel als String und nicht als GLeichung zu übergeben? Weiters ist es immer recht praktisch, den Sucbegriff mal im GUI in das Volltextsuchfenster einzugeben, da kommt man auch auf einige Syntaxfehler drauf.

[Driri]

Es wäre auch gut, die DocumentCollection vorher noch zu deklarieren. Nicht deklarierte Objekte sind erstmal vom Typ Variant, ich bin mir nicht sicher, was da bei Set documents = ... dann mit passiert.

[koehlerbv]

Ulrich aka eknori hat es schon geschrieben, und m3 aka Martin nachgehakt: Deine Syntax ist bei NotesDatabase.Search katastrophal.
Bitte lese hierzu die DesignerHelp oder anderes - es ist so offensichtlich:

Code

form=frDokument

ergibt das Ergebnis des Vergleich zwischen den Werten der Variablen "form" und "frDokument". Das Resultat ist ein numerischer Wert ... Der ist nicht brauchbar ...

Den Rest liest Du bitte selber nach.

Bernhard