Groupe d'option selon autre champ

Bonjour,

J'ai une base de données contenant des numéros de salle : champ [N°_salle], pour lequel les valeurs possibles sont : 3306; 3306-3307; 3582; 3582-3583; 3583; 3585; A-002;... (les autres valeurs n'ont pas d'impact sur la suite.)

À ces salles (celles nommées ci-dessus) sont associées un numéro d'équipement (adresse IP).

Dans un formulaire, qui sera pour impression seulement, je voudrais que l'adresse IP soit indiquée, en fonction du numéro de salle, uniquement s'il s'agit d'une visioconférence.

J'ai créé un groupe d'options contenant 3 options (chaque adresse IP) ayant les valeurs associées 1, 2 et 3.

Puis, j'ai voulu créer un code VBA pour que s'il s'agit d'une visioconférence, alors l'une des cases d'option soit cochée, selon le numéro de salle.

En résumé, voici à quoi équivaut chaque option :

3306 = 1
3306-3307 = 1
3582 = 2
3582-3583 = 2
3583 = 3
3585 = 3
A-002 = 3

Mon code semblait fonctionner, mais sur les 13 enregistrements que j'ai actuellement, ça ne fonctionne que pour les deux derniers. De plus une fois qu'une option est cochée, si je reviens à l'enregistrement précédent (soit le 11e, la case reste cochée, et ne se décoche qu'au 9e enregistrement... puis en refaisant le chemin inverse, au 12e enregistrement, la bonne case se coche, et au 13e, elle change pour se cocher à la bonne place aussi...)

Je vous soumets mon code, au cas où vous auriez une brillante idée pour m'aider... c'est peut-être dans l'ordre où je présente mes ElseIf... ou bien il me manque une ligne quelque part... mais comme je suis plutôt novice en VBA, je ne trouve pas quoi...

Merci à l'avance!!!

Option Compare Database
Private Sub Form_Current()
If Type_formation = "Visioconférence" Then

        If Me.N°_salle.Value Like "3306" Then
        Me.opgIP.Value = 1

        ElseIf Me.N°_salle.Value Like "3582" Then
        Me.opgIP.Value = 2

        ElseIf Me.N°_salle.Value Like "3585" Then
        Me.opgIP.Value = 3

        ElseIf Me.N°_salle.Value = "3583" Then
        Me.opgIP.Value = 3

        ElseIf Me.N°_salle.Value Like "A-002" Then
        Me.opgIP.Value = 3

        End If

    Else: Me.opgIP.Value = Null

End If

End Sub