Volver a realizare una funcion

[musicale]

Hola a todos,
tengo esta funcion:

Código:

Private Sub cmbnombre_Click()
            
    If Trim(cmbdesc) = "" Then GoTo Nodescuento

    If Trim(txtcant) = "" Then
    txtcant = "1"
    End If
    If lblprec = "0" Then
    lblprec = Val(txtprecio) * Val(txtcant)
    lbldesc = Val(cmbdesc) / 100 * Val(lblprec)
    lblrest = Val(lblprec) - Val(lbldesc)
    lblttotal = Val(lblprec) - Val(cmbdesc) / 100 * Val(lblprec)
    
    End If

    If Not Trim(txtrecv) = "" Then
    lbldev = Val(txtrecv) - Val(lblprec) + Val(lbldesc)
    End If
Nodescuento:

    If Trim(txtcant) = "" Then
    txtcant = "1"
    End If
    If lblprec = "0" Then
    lblprec = Val(txtprecio) * Val(txtcant)
    lblttotal = Val(txtrecv) - Val(lblprec)
    End If
    
    If Not Trim(txtrecv) = "" Then
    lbldev = Val(txtrecv) - Val(lblprec)
    End If
    
End Sub

quisiera ahora tener un boton, que cuando haga click
vuelva a realizar el calculo que realizo en "cmbnombre"

como tendria que hacer?
gracias

[culd]

Lo llamas con

Call BLABLA

Código vb:

Private Sub BLABLA()
    If Trim(cmbdesc) = "" Then GoTo Nodescuento
 
    If Trim(txtcant) = "" Then
    txtcant = "1"
    End If
    If lblprec = "0" Then
    lblprec = Val(txtprecio) * Val(txtcant)
    lbldesc = Val(cmbdesc) / 100 * Val(lblprec)
    lblrest = Val(lblprec) - Val(lbldesc)
    lblttotal = Val(lblprec) - Val(cmbdesc) / 100 * Val(lblprec)
    
    End If
 
    If Not Trim(txtrecv) = "" Then
    lbldev = Val(txtrecv) - Val(lblprec) + Val(lbldesc)
    End If
Nodescuento:
 
    If Trim(txtcant) = "" Then
    txtcant = "1"
    End If
    If lblprec = "0" Then
    lblprec = Val(txtprecio) * Val(txtcant)
    lblttotal = Val(txtrecv) - Val(lblprec)
    End If
    
    If Not Trim(txtrecv) = "" Then
    lbldev = Val(txtrecv) - Val(lblprec)
    End If
End Sub
 

[lokoman]

Iniciado por musicale

Hola a todos,
tengo esta funcion:

Código:

Private Sub cmbnombre_Click()
            
    If Trim(cmbdesc) = "" Then GoTo Nodescuento

    If Trim(txtcant) = "" Then
    txtcant = "1"
    End If
    If lblprec = "0" Then
    lblprec = Val(txtprecio) * Val(txtcant)
    lbldesc = Val(cmbdesc) / 100 * Val(lblprec)
    lblrest = Val(lblprec) - Val(lbldesc)
    lblttotal = Val(lblprec) - Val(cmbdesc) / 100 * Val(lblprec)
    
    End If

    If Not Trim(txtrecv) = "" Then
    lbldev = Val(txtrecv) - Val(lblprec) + Val(lbldesc)
    End If
Nodescuento:

    If Trim(txtcant) = "" Then
    txtcant = "1"
    End If
    If lblprec = "0" Then
    lblprec = Val(txtprecio) * Val(txtcant)
    lblttotal = Val(txtrecv) - Val(lblprec)
    End If
    
    If Not Trim(txtrecv) = "" Then
    lbldev = Val(txtrecv) - Val(lblprec)
    End If
    
End Sub

quisiera ahora tener un boton, que cuando haga click
vuelva a realizar el calculo que realizo en "cmbnombre"

como tendria que hacer?
gracias

Simplemente en el boton:

Código vb:

cmbnombre_Click
 

[musicale]

