[Resolvido] Passando parâmetros direto pelo formulário

2024 - VBA & Macros

Post Recente por Kaleo_rs 4 anos atrás

3 Posts

2 Usuários

0 Reactions

1,270 Visualizações

RSS

Kaleo_rs

(@kaleo_rs)

Posts: 0

Trusted Member

Topic starter

Existe alguma forma de passar um ou mais parâmetros direto ao executar um formulário?

exemplo: FORMULARIO1.SHOW (PARAMETRO_1, PARAMETRO_2)

Não desejo criar um function que receba parâmetros e criar variáveis publicas para ser acessado pelo formulário. É preciso tratar os parâmetros para determinar o que o formulário vai mostrar, dentro da function consigo fazer, pois as vezes o PARAMETRO_2 poderá pode ser NULL. Após tratar os parâmetros executar o formulário.

O formulário já possui algumas rotinas desenvolvidas nele, queria desenvolver também as rotinas dos parâmetros dentro do formulários, como mencionei o resultado pode ser diferente tendo um só parâmetro preenchido e outro resultado com os dois preenchidos.

Postado : 05/06/2021 9:53 am

EdsonBR

(@edsonbr)

Posts: 1057

Noble Member

Postado por: @kaleo_rs

...Não desejo criar um function que receba parâmetros e criar variáveis publicas para ser acessado pelo formulário.

Vc poderia criar variáveis públicas não para serem acessadas pelo UserForm, mas sim no próprio módulo do UserForm. Por exemplo, no módulo do Userform FORMULARIO1 vc teria na área de declarações:

Public PARAMETRO_1 As Variant, PARAMETRO_2 As Variant

Aí em um módulo comum:

Sub AbreFormComParametros()
  Dim UF As New FORMULARIO1
  UF.PARAMETRO_1 = "Valor A"
  UF.PARAMETRO_2 = "Valor B"
  UF.Show False
  '...
  '...
  Unload UF
  Set UF = Nothing
End Sub