[Resolvido] Abrir form a partir de opção na combobox

[slcarline 0]

Pessoal,

 

estou tentando abrir forms diferentes para cada opção da combobox. O problema é que quero colocar somente um botão OK para as 3 opções, e aí que vem o problema, pq mesmo que eu selecione as 2 primeiras opções, apenas o último form é carregado.

Estou usando o código abaixo para tentar resolver esse problema.

 

Private Sub Combo1_Change()

Select Case Combo1

Case "Padrão"

numero_lista = 1

FrmIncluirData_estPadrao.Show

Case "Padrão Ajustado"

numero_lista = 2

FrmIncluirData_estPadraoAjustado.Show

Case "In/Out"

numero_lista = 3

FrmIncluirData_estInOut.Show

 

Private Sub btnOK_click()

If numero_lista = "1" Then

FrmIncluirData_estPadrao.Show

ElseIf numero_lista = "2" Then

FrmIncluirData_estPadraoAjustado.Show

Else: numero_lista = "3"

FrmIncluirData_estInOut.Show

End If

End Sub

[sNniffer 1]

Bom faz isso.

 

Private Sub btnOK_click()

if combobox.text= "Padrão" then

FrmIncluirData_estPadrao.Show

 

elseif combobox.text= "Padrão Ajustado" then

FrmIncluirData_estPadraoAjustado.Show

 

elseif combobox.text= "In/Out" then

FrmIncluirData_estInOut.Show

 

end if

end sub

[slcarline 0]

Bom faz isso.

 

Private Sub btnOK_click()

if combobox.text= "Padrão" then

FrmIncluirData_estPadrao.Show

 

elseif combobox.text= "Padrão Ajustado" then

FrmIncluirData_estPadraoAjustado.Show

 

elseif combobox.text= "In/Out" then

FrmIncluirData_estInOut.Show

 

end if

end sub

 

 

Valeu sNiffer, funcionou do jeito que eu queria!

Obrigado.