[Resolvido]Abrir formulario filtrado por uma combo

Olá amigos tenho mais uma duvida, tenho uma combo que quando clico em um item na lista que aparece ela atualiza uma list segue o código:

Private Sub Combo0_AfterUpdate()
Me!List2 = Null
Me!List2.Requery
DoCmd.GoToControl "List2"

End Sub

o que gostaria é de mudar ao invez de atualizar esta listbox, gostaria que fosse aberto um formulario e ai sim exibir essa listbox com os dados filtrados pela combo, e também gostaria de colocar uma caixa de texto ne formulario para que abrisse com o nome por exemplo no meu caso com o nome da rodovia. Não sei se consegui explicar mais se tiverem algum exemplo para disponibilizar para eu poder estudar como montar. Valeu grande abraços a todos Amanda

Estou enviando um exemplo do bd para ficar mais fácil a compreensão.

No form frmRodovia quero eliminar a listbox ficando somente a combox, ai abre ao form FormRodovia conforme mencionei

Ola Amanda bom dia;

No evento VBA depois de atualizar da sua combo, você tem de passar dois argumentos, com o OpenArgs;

Private Sub Combo0_AfterUpdate()
'passa dois argumentos para o segundo formulario
    DoCmd.OpenForm "FormRodovia", acNormal, , , acFormEdit, acWindowNormal, Me.Combo0.Column(0) & "|" & Me.Combo0.Column(1)
End Sub

Na abertura do segundo formulario, faz o Split dos argumentos e passa-os para as suas caixas de texto, que irão filtrar a lista;

Private Sub Form_Open(Cancel As Integer)
    If Me.txtCodRod = "" Or IsNull(Me.txtCodRod) Then
    Me.[txtCodRod] = Split(Me.OpenArgs, "|")(0)
    Me.[txtNomeRod] = Split(Me.OpenArgs, "|")(1)
    End If
    Me.Lista0.Requery
End Sub

Oi JPaulo bom dia, era isso mesmo que eu precisava, vou tentar entender sua explicação, desculpe os transtornos é que nunca fiz nehum curso o que estou aprendendo é aqui no forum, do mais muito obrigada mesmo, fica com Deus e até a próxima duvida. Amanda

Obrigado pelo retorno o forum agradece.

Olá JPaulo, fiquei quebrando a cabeça para tentar enter seu código e tentar fazer a implantação em outro formulario do mesmo jeito só que com mais campos na pesquisa, poderia ver e me ajudar a adaptar neste também, na certeza de ser atendida desde já agradeço Amanda

Obs os formularios são:

Form1

menu_principal

na caixa de texto digite uma opção

o código que está lá:

Private Sub Txt115_AfterUpdate()

If (DCount("Cod_Categoria", "Cons_CodCategoria", "[Cod_Categoria]=Forms![menu_principal]![Txt115]")) = 0 Then
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "frmMsgBox1"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Me.Txt115 = ""
DoCmd.CancelEvent




Else



stDocName = "Form1"

stLinkCriteria = "[Cod_Categoria]=" & "" & Me![Txt115] & ""
DoCmd.OpenForm stDocName, , , stLinkCriteria
Txt115.Value = ""

Me.Refresh

End If

End Sub

Eu vi que estava resolvido mas surgiu a duvida acima gostaria que fosse reaberto

Bom dia Amanda;

Bo dia JPaulo
Acabei de baixar vou levar para o trabalho e vou tentar enter como você fez, ficou ótimo.
Obrigada novamente Amanda

Obrigada pelo retorno o forum agradece.