Application.CheckField-Methode (Project)

True, Wenn die ausgewählten Vorgänge oder Ressourcen den angegebenen Kriterien entsprechen.

Syntax

Ausdruck. CheckField (_Field_, _Value_, _Test_, _Op_, _Field2_, _Value2_, _Test2_)

expression Eine Variable, die ein Application-Objekt darstellt.

Parameter

Name Erforderlich/Optional Datentyp Beschreibung
Feld Erforderlich String Der Name des zu suchenden Felds.
Value Erforderlich String Der Wert, mit dem Wert des mit Field angegebenen Felds verglichen werden soll.
Test Optional String Der Typ des Vergleichs zwischen Field und Value. Der Standardwert ist "gleich". Dies kann eine der folgenden Vergleichszeichenfolgen sein.
Op Optional String Gibt an, wie die mit Feld, Test und Wert festgelegten Kriterien mit den zweiten Kriterien in Beziehung stehen. Das Argument lokal auf festgelegt werden kann "Und" oder "Oder".
Field2 Optional String Der Name eines zweiten zu durchsuchenden Felds.
Value2 Optional String Der Wert, der mit dem Wert des mit Field2 angegebenen Felds verglichen werden soll.
Test2 Optional String Der Typ des Vergleichs zwischen Field2 und Value2. Kann eine der gleichen Vergleichszeichenfolgen wie Test sein.

Vergleichszeichenfolgen

Vergleichszeichenfolge Beschreibung
"Gleich" Der Wert von Field ist gleich Value.
"Ungleich" Der Wert von Field ist ungleich Value.
"Größer als" Der Wert von Field ist größer als Value.
"Größer oder gleich" Der Wert von Field ist größer oder gleich Value.
"Kleiner als" Der Wert von Field ist kleiner als Value.
"Kleiner oder gleich" Der Wert von Field ist kleiner oder gleich Value.
"Innerhalb" Der Wert von Field ist innerhalb von Value.
"Nicht innerhalb" Der Wert von Field ist nicht innerhalb von Value.
"Enthält" Feld enthält Wert.
"Enthält nicht" Feld enthält nicht Value.
"Enthält genau" Feld enthält genau Value.

Rückgabewert

Variant

Beispiel

The following example determines whether value of Duration is equal to 1 and displays an appropriate message.

Sub Check_Field() 
 
 Dim T As Task 
 Dim Result As Boolean 
 
 Set T = ActiveProject.Tasks(3) 
 Result = CheckField("Duration", "1", "equals") 
 
 If Result Then 
 Result = MsgBox(T.GetField(pjTaskName) + " task Duration is equal to value specified.", vbOKOnly, "CheckField Method") 
 Else 
 Result = MsgBox(T.GetField(pjTaskName) + " task Duration is not equal to value specified.", vbOKOnly, "CheckField Method") 
 End If 
End Sub

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.