Hej...hur ska jag bära mig åt för att få dessa if-satser att fungera tillsammans. Som det är nu fungerar det bara om jag kommenterar bort två block och kör endats det ena. Hoppas ni förstår vad jag menar. Förmodligen är det ingen större operation, men just nu é jag helt tom i bollen.


'*****Block1*****
If tmpTal > 0 or tmpTal < 1 then strTest1 = CInt(tmpTal*18) End If
If Int(strTest1) => Int(strHcp2) then Extra_Slag = 1 Else Extra_Slag = 0 End If

'*****Block2*****
If tmpTal > 1 or tmpTal < 2 then strTest2 = CInt((tmpTal-1)*18) End If
If Int(strTest2) => Int(strHcp2) then Extra_Slag = 2 Else Extra_Slag = 1 End If

'*****Block3*****
If tmpTal > 2 or tmpTal < 3 then strTest3 = CInt((tmpTal-2)*18) End If
If Int(strTest3) => Int(strHcp2) then Extra_Slag = 3 Else Extra_Slag = 2 End If

Är det nåt sånt här du är ute efter?
<code>
If tmpTal > 0 or tmpTal < 1 then
strTest1 = CInt(tmpTal*18)
If Int(strTest1) => Int(strHcp2) then
Extra_Slag = 1
Else
Extra_Slag = 0
End If
ElseIf tmpTal > 1 or tmpTal < 2 then
strTest2 = CInt((tmpTal-1)*18)
If Int(strTest2) => Int(strHcp2) then
Extra_Slag = 2
Else
Extra_Slag = 1
End If
ElseIf tmpTal > 2 or tmpTal < 3 then
strTest3 = CInt((tmpTal-2)*18)
If Int(strTest3) => Int(strHcp2) then
Extra_Slag = 3
Else
Extra_Slag = 2
End If
End If
</code>

Jag är med på tanken...tyvärr funkade det inte. Jag tror att jag måste ha in det i en "select case", alltså om tmpTal är mellan 0 o 1 så körs den koden osv....som det är nu så uppfylls alla if-satserna oavsett om det är 1,2 eller 3 jag skickar i formuläret.

Ska det inte stå AND i din if-sats?

If tmpTal > 0 AND tmpTal < 1

Kanske därför det inte fungerar...

Jag har provat den varianten oxå, men det gick inte.

Andreas kod ovan fast med AND i if/elseif-satserna istället för OR borde fungera.

Tackar för hjälpen

AND tillsammans med ElseIf även inne i elseif-satserna hjälpte.

//Uffe