[Resolvido]botoes com filtro no formulario

Boa tarde
Gostaria de pedir uma ajuda, estou fazendo um programa onde tem dois formulario ( Frm_Produção e Frm_Expedição ) e uma tabela (Tbl_cadprograma) nessa tabela tem uma coluna nomeada de (programa) onde e salvo o nome do formulario.
Em cada formulario eu fiz  dois botoes ( Ultimo registro e registro anterior) eu presciso que os botoes do formulario Produção busque somente os registro produçao na coluna programa da Tabela,  isso é para os dois formulario, cada um busca sua informação.

nos botoes eu estou usando os codigo

Private Sub Btr_Registro_anterior_Produçao_Click()
DoCmd.RunCommand acCmdRecordsGoToPrevious
End Sub

Private Sub Btr_Ultimo_Registroproduçao_Click()
DoCmd.RunCommand acCmdRecordsGoToLast

End Sub

sera que isso e possivel

obrigado desde ja .

Olá, ficou meio confusa sua duvida...
Veja se é isso:
Tem uma tabela onde salva dados com Dois formulários diferentes... Tem um campo nessa tabela que grava o nome do Formulário que salvou os dados...


Agora quer que o Formulário A somente navegue entre seus registros e que não enxergue os registros do Formulário B???

Fabio é isso mesmo, desculpa se nao expliquei melhor, vai ter situacoes que os dois formularios vao ser usados ao mesmo tempo em computadores diferentes e com os botoes ficara mas facil para o usuario.
Estou enviando o arquivo.

Amigo, então basta na origem dos dados desse formulário fazer uma consulta, e no campo que armazena o nome do formulário, coloque o nome do formulário...

Na consulta pro formulário A, no critério coloque ="FormularioA" e no B ="FormularioB".

Tente, se nao conseguir avisa!

obrigado Fabio
deu certo o filtro, mas no botao ultimo registro nem sempre traz o ultimo registro e o botao registro anterior nao traz ordenado, mesmo depois de atualizar o sistema
coloquei para classificar o campo codigo na consulta mas nao vem ordenado.

Posta essa versão com as mudança que recomendei, informe o nome dos formulários e posta aqui por favor!

segue arquivo

fabio, o formulario que esta com os botoes e o Frm_produção, a consulta e Tbl_cadprograma_Consulta, os botoes sao os azul.
A intenção e fazer o mesmo procedimento no formulario Frm_Expediçao.

Mude a Origem dos dados do Formulario Produção para:
Apague o que tem la e cole isso:

Código:

SELECT Tbl_cadprograma.Código, Tbl_cadprograma.Programa, Tbl_cadprograma.Fabrica, Tbl_cadprograma.[Tipos de Atividade Extra], Tbl_cadprograma.Prioridade, Tbl_cadprograma.[Aplicação Mae], Tbl_cadprograma.[Aplicação Filha], Tbl_cadprograma.Atividade, Tbl_cadprograma.Cliente, Tbl_cadprograma.Destino, Tbl_cadprograma.Transportadora, Tbl_cadprograma.Diametro, Tbl_cadprograma.Madeira, Tbl_cadprograma.ROTAS, Tbl_cadprograma.Pega, Tbl_cadprograma.[Tipo de Madeira], Tbl_cadprograma.Composição, Tbl_cadprograma.[Caracteristica do Tubo], Tbl_cadprograma.[Tubos por carreta], Tbl_cadprograma.[Quantidade de Carretas], Tbl_cadprograma.[Tubos a Carregar], Tbl_cadprograma.[Tubos a Produzir], Tbl_cadprograma.[Pacotes a Produzir], Tbl_cadprograma.[Tubos Por Pacotes], Tbl_cadprograma.Pacotes, Tbl_cadprograma.PQL_1, Tbl_cadprograma.[Lado 1], Tbl_cadprograma.PQL_2, Tbl_cadprograma.[Lado 2], Tbl_cadprograma.PQL_3, Tbl_cadprograma.[Lado 3], Tbl_cadprograma.PQL_4, Tbl_cadprograma.[Lado 4], Tbl_cadprograma.PQL_5, Tbl_cadprograma.[Lado 5], Tbl_cadprograma.PQL_6, Tbl_cadprograma.[Lado 6], Tbl_cadprograma.[Data do programa], Tbl_cadprograma.[Data de prazo], Tbl_cadprograma.[Data do Realizado], Tbl_cadprograma.[Horario Realizado], Tbl_cadprograma.Status, Tbl_cadprograma.OBS, Tbl_cadprograma.Impacto, Tbl_cadprograma.[Comentario da Atividade Realizada], Tbl_cadprograma.[Atividades Realizada], Tbl_cadprograma.[Comentario do Impacto] FROM Tbl_cadprograma WHERE (((Tbl_cadprograma.Programa)="Produção") AND ((Tbl_cadprograma.Status)="Em Processo")) ORDER BY Tbl_cadprograma.Código DESC;

Deverá Funcionar!

Bom dia Fabio

deu certo, pelo menos esta funcionando, eu troquei os botoes de ultimo para primeiro e de anterior para proximo.

Obrigado pelas dicas

Resolvido, obrigado

Grato pelo Retorno Amigo! Ate a Proxima se Deus quiser.