Passando parâmetros...
 
Notifications
Clear all

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


Kaleo_rs
Posts: 80
Registered
Topic starter
(@kaleo_rs)
Trusted Member
Entrou: 7 anos atrás

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.

Responder
2 Respostas
EdsonBR
Posts: 896
Moderator
(@edsonbr)
Prominent Member
Entrou: 6 anos atrás
 
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
Responder
Kaleo_rs
Posts: 80
Registered
Topic starter
(@kaleo_rs)
Trusted Member
Entrou: 7 anos atrás

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

Responder