Ayuda con el primer .exe!!! Error en el codigo???

[Gleper]

Hola pues eso, es mi primer codigo, cuando le doy a F5 y pruebo el exe me sale error 424.

Aqui os dejo el codigo...

Código [Seleccionar] Expandir

Public Function CompError() As Integer
If Val(frmIntereses.txtTipo.Text) <= 0 Then
intRespuésta = MsgBox("Escriba un valor para el tipo de interés", vbCritical)
frmIntereses.txtTipo.SetFocus
CompError = 1
Exit Function
End If
If Val(frmIntereses.txtPeríodo.Text) <= 0 Then
intRespuésta = MsgBox("Escriba un valor para el período", bvcritical)
frmIntereses.txtPeíodo.SetFocus
CompError = 1
Exit Function
End If

If Val(frmIntereses.txtInvérsion.Text) <= 0 Then
intRespuésta = MsgBox("Escriba un valor para la inversión", vbCritical)
frmIntereses.txtInversión.SetFocus
CompError = 1
Exit Function
End If
CompError = 0
End Function

Y aki el formulario

Código [Seleccionar] Expandir

Private Sub Label1_Click()

End Sub

Private Sub cmdCalcular_Click()
Dim sngTipoInt As Single, sngInterés As Single
Dim intPeríodo As Integer, intNúm As Integer
Dim curValInicial As Currency

If CompError() = 1 Then
      Exit Sub
End If

sngTipoInt = txtTipo.Text / 100
intPeríodo = txtPeriodo.Text

curValInicial = txtInversión.Text
sngInterés = 1
For intNúm = 1 To intPeríodo
sngInterés = sngInterés * (1 + sngTipoInt)
Next intNúm
txtFinal.Text = Format(curValInicial * sngInterés, "###.##0,00 €")




End Sub

Private Sub cmdSalir_Click()
Unload fmrIntereses
End
End Sub

PLEASE ayudadme...

[Sancho.Mazorka]

Decime cual es el error 424 y cuando pones depurar en que linea te marca el error, talvez pueda ayudarte!

Sancho.Mazorka   

[Gleper]

Esta es la linea que sale en amarillo:

Código [Seleccionar] Expandir

If Val(frmIntereses.txtTipo.Text) <= 0 Then

En cuanto al error...no tengo ni idea...sale solo 424...

[Sancho.Mazorka]

ahhhh! El error 424 es 'Se requiere un objeto', osea que un nombre esta mal puesto en la sentencia, no haces referencia a algun control, o simplemente te olvidaste de poner el Form llamado frmIntereses o te falta el TextBox txtTipo. Revisa que existan ese Form y ese TextBox y que no hayas escrito mal el nombre!


Sancho.Mazorka   

[Gleper]

Me parece que esta bien escrito...podrias exarle tu un vistazo? es muy poco, te paso el link de megaupload x MP si kieres.

[Sancho.Mazorka]

Pasame el link pero x rapidshare o x msn, porque de megaupload no puedo bajar!

Sancho.Mazorka   

[zXxOsirisxXz]

Puede k el valor del txt no es un numero, ya k esta seguro en blanco "" o puede k tenga letras.. en cualkier caso, creo k te conviene un "On Error Goto"

[Sancho.Mazorka]

Problema soluciona, errores de sintaxis!


Sancho.Mazorka   

[Gleper]

GRACIAS SANCHOOO

problema solucionado...