Variabeler i en forespørgsel

Hej Eksperter!

Jeg prøver at forenkle en If sætning så jeg ikke skal skrive den 20 gange, men nedenstående giver en Type Mismatch.

Nogen forslag ?


Dim strForm As String
Dim strKnap As String
Dim strExp1 As String
Dim strExp2 As String
Dim x As Integer

strForm = "Forms!Afsendpakke!"
strKnap = "Knap1_2_"
strExp1 = strForm & "P" & x
strExp2 = strForm & strKnap & x & ".Value"

For x = 1 To 20
If [strExp1] = 1 Then [strExp2] = -1 Else [strExp2] = 0
Next x