Combo box e Campo texto

[musicale]

Hola a todos,
quisiera que cuando hago una seleccion de una combo box,
se vea el precio en el campo de texto al momento.

Código:

  ' Valida el Precio que no este vacio
    ''''''''''''''''''''''''''''''''
    If Trim(txtprecio) = "" Then
        MsgBox "El Precio no puede estar vacio", vbCritical, "Datos incompletos"
        txtprecio.SetFocus
        
   ElseIf cmbtrat = "Manicura" Then
   txtprecio = "12"
  End If

de esta forma funziona, pero solo se ve despues de hacer otra accion.

gracias

[Insomnia]

Hola

No entiendo muy bien lo que quieres decir con

pero solo se ve después de hacer otra accion.

. En que evento tienes puesto el código?. Lo tienes puesto en Click?

Código:

Private Sub Combo1_Click()

--Saludos--

[musicale]

Hola,
si lo tengo puesto en click

[musicale]

gracias, lo cambie a lostfocus y ahora funziona muchas gracias.

[Insomnia]

Hola

Mirando otra vez el código, no lo entiendo muy bien. Creo entender, que quieres que al hacer clic en el combo y seleccionar un item, se rellene el precio.

Por eso, no entiendo por que en el if, miras si el precio esta vacío (si aún no has seleccionado ningún item es lógico que este vacío) en cambio en el else miras el valor del combo.

Puedes explicar un poco mejor que es lo que quieres hacer con el código exactamente?

--Saludos--

[musicale]

Hola,
te pongo algo para ver si lo entiendes,
en teoria es una lista de tratamientos,
cuando escojo uno, debe salir el precio,
ademas depende del numero que se lo haga se debe multiplicar por el precio y dar un total, "RESUELTO",

luego se debera hacer un descuento en vase a % QUE SERA UN NUMERO DA UN TEXT BOX y obtener un resultado,
que vendra calculado para dar el resto al cliente, es como una calculadora. mas o menos.

ahora necesito calcular el descuento %.

Código:

Private Sub cmbtrat_LostFocus()
    
 ' Valida el Tratamiento que no este vacio
 ''''''''''''''''''''''''''''''''
If Trim(cmbtrat) = "" Then
MsgBox "Selecciona el Tratamiento", vbCritical, "Datos incompletos"
cmbtrat.SetFocus
Exit Sub
    
ElseIf Trim(cmbtrat) = "Manicura" Then txtprecio = "12"
ElseIf Trim(cmbtrat) = "Manicura Francesa" Then txtprecio = "15"
ElseIf Trim(cmbtrat) = "Manicura Spa" Then txtprecio = "22"

' Valida el Precio que no este vacio
''''''''''''''''''''''''''''''''
ElseIf Trim(txtprecio) = "" Then
MsgBox "El Precio no puede estar vacio", vbCritical, "Datos incompletos"
txtprecio.SetFocus
  
      
    If Trim(txtcant) = "" Then
    txtcant = "1"
    lbltot = Val(txtprecio) * Val(txtcant)
    End If

End If
End Sub

es que no me recuerdo del vb, lo estudie hace muchos años : )
jajaja

gracias