Olá pessoal,

Estou fazendo uma função e não estou conseguindo fazer com que o Access possa distinguir a variável.
Alguem poderia me ajudar ?


Function Abre_Form(strForm As String)

Forms![ & strForm & ].[Detalhe].BackColor = 0
Forms![ & strForm & ].[CabeçalhoDoFormulário].BackColor = 0
Forms![ & strForm & ].[RodapéDoFormulário].BackColor = 0

DoCmd.Maximize
DoCmd.GoToRecord , , acNewRec

End Function


Valeu

Use a Function desse jeito:
'-------------------------------------------
Function Abre_Form(strForm)
With strForm
.[Detalhe].BackColor = 0
.[CabeçalhoDoFormulário].BackColor = 0
.[RodapéDoFormulário].BackColor = 0
End With
End Function
'-------------------------------------------

Para chamar a Function digite:

Call Abre_Form(Me)


Ewoks

Desta forma ele dá erro no .[Detalhe].BackColor = 0

Erro de Execução 424
O Objeto é Obrigatório.

Nada.

Olá,utilizando a expressão abaixo funcionou perfeitamente:

Forms!NomeDoForm.Section(acDetail).BackColor = 0

O problema Jorge é que quero colocar isso num Módulo e preciso que o nome do Form seja dinamico. pois só vou chamar a função na abertura de cada form.

É só substituir o NomeDoForm por uma variável que represente o form atual.

Já tentei, Não funciona

Veja se isto pode ajudar - a Sub seguinte determina o Nome do Form ativo:

Sub FormAtivo()
Dim frm As Form
Set frm = Screen.ActiveForm
MsgBox frm.Name
End Sub

Raphaels, sua funcao Abre_Form pode funcionar da seguinte forma:

Public Function Abre_Form(ByRef f As Form)
    
    f.[Detalhe].BackColor = 0
    f.[CabeçalhoDoFormulário].BackColor = 0
    f.[RodapéDoFormulário].BackColor = 0
    
    DoCmd.Maximize
    DoCmd.GoToRecord , , acNewRec
    
End Function

Em vez de passar o nome do form para a Funcao passe o proprio form.
Que funcao eh essa que nao tem retorno?

Cordial cumprimento.

Oi Leonardo, pegando uma carona no tópico:

Como essa função poderia ser chamada ?

Grata, Andrea.

Chame-a da seguinte forma:

Abre_Form(Forms![nome_do_form])

Cordial cumprimento.

Beleza funcionou !

Chamei da seguinte forma:
Call Abre_Form(Forms![nome_do_form])

A Funciont não está completa, só foquei a parte do erro.

Obrigado pelo apoio.