Passando parâmetros...
 
Notifications
Clear all

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

3 Posts
2 Usuários
0 Likes
983 Visualizações
Kaleo_rs
(@kaleo_rs)
Posts: 89
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: 1056
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

 
Postado : 11/06/2021 9:41 am
Kaleo_rs
(@kaleo_rs)
Posts: 89
Trusted Member
Topic starter
 

Foi exatamente essa solução que eu implementei.

Pela resposta do Mestre, não deve ser possível da forma que questionei.

Valeu pela ajuda EdsonBR

 
Postado : 17/06/2021 4:46 pm