[Resolvido]Passar um formulário como parâmetro

Pessoal boa tarde,

Sou novo neste fórum, estou iniciando meu aprendizado em Access VBA, não sei se estou postando no lugar correto mas minha dúvida é a seguinte:

Gostaria de transformar a Sub abaixo em uma Função que servirá para qualquer formulário.... A Sub é esta:

Public Sub acesso_pri_registro()
   Dim c As Integer
   c = Form_frmAcesso.RecordsetClone.RecordCount
   If c = 1 Then
       Form_frmAcesso.btnAnterior.Enabled = False
       Form_frmAcesso.btnProximo.Enabled = False
   ElseIf Not Form_frmAcesso.NewRecord Then
       If Form_frmAcesso.CurrentRecord = 1 Then
           Form_frmAcesso.btnAnterior.Enabled = False
           Form_frmAcesso.btnProximo.Enabled = True
       End If
   End If
end Sub

Agradeço desde já.

Boa noite,

1- crie um modulo
2 - no modulo crie uma função desse jeito:

Function acesso_pri_registro(formulario as Form)
... seu codigo aqui

End Function

ai para usar coloque no evento "ao abrir" do formulario por exemplo.

Caro ronaldo1rj,

Obrigado pela resposta.

Então eu substituo o Form_frmAcesso pela variável formulário e chamo a função passado o nome do formulário como parâmetro? É isso!?

Boa Tarde Ido,
Então eu substituo o Form_frmAcesso pela variável formulário e chamo a função passado o nome do formulário como parâmetro? É isso!?
Mais ou menos isso,
vou te mostrar o jeito que eu faço:

exemplo de uma função que centraliza os formulários de acordo com as regras que me baseio pelo nome.

Código:

'evento ao carregar do formulário
Private Sub Form_Load()
 Call centralizarForm(Me)
End Sub


'no mudulo
Public Function centralizarForm(formulario As Form)
If formulario.Name = "Fornecedor" Then
    formulario.Move 6500, -400
Else
    formulario.Move 3500, -400
End If
End Function


Caro ronaldorj1,

Muito obrigado, consegui resolver.

Boa noite,
O fórum agradece o retorno.

Abraço