Visual Basic - Tratamiento de errores

Life is soft - evento anual de software empresarial
   
Vista:

Tratamiento de errores

Publicado por Rafi (4 intervenciones) el 30/01/2008 14:15:28
Hola a todos, recogí y ando usando esta Función de esta web, funciona casi perfectamente a no ser que el error que muestra en el campo que la llama en el evento despuésde actualizar, y justamente después de perder el foco y si el campo queda Null, manda error de "Uso de Null no válido". Os la pongo por si se le puede hacer algún tratamiento de errores ya que yo soy incapaz de hacerlo.

Public Function SinTildes(strTexto As String) As String
strTexto = Replace(strTexto, "á", "a")
strTexto = Replace(strTexto, "é", "e")
strTexto = Replace(strTexto, "í", "i")
strTexto = Replace(strTexto, "ó", "o")
strTexto = Replace(strTexto, "ú", "u")
strTexto = Replace(strTexto, "ü", "u")
strTexto = Replace(strTexto, "0", "o")
strTexto = Replace(strTexto, "", "")
SinTildes = strTexto
End Function ' SinTildes

La llamo desde este evento del cuadro donde quiero que cambie valores:

Private Sub Cuadro_combinado36_AfterUpdate()
Me.Nombre = SinTildes(Me.Nombre)
End Sub

GRACIAS
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Tratamiento de errores

Publicado por cmgcharli (128 intervenciones) el 30/01/2008 14:23:35
Prueba a ver???????
Public Function SinTildes(strTexto As String) As String

On Error Goto ErrorDeNulo

strTexto = Replace(strTexto, "á", "a")
strTexto = Replace(strTexto, "é", "e")
strTexto = Replace(strTexto, "í", "i")
strTexto = Replace(strTexto, "ó", "o")
strTexto = Replace(strTexto, "ú", "u")
strTexto = Replace(strTexto, "ü", "u")
strTexto = Replace(strTexto, "0", "o")
strTexto = Replace(strTexto, "", "")
SinTildes = strTexto

On Error Goto 0
exit sub
ErrorDeNulo:
Resume Next

End Function ' SinTildes
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Tratamiento de errores

Publicado por cmgcharli (128 intervenciones) el 30/01/2008 14:31:08
Si el error es en el evento pon el control de errores en el ??????

Private Sub Cuadro_combinado36_AfterUpdate()
On Error Goto ErrorDeNulo
Me.Nombre = SinTildes(Me.Nombre)
On Error Goto 0
exit sub
ErrorDeNulo:
Resume Next
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Tratamiento de errores

Publicado por Rafi (4 intervenciones) el 30/01/2008 20:03:35
Perfecto Charli, le puse los tratamientos de errores en el evento de cada cuadro combinado donde aplicaba la función, y ya puedo salir de ellas dejandolas en Null. Gracias
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar