Ich verzweifele gerade an einem zusammengesetzten String... Der Debugger sagt in allen Varianten, die ich ausprobiert habe, dass im String doppelte Anführungszeichen sind. Der String soll so aussehen, wie in der zweiten suchFormel. Was mache ich falsch? Aus der Hilfe und verschiedenen Forenbeiträgen bin ich nicht schlau geworden...
Function GetParameterValue ( parameter As String, feldname As String, form As String, wertfeld As String) As Variant
'#########################################################################################
'# Diese Funktion ermittelt einen Wert, der in Setupdokumenten gespeichert ist. Dabei wird die aktuelle DB
'# nach dem Parameter durchsucht und der Wert des angegebenen Feldes ausgegeben.
'# Parameter:
'# - parameter: Name des gewünschten Parameters
'# - feldname: Name des Feldes, in dem der Parametername gespeichert ist
'# - form: Name der verwendeten Maske
'# - wertfeld: Name des Feldes, in dem der Parameterwert steht
'#########################################################################################
Dim session As NotesSession
Dim thisDb As NotesDatabase
Dim parCol As NotesDocumentCollection
Dim parDoc As NotesDocument
Dim suchFormel As String
'suchFormel = "Form = "+Chr$(34)+form+Chr$(34)+" & "+feldname+" = "+Chr$(34)+parameter+Chr$(34)
suchFormel = |Form = "FormKonfiguration" & KonfParameternameTX = "KalenderAktiv"|
Set session = New NotesSession
Set thisDb = session.CurrentDatabase
Set parCol = thisDb.Search(suchFormel, Nothing, 0)
Set parDoc = parCol.GetFirstDocument()
Set GetParameterValue = parDoc.GetItemValue(wertfeld)
End Function