Volver a realizare una funcion

[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