[Resolvido]Referência a SubForm em um módulo

Saudações a todos!

Gostaria de uma ajuda, por favor.

Num módulo qualquer do BD tenho a seguinte situação:



Public Sub NomeDoModulo(SubForm)

Dim FormAtualAberto As Form

...

Set FormAtualAberto = Forms(SubForm)

...

End Sub




A questão é: como fazer referência ao subformulário na expressão 'Forms(SubForm)', da maneira correta?

Grato desde já.

Já tentou assim?

Forms(SubForm).Form

Já tentei, mas não funcionou.

Na verdade eu preciso saber qual a referência que devo colocar quando chamar o módulo de dentro do formulário principal.

a princípio coloquei 'Call NomeDoModulo(Forms!FormPrincipal!SubForm.Form.Name)', mas não está funcionando.

Olá

Vc pode usar assim:

Código:

Public Sub NomeDoModulo(frm as form, ctl as string)
  NomeDoModulo = frm(ctl)
end sufunction

Supondo que vc queira retornar com um valor de um campo do subformulário, estando no formulário principal

msgbox NomeDoModulo(me!NomeControleSubFormulário.form,"operadora")

Se desejar um valor do controle formulário principal

msgbox NomeDoModulo(me,"DataNascimento")

Veja maiores detalhes, sobre referências, nestes meus dois artigos


http://www.usandoaccess.com.br/tutoriais/tuto52.asp?id=1#inicio

http://www.usandoaccess.com.br/tutoriais/tuto53.asp?id=1#inicio

Sucesso!

Obrigado Criquio e Avelino, mas ainda não é isso.

Vou tentar um exemplo prático:

Tenho um formulário não acoplado e nesse formulário tem um subformulário.
Carrego esse formulário através de uma listbox onde seleciono o registro que desejo abrir.
Chamo um módulo para isso através da linha abaixo.

Call CarregaRegistro("SELECT * FROM tblclientes WHERE CodigoDoCliente = Me.MinhaLista.Column(0);", Me.Form.Name)

Código:

Public Sub CarregaRegistro(txtSQL, MeuForm)

    Call AbrirConexao(txtSQL, "rst")      'Abre a conexão

    Dim FormAtualAberto As Form

    If Not (rst.BOF And rst.EOF) Then

        Set FormAtualAberto = Forms(MeuForm)
         
       
        For Each Controle In FormAtualAberto
     
            If TypeOf FormAtualAberto.Controls(Controle.Name) Is TextBox _
              Or TypeOf FormAtualAberto.Controls(Controle.Name) Is OptionGroup _
              Or TypeOf FormAtualAberto.Controls(Controle.Name) Is CheckBox _
              Or TypeOf FormAtualAberto.Controls(Controle.Name) Is ComboBox Then
   
                FormAtualAberto.Controls(Controle.Name) = rst(Controle.Name).value
               
            End If
        Next
    End If

End Sub

O formulário carrega sem problemas, mas quando tento utilizar o mesmo procedimento para carregar o subformulário (a partir do formulário principal), dá erro na linha 'Set FormAtualAberto = Forms(MeuForm)'.

Creio que tenha ficado mais claro o que pretendo.

Grato.

Creio que vc não tenha prestado atenção no ultimo link que te passei.

Código:

Public Sub CarregaRegistro(txtSQL, frm as form)

    Call AbrirConexao(txtSQL, "rst")      'Abre a conexão

    If Not (rst.BOF And rst.EOF) Then

        For Each Controle In frm
     
            If TypeOf FormAtualAberto.Controls(Controle.Name) Is TextBox _
              Or TypeOf FormAtualAberto.Controls(Controle.Name) Is OptionGroup _
              Or TypeOf FormAtualAberto.Controls(Controle.Name) Is CheckBox _
              Or TypeOf FormAtualAberto.Controls(Controle.Name) Is ComboBox Then
   
                Frm.Controls(Controle.Name) = rst(Controle.Name).value
               
            End If
        Next
    End If

End Sub

Para um formulário:

Call CarregaRegistro("SELECT * FROM tblclientes WHERE CodigoDoCliente = Me.MinhaLista.Column(0);", Me)


Para um subformulário:

Call CarregaRegistro("SELECT * FROM tblclientes WHERE CodigoDoCliente = Me.MinhaLista.Column(0);", Me!NomeDoControleSubFormulário.form)


Sucesso!

Valeu Avelino!

Realmente não havia percebido a alteração feita no código. Resolvido.

Um forte abraço.

Favor marca com resolvido.

Ok.