FORM

ALMARTI 17/12/2003 08:19:45
#1297 Resposta escolhida

Num Módulo:
Option Explicit
Public NumerodoCombo as Integer 'Para o caso de um número inteiro

Na combo, para o caso do seu form2 não estiver aberto
Private Sub Combo1_Click()
NumerodaCombo = Combo1.Text
End Sub

Na combo, para o caso do seu form2 estiver aberto
Private Sub Combo1_Click()
form2!text2.Text=Combo1.text
End Sub

Ainda para o caso do seu Form2 não estiver aberto
Private Sub Form_Load()
Text2.Text=NumeroDaCombo
End Sub