Saludos, tengo el sig problema, espero puedan ayudar, tengo 2 listas, las 2 muestran lo mismo que son los nombres del campo Operacion, la primera lista es para la unidad que se tiene, y la segunda a la que se desea convertir.
Código:
Tabla: Operaciones
Campos:
Id, Opcion, mm, cm, m, km
1 mm
2 cm
3 m
4 km
Los campos mm, cm, m y km, tienen los valores por los que se multiplica
Codigo:
Dim rs As ADODB.Recordset
Private Sub Form_Load()
Set rs = New ADODB.Recordset
With rs
.ActiveConnection = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & "C:\Ruta\Base.mdb"
.CursorType = adOpenStatic
.CursorLocation = adUseClient
.Open "Select * from Operacion"
End With
Do Until rs.EOF
List1.AddItem rs!Opcion
List2.AddItem rs!Opcion
rs.MoveNext
Loop
End Sub
Private Sub Command1_Click()
rs.MoveFirst
rs.Find "Opcion = '" & List1.Text & "'"
op1= rs!Opcion
rs.MoveFirst
rs.Find "Opcion = '" & List2.Text & "'"
op2= rs!Opcion
Resultado = Numero.text * Variablequenoconozco
End Sub
El problema es que puedo conocer, que selecciona en la primera lista, y que selecciona en la segunda lista, pero no se como hacer para guardar en "Variablequenoconozco" el valor ya sea de mm, cm, m o km. Saludos y gracias.