value radio button bij open-form

[scw]

Goedendag,

Ik gebruik de volgende code om de value van drie keuzerondjes te bepalen bij het 'On open'-event:

If Me.Status.Value = "2" Then
    Me.Kader71.Value = 2
Else
    Me.Kader71.Value = 3
End If
If Me.Status.Value = "3" Then
    Me.Kader71.Value = 3
Else
    Me.Kader71.Value = 2
End If
If Me.Status.Value = "1" Then
    Me.Kader71.Value = 1
ElseIf Me.Status.Value = "3" Then
    Me.Kader71.Value = 3
Else
    Me.Kader71.Value = 2
End If

Dat werkt goed, echter nu probeer ik hem uit te breiden met een vierde keuzemogelijkheid in een andere formpje (dus value 3 is weg, 6 en 7 erbij gekomen):

If Me.Status.Value = "2" Then
    Me.Kader71.Value = 2
Else
    Me.Kader71.Value = 7
End If
If Me.Status.Value = "6" Then
    Me.Kader71.Value = 6
Else
    Me.Kader71.Value = 2
End If
If Me.Status.Value = "7" Then
    Me.Kader71.Value = 7
Else
    Me.Kader71.Value = 6
End If
If Me.Status.Value = "1" Then
    Me.Kader71.Value = 1
ElseIf Me.Status.Value = "6" Then
    Me.Kader71.Value = 6
Else
    Me.Kader71.Value = 2
End If

Deze werkt goed, op ééntje na: wanneer ik Value 7 had aangeklikt, opent die met Value 2... wat ontbreekt nog aan deze code of doe ik verkeerd??

Ik heb geprobeerd de logica te ontdekken van de eerste versie met drie values, maar ik kan hem niet ontdekken...

Hopelijk zien jullie het,

bedankt scw

 

[OctaFish]

Ik snap niks van je code; je laatste IF...ENDIF maakt van de waarde in het tekstvak weer de waarde 2. Behalve als je 1 of 6 selecteert. Dus de keuze bij 7 wordt overruled door de volgende laatste if. Waarom niet een Select Case?

Select Case Me.Status
    Case 1
        Me.Kader71.Value = 1
    Case 2
        Me.Kader71.Value = 2
    Case 6
        Me.Kader71.Value = 6
    Case 7
        Me.Kader71.Value = 7
    Case Else
        Me.Kader71.Value = 2
End Select

 

[gast0224]

Vraag me af of je Case 2 nodig hebt, die valt volgens mij al onder Case else.

 

[OctaFish]

Klopt; maar het is maar een voorbeeldje Ik zou in dit geval voor Case Else ook een andere waarde nemen