2
« en: 19 de Abril 2012, 21:19 »
Hola tengo este ejercicio me podes guiar?, es un sistema de prestamos de una financiera con tres formularios: datos solicitante, montos, totales
esto es del formMontos
Private Sub cmdSiguiente_Click()
Dim Montosolicitado As Double
Dim Cuotasadevolver As Double
Dim Porcentaje As Double
Montosolicitado = Text4.Text
Cuotasadevolver = Text5.Text
If Cuotasadevolver <= 18 Then
Porcentaje = 25
Else
Porcentaje = 45
End If
Pocentaje = Text4.Text * Cuotasadevolver / 100
Text6.Text = Porcentaje
Valorcuotaapagar = Text4.Text * Porcentaje / Text5
formTotales.Show
End Sub
EL Porcentaje me sale cuando paso al form totales y no antes cual sera el error?
Private Sub Form_Load()
Text1.Text = Apellido
Text2.Text = Nombre
Text3.Text = Dni
Text6.Text = Porcentaje
End Sub
Con esto debo pasar al formTotales en donde me debe salir valor de la cuota y el monto a devolver por supuesto que con los datos del solicitante esto tengo en este formulario
Private Sub cmdInicio_Click()
formDatos.SetFocus
End Sub
Private Sub cmdSalir_Click()
End
End Sub
Private Sub Form_Load()
Text1.Text = Apellido
Text2.Text = Nombre
Text3.Text = Dni
Text4.Text = Valorcuotaapagar
End Sub
Ademas estan las variables declaradas en el modulo como publicas
Public Apellido As String
Public Nombre As String
Public Dni As String
Public Ape As String
Public Valorcuotaapagar As Double
Public Porcentaje As Double
desde ya Gracias!!!!!!