Domino 9 und frühere Versionen > ND6: Entwicklung

Verwendung von Strings in der DB-Search-Methode

<< < (3/4) > >>

atbits:
Na dann ist Debugging angesagt ;-)

Gib Dir mal mit Msgbox den Searchstring aus, was kommt da?
Müßte diese Search Deiner Meinung nach etwas finden?

Poste mal den gesamten VBA-Code.

Ansonsten: Gehe doch einfach über einen Notes-Link.
notes:\\meinserver\meinedb\viewsortiertnachkey\key
Wie wäre das?

Grüße David

Axel:
Ohne weitere Info's wie den Code das Makros ist das nur ein Gestochere im Nebel.

Axel

Spalter:
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-----------------------

atbits:
Versuche mal

--- Code: ---searchFormula$ = "PrfFeldNr = """" & key & """""

--- Ende Code ---

Achte auch drauf, dass keine unsinnigen Leerzeichen in Deinem Suchstring sind.

Axel:
Ich hab's mal probiert (Excel 2007 / Notes 8.5.1) und so hat's funktioniert:

...

x = 1

key = Cells(x, 1)

searchFormula$ = "PrfFeldNr = " & Chr$(34) & key & Chr$(34)

...

Axel

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete