[Resolvido]Caixa de Combinação alterando caixa de seleção

If Me.NomeDaCombo.Value = 1 Or me.NomeDaCombo.Value = 5 Then
    Me.NomeDaSelectBox.Value = -1
Else
    Me.NomeDaSelectBox.Value = 0
End If

Private Sub NomeDaCombo_AfterUpdate()
    If Me.NomeDaCombo.Value = 7269 Or Me.NomeDaCombo.Value = 7270 Then
        Me.NomeDaSelectBox.Value = -1
    Else
        Me.NomeDaSelectBox.Value = 0
    End If
End Sub

Private Sub SelectBox1_AfterUpdate()
    If Me.SelectBox1 = -1 Then Me.SelectBox2 = 0
    If Me.SelectBox1 = 0 Then Me.SelectBox2 = -1
End Sub

Private Sub SelectBox2_AfterUpdate()
    If Me.SelectBox2 = -1 Then Me.SelectBox1 = 0
    If Me.SelectBox2 = 0 Then Me.SelectBox1 = -1
End Sub

' ao clicar na caixa de seleção 1
Private Sub SelectBox1_AfterUpdate()
    ' se for marcada desmarca a caixa 2
    If Me.SelectBox1 = True Then
        Me.SelectBox2 = False
    ' se for desmarcada marca a caixa 2
    Else
        Me.SelectBox2 = True
    End If
End Sub

' ao clicar na caixa de seleção 2
Private Sub SelectBox2_AfterUpdate()
    ' se for marcada desmarca a caixa 1
    If Me.SelectBox2 = True Then
        Me.SelectBox1 = False
    ' se for desmarcada marca a caixa 1
    Else
        Me.SelectBox1 = True
    End If
End Sub