Domino 9 und frühere Versionen > ND6: Entwicklung

Dokument suchen und Daten ändern

<< < (5/26) > >>

klaussal:
"Option Declare" nicht vergessen und den Debugger benutzen.

lotus blue:
Hi Leute,
kann mich nur nochmalig bedanken für Eure Hilfe.

Hab Gestern noch den Debugger laufen lassen.
Hier bricht er mir ab.
Call doc.ReplaceItemValue("Status", "erledigt")

Hier nochmal das Script. Könnt ihr mich bitte berichtigen wenn ich da was falsch verstehe:
Sub Initialize
   Dim session As New notessession
   Dim db As notesdatabase
   Dim doc As notesdocument
   Dim fileNum As Integer, cells As Integer, k As Long
   Dim fileName As String
   Dim InputStr As String, delimiter As String
   Dim FieldArray As Variant
   Dim view As NotesView
   
   Set db = session.currentdatabase
   Set view = db.GetView ("Alle Dokumente")   <-die View in der gesucht werden soll
   
   fileNum% = Freefile()
   
     'Dateipfad
   fileName$ = "V:\Archiv.csv"   <- Pfad u. Name der zu durchsuchenden Datei   
   'Trennzeichen
   delimiter = ";"   <- das Trennzeichen innerhalb der csv
   
   Open fileName$ For Input As fileNum%
   Line Input #1,  InputStr$   
   Do While Not Eof(fileNum%)
    'Zeile für Zeile einlesen
      Line Input #1,  InputStr$
      FieldArray = Split(InputStr$,delimiter, -1, 0)
      If Not Isempty(FieldArray) Then
         Set doc = view.GetDocumentByKey(FieldArray(0))
         Call doc.ReplaceItemValue(Status, "erledigt")  <- das zu ändernde Feld mit dem Wert
         Call doc.Save(True,True)
      End If
   Loop
   Close fileNum%
End Sub


Muss ich eigentlich nicht den Maskennamen irgendwo unterbringen, oder passiert das über die View?

DerAndre:
Du hast Dir die Frage selber schon beantwortet.

Im Quelltext steht der Feldname ohne Anführungszeichen...

MadMetzger:
Und mit Option Declare, was man grundsätzlich einschalten sollte, wäre hier schon im Designer ein Fehler hochgekommen...  ;D

lotus blue:
Declare hab ich in der Tat vergessen.
Auch die ""  >:D Mann Mann.
Aber es funzt immer noch nicht. Stoppt immer noch bei Call doc.ReplaceItemValue("Status", "erledigt").

Wie sieht es aus?
*Muss ich nicht irgendwo übergeben was für einen Wert er überhaupt in den Dokumenten suchen muss?
*Den Maskennamen angeben?

Gruß

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete