Hi, ich habe folgendes Problem.
Ich gehe über eine Volltextsuche auf eine andere Datenbank. Dort soll er mir überprüfen ob ein bestimmtes Feld den Status "Aktiv" hat.
Nun habe ich das Problem das wenn ich auf die Datenbank gehe er mir sagt das der Drucker "Aktiv" ist.
Durch die Volltextsuche kommt jedes mal ein "Schrott" heraus (ich habe es auch überprüft indem ich nach "Schrott" gesucht habe, das findet er auch, auch wenn ich nicht weiß wo)
Jetzt meine Frage: woran kann das liegen das die Volltextsuche ein Shrott findet und ich, wenn ich direkt in die Datenbank zugreife, ein "Aktiv" in dem Feld finde
Hier ein Code abschnitt:
'Initialisierung und überprüfung des Datenbankzugriffs'
Dim session As New NotesSession
Dim db As NotesDatabase
Set db=New NotesDatabase("SERVER" , "Datei.nsf")
If Not db.IsFTIndexed Then
Call db.UpdateFTIndex(True)
End If
Set db=New NotesDatabase("SERVER" , "DATEI.nsf")
If Not db.IsFTIndexed Then
On Error 4080 Resume Next
Call db.UpdateFTIndex(True)
If Err=4080 Then
Messagebox("Datenbank kann nicht auf dem Server " & db.Server & " indiziert werden!")
Exit Sub
End If
End If
Dim ws As New notesUIWorkspace
Set UIdoc=ws.CurrentDocument
Dim Rückgabewert As Integer
Dim Fieldname As String
suchNr = uidoc.FieldGetText("Inventarnummer")
If suchNr = "" Then
suchNr = uidoc.FieldGetText("Seriennummer")
End If
Set doccol = db.FTSearch(suchNr, 0)
If doccol.Count > 0 Then
Set doc = doccol.GetFirstDocument
Forall x In doc.GetItemValue("keyObjectStatus")
If x = "Aktiv" Then
Call uidoc.FieldSetText("test","")
Call uidoc.FieldSetText("DruckerInaktiv","")
Call uidoc.FieldSetText("Bearbeiten","True")
Else
Call uidoc.FieldSetText("DruckerInaktiv","Der Drucker ist Inaktiv")
Call uidoc.FieldSetText("fldStatus",x)
var = Messagebox("Der Drucker ist laut Inventory nicht Aktiv. Wollen Sie dennoch die Maske öffnen? ", 36, "Inaktiv")
If var = 6 Then
Call uidoc.Save
End If
If var = 7 Then
Call uidoc.Save
Call uidoc.Close(True)
End If
End If
End Forall
Normalerweise funktioniert das ganze einwandfrei!!