[Resolvido]Como Abrir Formulário Recebido por Parâmetro em um Módulo de Classe?

Boa tarde MS Kid,

Para se pegar qualquer coisa de um form "especifico" tem que se dar referencia ao objeto ou seja o nome do form, mas o que eu não entendi é o que vc quer pegar nesse form?, que "parametro" é esses em questão.

Veja isso:
http://msdn.microsoft.com/en-us/library/aty3352y.aspx
esta em inglês - só traduzir.

Aguardo...

boa tarde, Silvanio.

tudo bem?

esse é o código da classe clsFormulario:

Código:

Option Compare Database
Option Explicit

Private WithEvents frmFormulario As Form

Public Event Abrir(Cancel As Integer)
Public Event Carregar()
Public Event Descarregar(Cancel As Integer)
Public Event Fechar()

Public Property Set Formulario(frmForm As Form)
    Set frmFormulario = frmForm
    
    frmFormulario.OnOpen = "[Event Procedure]"
    frmFormulario.OnLoad = "[Event Procedure]"
    frmFormulario.OnUnload = "[Event Procedure]"
    frmFormulario.OnClose = "[Event Procedure]"
End Property

Public Sub Mostrar()
    frmFormulario.Visible = True
End Sub

Private Sub frmFormulario_Open(Cancel As Integer)
    RaiseEvent Abrir(Cancel)
    MsgBox "evento Abrir na classe clsFormulario"
End Sub

Private Sub frmFormulario_Load()
    RaiseEvent Carregar
End Sub

Private Sub frmFormulario_Unload(Cancel As Integer)
    RaiseEvent Descarregar(Cancel)
End Sub

Private Sub frmFormulario_Close()
    RaiseEvent Fechar
End Sub

Private Sub Class_Terminate()
    Set frmFormulario = Nothing
End Sub

e esse é o código do formulário que criei para teste, só para instanciar o objeto da classe clsFormulario:

Código:

Option Compare Database
Option Explicit

Private Sub btnTeste_Click()
    On Error GoTo TratarErro
    
    Dim objTela As clsFormulario
        
    Set objTela = New clsFormulario

    'Aqui, eu quero passar um objeto Form como parametro, ao invés do nome do Form    
    objTela.Formulario (Application.CurrentProject.AllForms("frmTela"))
    objTela.Mostrar
        
SairErro:
    'Set objTela = Nothing
    Exit Sub
TratarErro:
    Resume SairErro
End Sub

Obrigado.

boa tarde, pessoal.
alguém sabe fazer isso em VBA?

Olá. Se vc explicar ,melhor oque quer acho que rapidinhos irão te ajudar.. Abraço

eu quero criar um form no Access, criar uma classe que receba esse form como parametro e abrir esse form atraves dos objetos dessa classe.

Boas amigos só uma pergunta, que classe seria esta que vc se refere?

segue o código da classe clsFormulario, que recebe um form como parâmetro:

Código:

Option Compare Database
Option Explicit

Private WithEvents frmFormulario As Form

Private Sub Class_Initialize()
    Set frmFormulario = Nothing
End Sub

Private Sub Class_Terminate()
    Set frmFormulario = Nothing
End Sub

Public Property Set Formulario(frmForm As Form)
    Set frmFormulario = frmForm
End Property

Public Sub AbrirFormulario()
    frmFormulario.Visible = True
End Sub

eu quero criar um objeto dessa classe clsFormulario e carregar um formulário, passado por parâmetro, que já foi criado no Access e que se encontra fechado. eu obtenho esse form já criado previamente através de Application.CurrentProject.AllForms("nomeDoForm").

esse é o código onde eu crio o objeto da classe clsFormulario:

Código:

Option Compare Database
Option Explicit

Private Sub btnTeste_Click()    
    Dim objTela As clsFormulario
    
    Set objTela = New clsFormulario
    
    objTela.Formulario = Application.CurrentProject.AllForms("frmTela")
    objTela.AbrirFormulario
End Sub

MS Kid, algum avanço com a dúvida deste tópico?

obrigado pessoal!