Returnerer en variant (heltal), der angiver resultatet af en strengudtryk.
Syntaks
StrComp ( streng1; streng2 [, sammenlign ] )
Syntaksen for funktionen StrComp har disse argumenter:
|
Argument |
Beskrivelse |
|
streng1 |
Påkrævet. Et gyldigt strengudtryk. |
|
streng2 |
Obligatorisk. Et gyldigt strengudtryk. |
|
sammenlign |
Valgfrit. Angiver typen af strengsammenligning. Hvis sammenligningsargument er Null, opstår der en fejl. Hvis sammenligning udelades, bestemmer indstillingen Indstillingssammenligning typen af sammenligning. |
Indstillinger
Indstillingerne for argumentet sammenlign er:
|
Konstant |
Værdi |
Beskrivelse |
|
vbBinaryCompare |
0 |
Udfører en binær sammenligning. |
|
vbTextCompare |
1 |
Udfører en tekstsammenligning. |
|
vbDatabaseCompare |
2 |
Kun Microsoft Office Access 2007. Udfører en sammenligning baseret på oplysninger i din database. |
Returværdier
Funktionen StrComp har følgende returværdier:
|
Hvis |
StrComp returnerer |
|
streng1 er mindre end streng2 |
-1 |
|
streng1 er lig med streng2 |
0 |
|
streng1 er større end streng2 |
1 |
|
streng1 eller streng2 er Null |
Null |
Eksempel på forespørgsel
|
Udtryk |
Resultater |
|
SELECT ProductSales.ProductID, StrComp(ProductID,"PRO_XYZ10") AS ComparisonResult FROM ProductSales; |
Returnerer værdierne fra feltet "Produkt-id", sammenligner værdierne i "Produkt-id" med "PRO_XYZ1" og returnerer resultaterne i kolonnen ComparisonResult. "Produkt-id" er lig med "PRO_XYZ10", returnerer funktionen StrComp 0. Hvis "Produkt-id" er mindre end "PRO_XYZ10", returnerer funktionen StrComp -1. Hvis "Produkt-id" er større end "PRO_XYZ10", returnerer funktionen StrComp 1. Hvis enten "Produkt-id" eller "PRO_XYZ10" er NULL, returnerer funktionen StrComp NULL. |
VBA-eksempel
Bemærk!: Følgende eksempler demonstrerer brugen af denne funktion i et VBA-modul (Visual Basic for Applications).
I dette eksempel bruges funktionen StrComp til at returnere resultaterne af en strengsammenligning. Hvis det tredje argument er 1, udføres en tekstsammenligning. Hvis det tredje argument er 0 eller udelades, udføres en binær sammenligning.
Dim MyStr1, MyStr2, MyComp
MyStr1 = "ABCD": MyStr2 = "abcd" ' Define variables.
MyComp = StrComp(MyStr1, MyStr2, 1) ' Returns 0.
MyComp = StrComp(MyStr1, MyStr2, 0) ' Returns -1.
MyComp = StrComp(MyStr2, MyStr1) ' Returns 1.
