** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Access y VBA
  Mensajes nuevos Mensajes nuevos RSS - Error 7 Memoria insuficiente
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoError 7 Memoria insuficiente

 Responder Responder
Autor
Mensaje
pepepot Ver desplegable
Asiduo
Asiduo


Unido: 24/Noviembre/2006
Estado: Sin conexión
Puntos: 244
Enlace directo a este mensaje Tema: Error 7 Memoria insuficiente
    Enviado: 27/Abril/2018 a las 12:27
Buenos días

Tengo el siguiente código de una función en un módulo.

Al llamarlo me da el error 7 Memoria insuficiente.

Agradezco su ayuda.

Saludos


Public Function EncuentraTextoEnFichero( _
  RUTAARCHIVO As String, _
  TEXTOBUSCADO As String _
) As Boolean
' ***************************************************
' * Lee un archivo de texto línea a línea y devuelve True si ha encontrado un String y False si no
' ***************************************************
Dim intFile As Integer
Dim STR_EN_LINEAS As String: STR_EN_LINEAS = ""

 
  If Len(Dir(RUTAARCHIVO)) > 0 And Len(TEXTOBUSCADO) > 0 Then
  
    intFile = FreeFile()
    Open RUTAARCHIVO For Input As #intFile
 
    Do While Not EOF(intFile)
      Line Input #intFile, STR_EN_LINEAS
        If InStr(1, STR_EN_LINEAS, TEXTOBUSCADO) > 0 Then
            EncuentraTextoEnFichero = True
            Exit Do
        Else
            EncuentraTextoEnFichero = False
        End If
    Loop
 
    Close #intFile
 
  End If
 
End Function



Editado por pepepot - 27/Abril/2018 a las 13:30
Arriba
01loko Ver desplegable
Colaborador
Colaborador


Unido: 17/Agosto/2017
Localización: Santander
Estado: Sin conexión
Puntos: 603
Enlace directo a este mensaje Enviado: 27/Abril/2018 a las 13:20
Prueba en otro ordenador

La instruccion instr en mi ordenador da error de memoria, en cualquier otro probado no...

solo me queda formatear
win 10 X64
office 2013 32b


Editado por 01loko - 27/Abril/2018 a las 13:39
Recordar de que soy nuevo y estoy aprendiendo.
Arriba
RRoca Ver desplegable
Colaborador
Colaborador


Unido: 02/Enero/2006
Localización: España
Estado: Sin conexión
Puntos: 4821
Enlace directo a este mensaje Enviado: 27/Abril/2018 a las 19:05
Hola, has probado a compilar para ver si se obtiene algún mensaje, a veces el error proviene de otras líneas que no tienen nada que ver con la que se remarca, saludos.
Romain Rolland (1866-1944) escritor y ensayista frances dijo: Crear, es matar la muerte. (para mi, filosoficamente penetrante)
Arriba
pitxiku Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 27/Septiembre/2017
Localización: En mi casa
Estado: Sin conexión
Puntos: 1172
Enlace directo a este mensaje Enviado: 27/Abril/2018 a las 19:31
¿El error se da con cualquier archivo, o con alguno en particular?

Line Input recoge la línea hasta el primer retorno de carro que encuentra. ¿Hay retornos de carro en ese archivo?

El maestro Chea comentó en otro hilo/conversación/foro que detectó algún comportamiento extraño similar a este, y que lo resolvió cambiando el Option Compare Database por Option Compare Text.
Arriba
pepepot Ver desplegable
Asiduo
Asiduo


Unido: 24/Noviembre/2006
Estado: Sin conexión
Puntos: 244
Enlace directo a este mensaje Enviado: 02/Mayo/2018 a las 17:47
Perdón por el retraso en la respuesta.

Pues parece que sí debo tener Access corrompido, porque lo he probado en otro ordenador y sí funciona el código.

Lo he solucionado compactando en otro ordenador y volviendo al mío y ya funciona

Gracias

Cry(Se puede cerrar el hilo)Cry
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable