Llamar a función desde campo de formulario

[frkfay]

Hola a tod@s !! Tengo un problema que hasta la fecha no he conseguido resolver. Resulta que encontré una función que te devuelve el tanto en Número de Afiliación como el Código de Cuenta de Cotización. El código es el siguiente:

Código vb:

''' <summary>
''' Devuelve el dígito de control de un Número de Afiliación como de
''' un Número de Cuenta de Cotización.
''' </summary>
''' <param name="numSegSocial">Número cuyo dígito de control se desea obtener.</param>
''' <param name="esNumEmpresa">Indica si el Número se corresponde con el de una Empresa.</param>
''' <returns></returns>
''' <remarks></remarks>
Public Function GetDCNumSegSocial(ByVal numsegsocial As String, _
                                  ByVal isNumEmpresa As Boolean) As String
 
    ' Si hay más de 10 dígitos en el número se devolverá una excepción de
    ' argumentos no permitidos.
    '
    If (numSegSocial.Length > 10) OrElse (numSegSocial.Length = 0) Then _
        Throw New System.ArgumentException()
 
    ' Si algún carácter no es un número, abandono la función.
    '
    Dim regex As New System.Text.RegularExpressions.Regex("[^0-9]")
    If (regex.IsMatch(numSegSocial)) Then _
        Throw New System.ArgumentException()
 
    Try
        ' Obtengo el número correspondiente a la Provincia
        '
        Dim dcProv As String = numSegSocial.Substring(0, 2)
 
        ' Obtengo el resto del número
        '
        Dim numero As String = numSegSocial.Substring(2, numSegSocial.Length - 2)
 
        Select Case numero.Length
            Case 8
                If (esNumEmpresa) Then
                    ' Si el número es de una empresa, no puede tener 8 dígitos.
                    Return String.Empty
 
                Else
                    ' Compruebo si es un NAF nuevo o antiguo.
                    If (numero.Chars(0) = "0"c) Then
                        ' Es un número de afiliación antiguo. Lo formateo
                        ' a siete dígitos, eliminando el primer cero.
                        numero = numero.Remove(0, 1)
 
                    End If
 
                End If
 
            Case 7
                ' Puede ser un NAF antiguo o un CCC nuevo o viejo.
                If (esNumEmpresa) Then
                    ' Si el primer dígito es un cero, es un CCC antiguo,
                    ' por lo que lo formateo a seis dígitos, eliminando
                    ' el primer cero.
                    If (numero.Chars(0) = "0"c) Then
                        numero = numero.Remove(0, 1)
                    End If
                End If
 
            Case 6
                ' Si se trata del número de una empresa,
                ' es un CCC antiguo.
                If (Not (esNumEmpresa)) Then
                    ' Es un NAF antiguo, por lo que lo debo
                    ' de formatear a 7 dígitos.
                    numero = numero.PadLeft(7, "0"c)
                End If
 
            Case Else
                ' Todos los demás casos, serán números antiguos
                If (esNumEmpresa) Then
                    ' Lo formateo a seis dígitos.
                    numero = numero.PadLeft(6, "0"c)
 
                Else
                    ' Lo formateo a siete dígitos.
                    numero = numero.PadLeft(7, "0"c)
 
                End If
 
        End Select
 
        ' Completo el número de Seguridad Social
        '
        Dim naf As Int64 = Convert.ToInt64(dcProv & numero)
 
        ' Calculo el Dígito de Control. Tengo que operar con números
        ' Long, para evitar el error de desbordamiento que se puede
        ' producir con los nuevos números de Seguridad Social
        '
        NAf = NAf - (NAf \ 97) * 97
 
        ' Devuelvo el Dígito de Control formateado
        '
        Return String.Format("{0:00}", naf)
 
    Catch
        Return String.Empty
 
    End Try
 
End Function
 

# Despúes de copiarlo en un módulo (llamado CalculoNAF), procedo a introducir en el campo (NAF) del formulario, en el evento (AfterUpdate), el siguiente código:

Private Sub NAF_AfterUpdate()
Me.NAF= GetDCNumSegSocial(Me.NAF)
End Sub

El problema es que me devuelve un cuadro de mensaje "Error de compilación. El argumento no es opcional".

La cuestión es que tengo otra función para Nif, y haciendo exactamente lo mismo (cambiando evidentemente los nombres del campo), el resultado es el deseado.

Os agradecería muchísiiimo vuestra ayuda. Sólo me falta éste detalle para poder entregar la Base a mi jefe para poder utilizarla en la empresa.
Un saludo, perdonad mi ignorancia y gracias de antemano.

[gnzsoloyo]

Por empezar: Si esto es código de programación, estás preguntando en el foro equivocado.
En los Foros de Bases de Datos no está permitido tratar asuntos de programación. Sólo SQL y Bases de datos ()nota que no has puesto ni una sola linea relacionada con SQL.

Si me dices exactamente qué usas, te paso el post al foro correspondiente (VB Clasico o .NET). De lo contrario deberé eliminar tu script por no corresponder al tópico de este foro.

[frkfay]

Gracias !! Siento mi torpeza. Estoy utilizando una Base de Datos Access 2007, y creo que el código está en Visual Basic o al menos eso aparece en la página web de donde he copiado dicho código.
Disculpa de nuevo y muchas gracias por la ayuda.

[gnzsoloyo]

No problem. Ahora te paso a VB Clásico, que sería lo más aproximado.

[frkfay]

Muchas gracias !! A ver si tengo suerte.

[lokoman]

Hola!
Me parece que la forma correcta de llamar la funcion (Public Function GetDCNumSegSocial(ByVal numsegsocial As String, ByVal isNumEmpresa As Boolean) As String) es asi:

Código vb:

'txtDigitoControl=ES UN TEXTBOX
'NumeroSS=NUMERO SEG SOCIAL
 
'SI EL NUMERO PERTENECE A UNA EMPRESA
       txtDigitoControl.Text= GetDCNumSegSocial(NumeroSS,True)
 
'SI EL NUMERO NO PERTENECE A UNA EMPRESA
       txtDigitoControl.Text= GetDCNumSegSocial(NumeroSS,False)
 

Y el Code es de VB.net...

[frkfay]

Gracias Lokoman por tu respuesta. Intentaré resolverlo con tu consejo.

[frkfay]

Lo he probado y me devuelve mensaje de error de compilación.