[Resolvido]Openform com o FormName variável

Bom dia,

trabalho com vários formulários, o FormName do codigo pode ser variável, a partir de um textbox como é o CodigoEvento neste caso?

DoCmd.OpenForm "????", acNormal, , "CodigoEvento =" & Me.CodigoEvento



Obrigado


Fabio

Fabio,

Pelo que entendi você tem mais de um formulário com o campo 'CodigoEvento' em comum e você indicará através de um campo de texto qual o formulário que será chamado ...

É isso mesmo???

Exatamente...

Fábio,

Teste aí veja se vai funcionar ...

Código:

On Error GoTo OpenForm_Err
':: Author: Uilson Barbosa de Oliveira
':: e-Mail: uilsonbrasil@hotmail.com
':: To: Forum Maximo Access
':: Date: 26/07/2014 (11:30)

If (IsNull(SUATEXTBOX)) Then Exit Sub 'Se sua caixa de texto for nulo a ação é cancelada

Dim tempvars As Variant
tempvars = SUATEXTBOX
DoCmd.OpenForm tempvars, acNormal, , "CodigoEvento =" & CodigoEvento 'Abre o form informado na caixa de texto devidamente filtrado

OpenForm_Exit:
    Exit Sub

OpenForm_Err:
    MsgBox Error$ 'Exibe mensagem de erro caso ocorra
    Resume OpenForm_Exit

Abraços,

Perfeito Uilson,


Muito obrigado


Fabio

Obrigado você pelo retorno.

Sugestão: Ao invés de utilizar de uma caixa de texto porquê não utiliza uma caixa de combinação com base em uma lista ou tabela já com os nomes dos formulários.

Abraços,