Bom dia
a esta equipe
frm_Pedido
sub form = Frm_Totalização - botão btnRastrear
Que chama o forms: Frm_Movimento_Rastrear
Até tudo bem, mas ao clicar no Item BRA011200000091 no formulario aparece o item correspodente mas outros lancamentos não desejado,
conforme abaixo
Variaveis: Doc_tec e Cod_Empresa
Segue codigo utilizado
Private Sub btnRastrear_Click()
On Error Resume Next
Dim strDocName As String
Dim strFilter As String
strDocName = "Frm_Movimento_Rastrear"
strFilter = "doc_tec&cod_Empresa=Forms!frm_Pedido!Frm_Totalização!doc_tec&cod_Empresa"
DoCmd.OpenForm strDocName, acViewNormall, , , acHidden
DoCmd.OpenForm "Frm_pedido"
End Sub
Como devo proceder para corrigir o problema..
Desculpe estar encomodando novamente...
Segue Projeto anexo
a esta equipe
frm_Pedido
sub form = Frm_Totalização - botão btnRastrear
Que chama o forms: Frm_Movimento_Rastrear
Até tudo bem, mas ao clicar no Item BRA011200000091 no formulario aparece o item correspodente mas outros lancamentos não desejado,
conforme abaixo
Variaveis: Doc_tec e Cod_Empresa
Segue codigo utilizado
Private Sub btnRastrear_Click()
On Error Resume Next
Dim strDocName As String
Dim strFilter As String
strDocName = "Frm_Movimento_Rastrear"
strFilter = "doc_tec&cod_Empresa=Forms!frm_Pedido!Frm_Totalização!doc_tec&cod_Empresa"
DoCmd.OpenForm strDocName, acViewNormall, , , acHidden
DoCmd.OpenForm "Frm_pedido"
End Sub
Como devo proceder para corrigir o problema..
Desculpe estar encomodando novamente...
Segue Projeto anexo
- Anexos
- Unid_Const_Projeto.zip
- Visualizar somente item selecionado - Pelo Formulario
- Você não tem permissão para fazer download dos arquivos anexados.
- (337 Kb) Baixado 4 vez(es)