Access - código para validar ISBN que no compila en el módulo de access

   
Vista:

código para validar ISBN que no compila en el módulo de access

Publicado por Gerard (11 intervenciones) el 07/02/2016 10:12:06
Hola!

Encontré este código para un proyecto personal. Se trata del algoritmo para validar el ISBN de los libros. Estoy utilizando Microsoft Access 2010, pero al copiar este código en el módulo de access me da error en determinadas líneas.

No son compatibles? Alguna alternativa?

Web donde se alberga el código: http://www.mvp-access.es/softjaen/vbnet/funciones/dc/sjvbnetfun14.htm

Muchas gracias por vuestro tiempo!!!

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
Public Function ValidateISBN(ByRef isbn As String) As Boolean
 
    '*******************************************************************
    ' Nombre:     ValidateISBN
    '             por Enrique Martínez Montejo - 26/08/2007
    '
    ' Versión:    1.0
    '
    ' Finalidad:  Validar el identificador International Standard
    '             Book Number (ISBN) especificado.
    '
    ' Entradas:
    '   isbn:     String. El identificador ISBN que se desea verificar.
    '             Devolverá el ISBN correcto.
    '
    ' Resultados:
    '   Boolean:  True/False.
    '
    '*******************************************************************
 
    ' Comprobamos la longitud del parámetro especificado.
    '
    If (isbn.Length <> 10) Then
        isbn = String.Empty
        Return False
    End If
 
    Try
        ' Guardamos el dígito de control del número especificado.
        '
        Dim dc As String = isbn.ToUpper.Chars(isbn.Length - 1)
 
        ' Obtenemos el dígito de control correcto.
        '
        Dim dc2 As String = GetISBN(isbn)
 
        ' Escribimos el isbn correcto.
        '
        isbn = isbn.Substring(0, 9) & dc2
 
        Return (dc = dc2)
 
    Catch ex As Exception
        Return False
 
    End Try
 
End Function
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

código para validar ISBN que no compila en el módulo de access

Publicado por Enrique Heliodoro (1663 intervenciones) el 07/02/2016 15:14:26
El lenguaje es diferente, lo que muestras esta diseñado para VB Net.

Pero esa función lo que hace es
.- verificar la longitud de una cadena de texto
.- si la valida la trocea
.- una parte la envía a 'otra función' que recalcula el carácter de control
.- y lo compara con el que tiene.

Es decir, que en 'el mejor de los casos' te falta un trozo de código
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

código para validar ISBN que no compila en el módulo de access

Publicado por Gerard (11 intervenciones) el 08/02/2016 22:41:22
Ok, muchas gracias por la información.

Un saludo!
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