es que cmbnombre no es un boton, sino una combobox, che ho dato la funzione che automaticamente cuando se seleccione el nombre del utente, haga el calculo,
pero ahora quiero meter un boton que controle ese calculo hecho y no encuentro el modo.
disculpen mi ignorancia en materia.

gracias

[musicale]

muestro todo el codigo, para facilitar la comprencion, seguramente hay muchos errore y eso es porque no soy bueno en materi, disculpen..

Código:

Option Explicit

Enum EACCION
    AGREGAR_REGISTRO = 0
    EDITAR_REGISTRO = 1
End Enum

Public IdRegistro
Public ACCION As EACCION

Public Sub cmbnombre_LostFocus()
            
    If Trim(cmbdesc) = "" Then GoTo Nodescuento

    If Trim(txtcant) = "" Then
    txtcant = "1"
    End If
    If lblprec = "0" Then
    lblprec = Val(txtprecio) * Val(txtcant)
    lbldesc = Val(cmbdesc) / 100 * Val(lblprec)
    lblrest = Val(lblprec) - Val(lbldesc)
    lblttotal = Val(lblprec) - Val(cmbdesc) / 100 * Val(lblprec)
    
    End If

    If Not Trim(txtrecv) = "" Then
    lbldev = Val(txtrecv) - Val(lblprec) + Val(lbldesc)
    End If

Nodescuento:

    If Trim(txtcant) = "" Then
    txtcant = "1"
    End If
    If lblprec = "0" Then
    lblprec = Val(txtprecio) * Val(txtcant)
    lblttotal = Val(txtrecv) - Val(lblprec)
    End If
    
    If Not Trim(txtrecv) = "" Then
    lbldev = Val(txtrecv) - Val(lblprec)
    End If
    
End Sub


Private Sub Form_Load()
cmbtrat.AddItem "Manicura"
cmbtrat.AddItem "Manicura Francesa"
cmbtrat.AddItem "Manicura Spa"
cmbtrat.AddItem "Parafina Manos"
cmbtrat.AddItem "Pedicura"
cmbtrat.AddItem "Pedicura Francesa"
cmbtrat.AddItem "Pedicura Spa"
cmbtrat.AddItem "Parafina Pies"
cmbtrat.AddItem "Uñas de gel o acrilico"
cmbtrat.AddItem "Gel o acrilico en uña"
cmbtrat.AddItem "Relleno Manos"
cmbtrat.AddItem "Arreglo 1 Uña"
cmbtrat.AddItem "Gel o Acrilico Pies"
cmbtrat.AddItem "Relleno Pies"
cmbtrat.AddItem "Retitar Uñas de gel"
cmbtrat.AddItem "Diseño en 1 uña"
cmbtrat.AddItem "Cambio Esmalte"
cmbtrat.AddItem "Minx"
cmbtrat.AddItem "Extension de Pestanas"
cmbnombre.AddItem "Valentina"
cmbnombre.AddItem "Maria"
cmbnombre.AddItem "Federica"
cmbdesc.AddItem "1"
cmbdesc.AddItem "2"
cmbdesc.AddItem "3"
cmbdesc.AddItem "4"
cmbdesc.AddItem "5"



Do Until rs.EOF
'cargo la combobox con lo tratamientos
cmbtrat.AddItem rs!Tratamientos
rs.MoveNext
Loop

End Sub

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"
ElseIf Trim(cmbtrat) = "Parafina Manos" Then txtprecio = "10"
ElseIf Trim(cmbtrat) = "Pedicura" Then txtprecio = "25"
ElseIf Trim(cmbtrat) = "Pedicura Francesa" Then txtprecio = "28"
ElseIf Trim(cmbtrat) = "Pedicura Spa" Then txtprecio = "35"
ElseIf Trim(cmbtrat) = "Parafina Pies" Then txtprecio = "15"
ElseIf Trim(cmbtrat) = "Uñas de gel o acrilico" Then txtprecio = "45"
ElseIf Trim(cmbtrat) = "Gel o acrilico en uñas naturales" Then txtprecio = "30"
ElseIf Trim(cmbtrat) = "Relleno Manos" Then txtprecio = "25"
ElseIf Trim(cmbtrat) = "Arreglo 1 Uña" Then txtprecio = "5"
ElseIf Trim(cmbtrat) = "Gel o Acrilico Pies" Then txtprecio = "35"
ElseIf Trim(cmbtrat) = "Relleno Pies" Then txtprecio = "20"
ElseIf Trim(cmbtrat) = "Retitar Uñas de gel o acrilico" Then txtprecio = "15"
ElseIf Trim(cmbtrat) = "Diseño en 1 uña" Then txtprecio = "1,50"
ElseIf Trim(cmbtrat) = "Cambio Esmalte" Then txtprecio = "5"
ElseIf Trim(cmbtrat) = "Minx" Then txtprecio = "20"
ElseIf Trim(cmbtrat) = "Extension de Pestanas" Then txtprecio = "45"
    
      

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

   
End If
End Sub

