Access - Ayuda para un novato!!

   
Vista:

Ayuda para un novato!!

Publicado por Angel (1 intervención) el 16/10/2009 16:42:55
Hola y gracias desde ya a todos! Tengo un proyecto de access 2003, en el cual un formulario de carga me da error. Quiero dejar en claro que venía funcionando muy bien pero luego desconosco que le pudo haber pasado.
El error es el siguiente: en un campo (numeros) se ingresan números separados por "-", así por ej- 12-13-15. En otro campo calculado se informa la cantidad de números ingresados, en el ej. cantidad = 3. El problema es que cuando luego de actualizar el campo numeros y actualizarlo me dice lo siguiente: "Error de compilación: No se puede encontrar el proyecto o la biblioteca" luego me muestra el siguiente código:

Private Sub numeros_BeforeUpdate(Cancel As Integer)
Me.ImpMenor = False
Me.txtTotalImpMen = "0" 'Inicializamos a 0
Dim LONGITUD As Integer
Dim I As Integer
Dim CARACTER As Variant
Dim NUMERO As String
LONGITUD = Len(Me.Imputado_Edad)
NUMERO = ""
For I = 1 To LONGITUD + 1 ' +1 es para procesar el último caracter
CARACTER = Mid(Imputado_Edad, I, 1) ' caracter de uno en uno (aquì muestra el error)
If IsNumeric(CARACTER) Then ' si es numerico lo guardo
NUMERO = NUMERO & CARACTER
Else ' si no es numerico.. pues esto
If NUMERO < 18 Then
Me.txtTotalImpMen = Me.txtTotalImpMen + 1
Me.ImpMenor = True
End If
NUMERO = " "
End If
Next

El err me da en mid.
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