Foros aprenderaprogramar.com
Didáctica y divulgación de la programación

Discculpen las molestias y para que me entiendan mejor les paso el ejercicio, no para que me lo hagan sino que me aclaren y pueda entenderlo

1)Se debe diseñar un sistema compuesto por 4 form. que calculara la comision anual variable obtenida de las ventas mensuales de cada empleado

2)diseñar los sig. form.a)debe contener el titulo ventas totales del primer semestre -- apellido, nombre y dni del empleado -- Las ventas totales del primer semestre discriminadas por mes, un boton cancelar que anula todo el procedimiento y un boton siguiente que nos traslade a la pantalla dos

b) debe contener el titulo ventas totales del segundo semestre -- los datos del empleado que deben aparecer automaticamente ya que fueron ingresados en el form.

1 -- discriminar por mes las ventas del segundo semestre

c) debe mostrar el total del primer semestre y solicitar que se ingrese el òrcentaje de comision

d) debe mostrar los datos del vendedor y la comision anual obtenida, que se obtendra de la siguiente manera sumar el total del primer semestre al total del segundo semestre este resultado multiplicarlo por el porcentaje de comision ingresado y dividirlo en 100

En la primera cuestion : RPS SIGNIFICA RESULTADO PRIMER SEMESTRE y esta variable esta declarada en un modulo con las demas variables
RSS significa Resultado Segundo Semestre

modulo 1
Public Apellido As String
Public Nombre As String
Public Dni As String
Public RPS As Double
Public RSS As Double
Public Porcentaje  As Double
Public Comision As Double

En la 2º cuestion:  - La segunda cosa que llama la atención es la línea Porcentaje = Text3.Text

Private Sub cmdSiguiente_Click()
Dim Porcentaje As Single
Porcentaje = Val(Text3)
Comisionanual = (RPS + RSS) * Porcentaje / 100
Comisionanual.Show
End Sub

Corregi lo que me dijiste aún me da un error de Compilacion-- uso no valido de la Propiedad  Comisionanual =
con referencia a  La función Val sólo reconoce el punto (.) como separador decimal válido (aunque esto puede verse afectado por la configuración regional de tu ordenador)

Mi configuracion esta como separador la coma,  en ese caso como utilizaria la funcion de conversion de tipos de como CSng ó CDbl para convertir la cadena a un número.

Gracias y disculpe las molestia

Buen dia corregi los errores pero me da uso no valido de la propiedad "Comision"
Private Sub cmdSiguiente_Click()
Dim porcentaje As Double
porcentaje = Val(Text3)
Comision = (RPS + RSS) * porcentaje / 100
Comision.Show
End Sub

si te comprendo pero el error es en comision= (RPS + RSS) * porcentaje / 100 me da uso no valido de la propiedad, en el form comision tengo esto
Private Sub Form_Load()
Text1.Text = Apellido
Text2.Text = Nombre
Val(Text3) = Comision
End Sub

Aquí tienes un error:

Private Sub Form_Load()
Text1.Text = Apellido
Text2.Text = Nombre
Val(Text3) = Comision
End Sub

Supongo que lo que querías poner es:

Private Sub Form_Load()
Text1.Text = Apellido
Text2.Text = Nombre
Comision = Val(Text3)
End Sub

Private Sub cmdCancelar_Click()
txt3.Text = " "
CancelUpdate
End Sub

Private Sub cmdSiguiente_Click()

esto en form porcentaje
Dim Porcentaje As Double
Porcentaje = Val(Text3)
Comision = (RPS + RSS) * Porcentaje / 100
Text3.Text = Comision
Comision.Show
End Sub

Private Sub Form_Load()
Text1.Text = RPS
Text2.Text = RSS
End Sub
esto en el form comision
Private Sub cmdSalir_Click()
End
End Sub
Private Sub Form_Load()
Text1.Text = Apellido
Text2.Text = Nombre
Comision = Val(Text3)
End Sub

disculpa yo tambien no me entiendo pero corregi algo y me da la pantalla siguiente con el apellido y el nombre, pero no me sale el resultado en comision anual
esto puse ahora en el formulario de porcentaje
Private Sub cmdCancelar_Click()
txt3.Text = " "
CancelUpdate
End Sub