Private Sub Command1_Click()
On Error GoTo ErrorSub
   
    
    ' Valida el Nombre que no este vacio
    ''''''''''''''''''''''''''''''''
    If Trim(cmbnombre) = "" Then
        MsgBox "El Nombre de registro no puede estar vacio", vbCritical, "Datos incompletos"
        cmbnombre.SetFocus
        Exit Sub
    End If
    
    'Agrega el registro
    '''''''''''''''''''''''''''''''
    
    Select Case ACCION
        Case EDITAR_REGISTRO
            cnn.Execute "UPDATE Personas set Nombre = '" & cmbnombre & _
                                         "', Tratamientos = '" & cmbtrat & _
                                         "', Precios = '" & lblttotal & _
                                         "' where Id = " & IdRegistro & ""
        

        
        
        Case AGREGAR_REGISTRO
            cnn.Execute "INSERT INTO Personas " & "(Nombre,Tratamientos,Precios,Fecha) VALUES('" & _
                                 cmbnombre & "','" & _
                                 cmbtrat & "','" & _
                                 lblttotal & "','" & _
                                 Format(Date, "dd/mm/yyyy") & "')"

    End Select
    
    rs.Requery 1

    DoEvents
    Unload Me
    Set frmnv = Nothing
Exit Sub
ErrorSub:
MsgBox Err.Description
End Sub

[musicale]

e probado a meter un boton que sea el que haga el calculo, pero si cambio algun valor y doy en el boton, no hace mas el calculo.

Private Sub calcula_Click()
If Trim(cmbdesc) = "" Then GoTo Nodescuento

If Trim(txtcant) = "" Then
txtcant = "1"
End If
If lblprec = "0" Then
lblprec = Val(txtprecio) * Val(txtcant)
lbldesc = Val(cmbdesc) / 100 * Val(lblprec)
lblrest = Val(lblprec) - Val(lbldesc)
lblttotal = Val(lblprec) - Val(cmbdesc) / 100 * Val(lblprec)

End If

If Not Trim(txtrecv) = "" Then
lbldev = Val(txtrecv) - Val(lblprec) + Val(lbldesc)
End If

Nodescuento:

If Trim(txtcant) = "" Then
txtcant = "1"
End If
If lblprec = "0" Then
lblprec = Val(txtprecio) * Val(txtcant)
lblttotal = Val(txtrecv) - Val(lblprec)
End If

If Not Trim(txtrecv) = "" Then
lbldev = Val(txtrecv) - Val(lblprec)
End If
End Sub

no se que hacer

[musicale]

RESUELTO, muchas gracias.

el error estaba en : If lblprec = "0" Then

Código:

    End If
    If lblprec > "0" Then
    lblprec = Val(txtprecio) * Val(txtcant)
    lbldesc = Val(cmbdesc) / 100 * Val(lblprec)
    lblrest = Val(lblprec) - Val(lbldesc)
    lblttotal = Val(lblprec) - Val(cmbdesc) / 100 * Val(lblprec)
    End If

cuando llegaba alli y veia que era mayor que cero, no me realizaba mas el calculo, saltaba a :

Código:

If lblprec = "0" Then
lblprec = Val(txtprecio) * Val(txtcant)
lblttotal = Val(txtrecv) - Val(lblprec)
End If

muchisimas gracias a todos.
y a F8.
jajajaja