[Resolvido]RecordSource

Prezados,

Tenho 3 tabelas: a primeira com informações de documentos por mês . A segunda tabela é sobre as informações (+ detalhadas) desses documentos e a terceira é relacionada a segunda (de um p/muitos).

Quando abra o cadastro de documentos (formulário com origem na tabela 2) e visualizo os códigos posso ver por exemplo que o documento 4913 tem 4 documentos vinculados a ele (subform{tab 3}) da terceira tabela .

No formulário tenho uma combo onde exibo os códigos de documentos. Ao selecionar o documento 4913 na combo 'Doc' e clicar para 'filtrar documento' o formulário de cadastro é aberto , mas não me mostra os 4 documentos vinculados no subform .

agradeço antecipadamente a atenção. (banco anexo)

Olá M2013,

Modifique o código no formulário frm_Acomp_Ed2 no evento Form_Current utilizando a função IsLoaded para limitar o carregamento dos dados no subformulário a abertura do formulário frm_Acompanhamentos. Funfou aqui muito bem !!!:

Código:


Private Sub Form_Current()
On Error Resume Next
Dim fonte_COMPR, sc

If Not CurrentProject.AllForms(frm_Acompanhamentos).IsLoaded Then  <===========
sc = Forms![frm_Acompanhamentos].Lst_Acompanhamentos
anoacomp = Right$(sc, 4)
Else
Exit Sub
End If






  
End Sub

Já que estava a mexer, aqui vai a minha dica;

No botão de pesquisa do form "frm_Acomp_Ed2";

Código:

Private Sub Comando88_Click()
Dim intID As Integer

On Error GoTo Err_Comando264_Click

intID = 0

    If Me.Cbo_COMPR <> "" Then
            intID = Me!Cbo_COMPR.Column(0)
                    DoCmd.OpenForm "frm_Pedidos", acNormal
                    DoCmd.ShowAllRecords
            DoCmd.ApplyFilter , "[Nº doc] = " & intID
        Else
        Exit Sub
    End If

Exit_Comando264_Click:
Exit Sub

Err_Comando264_Click:
   MsgBox "", vbInformation, NomePrograma
   Resume Exit_Comando264_Click
End Sub


Prezados good guy e JPaulo muito obrigado pela resposta.Funcionou perfeitamente !

Já agora, qual das opções?

Utilizei a sua solução JPaulo.
Só uma curiosidade, por Recordsource não haveria possibilidade de solução não é?

abraço