[Resolvido]Filtro Formulário Continuo

Prezados amigos, conforme navegando pelo Fórum encontrei o seguinte código :

Private Sub bt_filtro_Click()
Dim filtro$
Me.FilterOn = False
filtro = "dataentr between #" & Format(Me!di, "mm/dd/yyyy") & "# AND #" & Format(Me!df, "mm/dd/yyyy") & "#"
filtro = filtro & "OR data30dd between #" & Format(Me!di, "mm/dd/yyyy") & "# AND #" & Format(Me!df, "mm/dd/yyyy") & "#"
filtro = filtro & "OR data60dd between #" & Format(Me!di, "mm/dd/yyyy") & "# AND #" & Format(Me!df, "mm/dd/yyyy") & "#"
filtro = filtro & "OR data90dd between #" & Format(Me!di, "mm/dd/yyyy") & "# AND #" & Format(Me!df, "mm/dd/yyyy") & "#"
filtro = filtro & "OR data120dd between #" & Format(Me!di, "mm/dd/yyyy") & "# AND #" & Format(Me!df, "mm/dd/yyyy") & "#"
filtro = filtro & "OR data180dd between #" & Format(Me!di, "mm/dd/yyyy") & "# AND #" & Format(Me!df, "mm/dd/yyyy") & "#"
Me.Filter = filtro
Me.FilterOn = True
End Sub

ele está no link

Esse código é perfeito postado pelo mestre Avelino para filtrar entre datas.
No meu caso o campo que eu quero filtrar não tem o formato de data e sim formato de texto.
É campo com nome de Código_Ordem_Fabricação.
Resumindo gostaria de filtrar de Código_Ordem_Fabricação até Código_Ordem_Fabricação no formulário continuo.

http://maximoaccess.forumeiros.com/t17720-resolvidofiltrar-varias-datas-em-diferentes-campos-no-formulario-continuo#149118

Acho que me expressei mal me desculpe.
Em meu formulário continuo tem uma coluna de Código_Ordem_Fabricação.
Código_Ordem_Fabricação
14-01
14-02
14-03
14-04
14-05
14-06
Quero criar 2 campos e 1 botão:
Campo 1 = Código_Ordem_Fabricação_De
Campo 2 = Código_Ordem_Fabricação_Até
E ao clicar no botão aparece no formulário continuo a sequencia que eu solicitei.
Por exemplo:
quero ver as Ordens de fabricação do código 14-01 até 14-04 ou do código 14-04 até 14-06

Teste.

If Not IsNull(Me.DataInicial) And Not IsNull(Me.DataFinal) Then

Me.Filter = "[DataDeFabricação] Between #" & Format$(Me![DataInicial], _
"mm/dd/yyyy") & "# And #" & Format$(Me![DataFinal], "mm/dd/yyyy") & "#"
Me.FilterOn = True

End If

É dessa maneira eu já consegui !
Gostaria de filtrar como explique a cima pelos códigos....

Boa Tarde

Teste

-Crie as 1 comboInicio e 1 ComboFinal
-Fonte de Registros das combos com campos da tabela ou consultas a serem filtradas
-Fonte de Origem do formulário vincular talela ou consulta pelo select clicando nos (...)
-Adicionar campo a ser filtrado
-No Criterio deste campo
Entre [Forms]![NomeDoFormulário]![ComboInicial] E [Forms]![NomeDoFormulário]![ComboFinal]

Espero que seja isto

Abraços

Boas

Faltou os critérios para botão

No evento ao Clicar Cole:

Me.FilterOn = False
DoCmd.ShowAllRecords
Me.Form.Requery


Veja a necessidade do Me.FilterOn = False ou True

Abraços

Cara !!!!!!!!!!
Valeu !!!!!!!!!
Falta de Raciocínio meu.
Muito obrigado !

Resolvido.

Boas
Que bom poder ter ajudado....
Então de o Tópico como Resolvido
Clique em responder mensagem, digite mensagem, no final da pagina Clic primeiro no Botão "Resolvido" e depois em "Enviar" ... Veja como no Link abaixo

Abraços

http://maximoaccess.forumeiros.com/t860-resolucao-de-topicos

Resolvido !

Boas

O Fórum agradece seu retono e até a proxima

Abraços