Private Sub cmdSiguiente_Click()
Dim Porcentaje As Double
Porcentaje = Val(Text3)
Comision = (RPS + RSS) * Porcentaje / 100
formComision.Show
End Sub

Private Sub Form_Load()
Text1.Text = RPS
Text2.Text = RSS
End Sub

ya me salio gracias por tu ayuda puse esto en formulario porcentaje
Private Sub cmdSiguiente_Click()
Dim Porcentaje As Double
Porcentaje = Text3.Text
Comision = (RPS + RSS) * Porcentaje / 100
formComision.Show
End Sub

en el formulario comision:
Private Sub Form_Load()
Text1.Text = Apellido
Text2.Text = Nombre
Text3.Text = Comision
End Sub

ahora te pido que me guies en esto del boton Inicio para que vuelva al principio y otra para que el cursor salga ppor ejemplo en la caja de texto 4 para ingresar datos debo poner en el formulario 1 "ventas" o en el formulario 2 "ventas2" text4.setfocus o como hago para que el cursor me salga en el texto box en donde debo ingresar los datos desde ya mil disculpas por las molestias y nuevamente gracias por tu tiempo

lo que me decis  lo hice en el boton cancelar y me sale bien cuando lo cancelo pero como lo hago sin ponerlo en form-load ni dentro de los codigos no entiendo como seria en este caso y lo del boton inicio me lo podes explicar ?? gracias

Si se que puedo ir a cualquier formulario con  .show, ahora en la última pantalla tengo un commandBooton "Inicio" y quiero ir al inicio de la aplicacion, lo logro colocando el nombre del formulario.show pero quiero que los textbox de este formulario se limpien para comenzar a colocar datos dentro de los mismos mira lo intento de diferentes maneras como esta:
Private Sub cmdInicio_Click()
Text1.Text = "  "
Text2.Text = "  "
Text3.Text = "  "
Text4.Text = "  "
Text5.Text = "  "
Text6.Text = "  "
Text7.Text = "  "
Text8.Text = "  "
Text9.Text = "  "
Text1.SetFocus
Ventas.Show
End Sub

vos que decis?

Tienes que controlar desde dónde actúas. Por ejemplo, no puedes pretender limpiar el formulario 1 desde un botón del formulario 4.

A mí lo que se me ocurre es algo así como:

modulo 1
Public Apellido As String
Public Nombre As String
Public Dni As String
Public RPS As Double
Public RSS As Double
Public Porcentaje  As Double
Public Comision As Double
Public LimpiarFormVentas As Boolean

Es decir, tener una variable global que te controle si hay que limpiar el formulario.

Luego:

Private Sub cmdInicio_Click()
LimpiarFormVentas = True
Ventas.Show
End Sub

Ahora en el form ventas en el form_load pondríamos algo así:

if LimpiarFormVentas = True Then
Text1.Text = "  "
Text2.Text = "  "
Text3.Text = "  "
Text4.Text = "  "
Text5.Text = "  "
Text6.Text = "  "
Text7.Text = "  "
Text8.Text = "  "
Text9.Text = "  "
Text1.SetFocus
... etc etc


Si no es en el form_load tendrá que ser cuando el formulario coja el foco o algún evento de deste tipo:

Private Sub Form_GotFocus()
if LimpiarFormVentas = True Then
Text1.Text = "  "
Text2.Text = "  "
Text3.Text = "  "
Text4.Text = "  "
Text5.Text = "  "
Text6.Text = "  "
Text7.Text = "  "
Text8.Text = "  "
Text9.Text = "  "
Text1.SetFocus
End Sub

A lo que me refiero, en definitiva, es que cada cosa tiene su ámbito. Si quieres modificar el form1 tendrás que hacerlo desde el form1, no desde otro lado.

OK resulta mas fácil como vos decís, controlarlo desde el mismo formulario ya que tengo el botón cancelar de donde vuelvo todo a cero, gracias por todo, me aclaraste varios puntos el principal es que debo pensar lo que quiero y luego encarar el problema, un abrazo y nos estaremos conectando nuevamente ante alguna duda muchas gracias!!!!