Werte vergleichen Wert liegt zwischen ...und ....

[Bernie110]

Hallo, man denk es sollte eigentlich kein Prolem mehr sein, *nerv*
dennoch eine Frage

Ich möche mehrere Fälle prüfen lassen.

LIke :

If me.LM  liegt zwischen 0 und 2 then me.feld.visible = true
If me.LM  liegt zwischen 2.1 und 4 then me.feld.visible = false
if me.LM liegt zwischen 4.1 und 13 then me.feld.visible = true

Habs mit Between versucht....  ??

Wie macht man es richtig ?
Danke für eure Antworten.

Lg Bernie

[MzKlMu]

Hallo,
ich würde das mit Select Case machen und nicht mit If.
Z.B. so:

Code [Auswählen] Erweitern

Private Sub LM_AfterUpdate()
   Select Case CDbl(Me.LM)
       Case Is <= 2
           Me.Feld.Visible = True
       Case Is <= 4
           Me.Feld.Visible = False
       Case Is <= 13
           Me.Feld.Visible = True
   End Select
End Sub

[Bernie110]

Cool danke !