Sry für die mangelnde sprachliche Päzision, war nur so überglücklich vorhin, dass ich das Wesentliche vergaß :) Ok, dann gehe ich das mal zeilenweise durch:
- in der nachfolgenden Zeile verstehe ich nicht, warum die Aktion direkt mit mdaAdd gleichgesetzt werden muss
Optional Action As ModifyAction = mdaAdd _
- hier wäre ich niemals darauf gekommen, das so zu formulieren, wobei das durchaus Sinn ergibt und zudem elegant gelöst ist
blnField = Not (IsMissing(Field) Or IsEmpty(Field) Or IsNull(Field))
blnValue = Not (IsMissing(Value) Or IsEmpty(Value) Or IsNull(Value))
- die Arbeitsweise mit LBound und UBound verstehe ich noch gar nicht, mir ist zudem nicht klar für welche Probleme eine solche Vorgehensweise sinnvoll ist und wie die Syntax aussehen muss (Beispiel von dir)
If LBound(vntFilters) <= UBound(vntFilters)
- des Weiteren verstehe ich den nachfolgenden Codeschnipsel gar nicht
If InStr(1, Array1D, Expression, vbTextCompare) Then
Array1D = Split(Empty)
Else
Array1D = Array(Array1D)
End If
- wofür steht ByRef prinzipiell und dann konkret in
Private Sub AddElementToArray1D(Expression As Variant , ByRef Array1D As Variant )
Hoffe, dass sich mir der Rest erschließt, wenn ich diese Elemente verstanden habe. Ich danke dir!
Grüße,
Corina
|