[Resolvido]OpenForm em módulo

Function OpenForm(strNomeArquivo As String) As Boolean
DoCmd.OpenForm (strNomeArquivo), , , , acNormal
End Function

Tentei correr código num form "Call OpenForm" e dá erro
alguém me pode ajudar

Luís Antunes

Olá Luis, como chamou a função.

Abraço

No form Call.OpenForm(menu)

O bug está no (menu)

Luís Antunes

Olá Luis,

Altere a sua função assim:

Código:

Function fncOpenForm(strNomeForm As String) As Boolean
    DoCmd.OpenForm (strNomeForm), , , , acNormal
End Function

Não devemos ter nomes reservados para as funções.

Para chamar:

Código:

Call fncOpenForm("menu")

Abraço

Resultou
Fico grato pele ajuda

Luís Antunes

Olá Luís Antunes,
Obrigado pelo retorno, os utilizadores do fórum agradecem.
Abraçp