Hola! bueno les cuento que tenía ya un código que funcionaba, pero cuando trato de insertar los datos a la bd me sale un error :/ Así que tuve que modificar el código, primero intenté con ifs anidados, pero era demasiado largo, y al final me quedó algo así usando case:
Bueno les comento que la colegiatura para nivel
maternal - 1250
preescolar - 1350
primaria - 1350
inscripciones
maternal - 1300
preescolar - 1500
primaria - 1500
Pero esto yo lo tengo almacenado en el form2 con textbox
Código:
Private Sub cmdCalcular_Click()
Dim colegiatura As Double
Dim modalidad As Double
Dim beca As Double
Dim cargos As Double
'''''''''''''''''''''''''''''''''''''Tipo de pago
Select Case cboTipopago.Text
Case "Inscripción"
''''''''''''''''''''''''''''''''''''''''Nivel
Select Case cboNivel.Text
Case "Maternal"
colegiatura = Form2.Text4.Text
Case "Preescolar"
colegiatura = Form2.Text5.Text
Case "Primaria"
colegiatura = Form2.Text6.Text
End Select
''''''''''''''''''''''''''''''''Modalidad
Select Case cboModalidad.Text
Case "Mensual"
modalidad = colegiatura
Case "Quincenal"
modalidad = colegiatura / 2
Case Else
modalidad = colegiatura
End Select
'''''''''''''''''''''''''''''''''Beca
Select Case cboBeca.Text
Case "25%"
beca = modalidad - (modalidad * 0.25)
Case "50%"
beca = modalidad - (modalidad * 0.5)
Case "No beca"
beca = modalidad
End Select
''''''''''''''''''''''''''''''''Cargos
Select Case cboCargos.Text
Case "10%"
cargos = beca + (beca * 0.1)
Case "Sin recargos"
cargos = beca
End Select
Text1 = cargos
Case "Colegiatura"
''''''''''''''''''''''''''''''''''''''''Nivel
Select Case cboNivel.Text
Case "Maternal"
colegiatura = Form2.Text1.Text
Case "Preescolar"
colegiatura = Form2.Text2.Text
Case "Primaria"
colegiatura = Form2.Text3.Text
End Select
''''''''''''''''''''''''''''''''Modalidad
Select Case cboModalidad.Text
Case "Mensual"
modalidad = colegiatura
Case "Quincenal"
modalidad = colegiatura / 2
Case Else
modalidad = colegiatura
End Select
Text1 = modalidad
'''''''''''''''''''''''''''''''''Beca
Select Case cboBeca.Text
Case "25%"
beca = modalidad - (modalidad * 0.25)
Case "50%"
beca = modalidad - (modalidad * 0.5)
Case "No beca"
beca = modalidad
End Select
''''''''''''''''''''''''''''''''Cargos
Select Case cboCargos.Text
Case "10%"
cargos = beca + (beca * 0.1)
Case "Sin recargos"
cargos = beca
End Select
Text1 = cargos
Case "Abono"
Text1 = "Ingrese la cantidad a abonar"
End Select
Pero no se ejectuta correctamente, podrían decirme si es posible hacer eso que necesito con sólo estructuras case? Gracias de antemano.