Access - de access 2003 a 2007

   
Vista:

de access 2003 a 2007

Publicado por Vanesa (33 intervenciones) el 26/08/2009 14:52:54
Hola a tod@s

Añadí a mi BD la función extraer números de una cadena:

Function extraernumeros(cadena As String)

Dim n As Integer
Dim aux, aux1 As String
n = Len(cadena)
aux1 = ""
For i = 0 To n - 1

aux = Left(cadena, 1)

Select Case aux
Case "1", "2", "3", "4", "5", "6", "7", "8", "9", "0"
aux1 = aux1 & aux
End Select

cadena = Right(cadena, n - i - 1)

Next

extraernumeros = Val(aux1)

End Function

En access 2003 me funciona bien pero en 2007 me da error. Como podría solucionarlo?

Espero que podais ayudarme.

Anticipadamente, 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:de access 2003 a 2007

Publicado por Chea (1015 intervenciones) el 26/08/2009 17:54:13
A ver si acierto: http://jbchea.net/centroconfianza.aspx

Saludos
José Bengoechea Ibaceta
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:de access 2003 a 2007

Publicado por Vanesa  (33 intervenciones) el 27/08/2009 08:46:23
Muchísimas gracias, me has ahorrado muchas horas de programación
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