[Resolvido]Clicar em botão abrir subform no registro corrente do form

Olá meu povo

Preciso de ajuda de vocês novamente.

Tenho um formulário de cadastro de paciente (CADPAC) e um subformulário, para cadastrar o procedimento deste paciente (CADPROC)

Preciso que ao clicar em um botão no formulário, abra o subformulário no registro corrente do formulário.

Desde já agradeço a ajuda de todos

Vanderlei

"Preciso de ajuda de vocês novamente."

Você não é novo no forum ?


Em relação à sua duvida, se o seu formulario tem dados então o seu subformulario tem de estar relacionado.
Se isso não acontecer, é porque existem quatro (4) situações;

1ª Ou o formulario e subformulario são desvinculados.

2º Ou a estrutura está mal montada.

3ª Ou eu não entendi nadica de nada.

4ª Ou você não se explicou bem.

Não sei se expressei bem, não gostaria de fazer o subform dentro do form principal, gostaria de chamar o subform através de um botão.

Form e subform tem tabelas distintas mas estão vinculadas.

Deixa eu explicar melhor. Tenho um cadastro de pacientes, o paciente pode se enquadrar em vários procedimentos.
Exemplo:
Cirurgia de Coronária,
Cirurgia de Válvulas,
Marcapassos

Para cada procedimento existe dados distintos, ai gostaria de fazer um formalario para cada vinculado ao cadastro do paciente

Pergunto: Como chamar estes formularios para inserir os dados do procedimento do paciente em questão (ativo)

Grato

Boa tarde!

Estou com o mesmo problema,
conseguiu resolver?

ou alguem consegue dar uma ajuda?

Consegui resolver o problema,

Segue abaixo resolução para conhecimento.

DoCmd.OpenForm "nome do subformulário", , , "campo a ser filtrado=" & valor do filtro

Código que usei no meu formulário:

Código:


Private Sub btn_dados_entrada_Click()


   Dim cod As Integer
   
    cod = Me.Cod_produto
   
       
   If Me.txt_linha_produto = 1 Then
   DoCmd.OpenForm "comercial", , , "Cod_produto=" & cod
 

   ElseIf Me.txt_linha_produto = 2 Then
   DoCmd.OpenForm "Comercial_LB", , , "Cod_produto=" & cod
     
   
   ElseIf Me.txt_linha_produto = 3 Then
   DoCmd.OpenForm "Comercial_SP", , , "Cod_produto=" & cod
   
   End If

End Sub



Vanderlei, conseguiu resolver?

Aguardamos...

resolvido