[Resolvido]Formulário desacoplado e controles

Olá pessoal, tudo bem?

Estou com um formulário desacoplado que carrega vários subform.

Quero usar um mesmo conjunto de botões para CRUD em cada subform que aparecer.

Não estou conseguindo usar a "Select Case" para capturar o nome do subform carregado

Código:

call fncAbrirSub(subform) <<<função "btn_click" do desacoplado que carregará outros

Código:

Private Function fncAbrirSub(ctl As Control)
Select Case ctl.Name 'MInha dúvida está aqui e no parâmetro
    Case "frm_Salario" 'Se o nome do form carregado
        MsgBox ("frm_salario ativo")
    Case "frm_Arquivo"  'Se o nome do form carregado
        MsgBox ("frm_arquivo ativo")
    Case Else
        MsgBox ("Case else")
    End Select
End Function


Desde obrigado pessoal

Boa tarde Rafael,

Na sua função, tente declarar uma variável com o tipo Access.SubForm no lugar do Control

Código:

Private Function fncAbrirSub(sfrm As Access.SubForm)
Select Case sfrm.Name 'MInha dúvida está aqui e no parâmetro
    Case "frm_Salario" 'Se o nome do form carregado
        MsgBox ("frm_salario ativo")
    Case "frm_Arquivo"  'Se o nome do form carregado
        MsgBox ("frm_arquivo ativo")
    Case Else
        MsgBox ("Case else")
    End Select
End Function

Na chamada da função coloque call fncAbrirSub(Me.Subform)

Espero que ajude.

Olá nobre amigo. Me ajudou muito no que se refere ao parâmetro. É isso mesmo, contudo, o objeto do Select foi mudado:

Código:

Private Function fncAbrirSub(ctl As Access.SubForm)
Select Case ctl.SourceObject
    Case "frm_Salario"
        MsgBox ("frm_salario")
    Case Else
        MsgBox ("Case else")
    End Select
End Function

Grato amigo.

Muito bom ter resolvido!

Sds