Abrir un formulario según el combo

Hola experto, tengo un duda que me está volviendo loco, quiero abrir un formulario según de lo que selecciones en un combo combinado, Si selecciones intersecciones se abre un formulario y si pones marques viales se abre otro diferente.
Private Sub Opcions_de_recerca_AfterUpdate()
Dim vInterseccions As Variant
Dim vMarques_Vials As Variant
vInterseccions = Me.Opcions_de_recerca.Value
vMarques_Vials = Me.Opcions_de_recerca.Value
If (vInterseccions) Then
DoCmd.OpenForm "Amidaments per interseccions", , , "[Tipus de fitxa] = 'intersecciones'" & vInterseccions & "'"
Else
If (vMarques_Vials) Then
DoCmd.OpenForm "Amidaments per marques vials", , , "[Tipus de fitxa]= 'marques vials'" & vMarques_Vials & "'"
Else
End Sub

0

Añade tu respuesta

Haz clic para o