Olá, Pessoal!
Tenho um Formulário de Cadastro de Produto, e tenho mais de 1.700 registros. Criei um novo Formulário de Pesquisa de Produto. Quando dou dois cliques na Caixa de Listagem, no registro que localizei, ele fecha o Formulário de Pesquisa e abre o de Cadastro de Produtos e vai para o Registro que foi dado os dois cliques.
Então, vem o problema!
É criado um filtro e o contador de registo marca "1 de 1" e fica preso só neste registro. Não permite que eu navegue nos demais registros.
Private Sub ListPesqProduto_DblClick(Cancel As Integer)
FiltroCodigo = "[CodProduto]=[Forms]![FrmPesqProduto]![ListPesqProduto]"
Forms!frmCadProduto!CodProduto = Me.ListPesqProduto.Column(0)
DoCmd.GoToRecord acDataForm, "FrmCadProduto", acGoTo
Fiz de outra maneira! Melhorou mas não resolveu.
Private Sub ListPesqProduto_DblClick(Cancel As Integer)
DoCmd.OpenForm "FormulárioProduto", acNormal, "", , , acWindowNormal > está abrindo normal
DoCmd.SelectObject acForm, "FrmPesqProduto" > também funciona normal
MsgBox Me.ListPesqProduto.ListIndex > aqui aparece o seguinte: se estou no registro de numero 17 - por exemplo - ele mostra o registro 16
DoCmd.GoToRecord acForm, "FormulárioProduto", acGoTo, Me.ListPesqProduto.Column(0)
> aqui, ao abrir o formulário(FormulárioProduto) no seu contador de registros mostra " 17 de 1716" mas, no campo Código do Produto deste
Fomulário, mostra o registro 317. E este registro não é o que foi clicado duas vezes na listbox(ListPesqProduto) no Formulário de Pesquisa.
DoCmd.Close > Fecha o FormulárioPesquisa
Desde já agradeço a ajuda de todos.