Visual Basic - OptionButton de un combobox anidado

Life is soft - evento anual de software empresarial
 
Vista:

OptionButton de un combobox anidado

Publicado por Flavia (30 intervenciones) el 01/12/2006 15:43:52
Hola,
Tengo lo siguiente:
3 opciones (optionbutton), una de ellas está conformada por un combobox que muestra dos campos (apellido y nombre) de una tabla sql. Eso funciona bien.
Ahora bien, lo que quiero es que si la opción elegida es la del combo, al elegir un apellido y nombre específicos me muestre el reporte correspondiente.
Gracias por la ayuda!

El código que tengo es:

Private Sub Command2_Click()
Dim usuario As String

If Option1.Value = True Then
usuario = Text8.Text
informecliente.Connect = "dsn=Servidor Ntsedes;uid=xxx;pwd=xxx"
informecliente.SQLQuery = "select * from Clientes where nro_doc = '" + Text8.Text + "'"
informecliente.Action = 1
End If

If Option3.Value = True Then
usuario = Text1.Text
informecliente.Connect = "dsn=Servidor Ntsedes;uid=xxx;pwd=xxx"
informecliente.SQLQuery = "select * from Clientes where id_cli = '" + Text1.Text + "'"
informecliente.Action = 1

if combo1.text = ¿? (NO SE COMO REFERENCIAR QUE SEA IGUAL AL NOMBRE Y APELLIDO ELEGIDOS A TRAVÉS DEL COMBO)

End If

End Sub

Private Sub Form_Load()
Set oconn = New ADODB.Connection
oconn.ConnectionString = "Provider=sqloledb;Data Source=NTSEDES;Initial Catalog=inmobiliarias;User Id=XXX;Password=XXX"
oconn.Open

Set ocmd = New ADODB.Command
ocmd.ActiveConnection = oconn
ocmd.CommandText = "select apell_cli, nom_cli from Clientes"
Set ors = ocmd.Execute

' arma el combo con apellido y nombre
Do While Not ors.EOF
Combo1.AddItem (ors.Fields("apell_cli").Value & ", " & ors.Fields("nom_cli").Value)
ors.MoveNext
Loop

End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder