Hallo Axel,
Ist natürlich klar. Vielleicht verflüchtigt sich der Nebel ein wenig. Das Problem besteht darin, dass ich eine dynamische Suche durchführen möchte, die bei jeder Iteration einen neuen Wert aus einer Exceltabelle zieht und diesen dann mittels Search in der Notes-DB auffinden soll.
Gruß
Spalter
----------------------------Schnipp schnipp-----------------------
Dim Session As Object
Set Session = CreateObject("Notes.NotesSession")
Dim db As Object
Dim dc As Object
Dim view As Object
Dim doc As Object
Dim PruefFeldNr As String
Dim Feld2 As String
Dim Feld3 As String
Dim Feld4 As String
Dim Feld5 As String
Dim key As String
Dim AAA As String
Dim itermax As Integer
itermax = InputBox("Geben Sie die Zahl der Iterationen an:")
Set db = Session.GETDATABASE("", "database.NSF")
If db.IsOpen = True Then
'Fertig zum mailen!
Else
db.Open
End If
x = 5
While x < itermax
key = Cells(x, 1)
Feld2 = Cells(x, 2)
Feld3 = Cells(x, 3)
Feld4 = Cells(x, 4)
Feld5 = Cells(x, 5)
MsgBox key
'searchFormula$ = " PrfFeldNr = ""11.035.T001"" "
'Die SearchFormular funzt - Ergebnis 1 Doc.
searchFormula$ = " PrfFeldNr = ""key"" "
'Die SearchFormular funzt nicht - Ergebnis 42 Docs.
'Der Wert der Searchformula$ ist in diesem Fall PrfFeldNr = Key, nicht aber der zugeweiesene Wert.
Set dc = db.Search(searchFormula$, Nothing, 0)
MsgBox dc.Count
MsgBox searchFormula$
If dc.Count = 0 Then
MsgBox ("Ihre Auswahl erfolgte ohne Treffer")
End If
Set doc = dc.GetFirstDocument
y = 5
While Not doc Is Nothing
doc.Teil_Sachgebiet = Feld2
Call doc.Save(True, True)
Set doc = dc.GETNEXTDOCUMENT(doc)
y = y + 1
Wend
x = x + 1
Wend
----------------------------Schnipp schnipp-----------------------
Thema: Verwendung von Strings in der DB-Search-Methode (Gelesen 7272 mal)