** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Access y VBA
  Mensajes nuevos Mensajes nuevos RSS - Error de compilacion. Se esperaba una matriz
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoError de compilacion. Se esperaba una matriz

 Responder Responder
Autor
Mensaje
GOOO Ver desplegable
Asiduo
Asiduo
Avatar

Unido: 08/Mayo/2012
Localización: Guatemala
Estado: Sin conexión
Puntos: 350
Enlace directo a este mensaje Tema: Error de compilacion. Se esperaba una matriz
    Enviado: 27/Agosto/2018 a las 23:26
Hola buen día (mañana, tarde o noche)
Tengo una función que me dá los resultados que deseo. El inconveniente es que al compilar, desde donde llamo la función me da el mensaje: Error de Compilación: Se esperaba una matriz.

La función es la siguiente:
Enum Listado
BEnd = 1
Reportes = 2
BackUp = 3
End Enum

Public Function Ruta(Optional Origen As Listado) As String
Select Case Origen 
    Case Is = 1 'Ruta de la base de datos
        Ruta = Application.CurrentProject.Path & "\SYSTEMGM\DataBase\Datos.accdb"     
    Case Is = 2 'Ruta de la carpeta de reportes varios
        Ruta = Application.CurrentProject.Path & "\SYSTEMGM\Reportes\"
    Case Is = 3 'Ruta de las carpeta para backup
        Ruta = Application.CurrentProject.Path & "\SYSTEMGM\BackUP\"
End Select
End Function

Para llamar la función:
Me.txtRutaBackEnd= Ruta(BackUp)

Lo subrayado con rojo, es donde indica el error.
Gracias.

Viendo se aprende y practicando se mejora
Arriba
lbauluz Ver desplegable
Administrador
Administrador
Avatar

Unido: 29/Marzo/2005
Localización: Binghamton Jail
Estado: Sin conexión
Puntos: 3507
Enlace directo a este mensaje Enviado: 27/Agosto/2018 a las 23:57
Prueba



Ruta = Application.Path & "\SYSTEMGM\BackUP\"


Lo siento, estaba probando en Excel, que no tiene CurrentProject.

Olvida lo dicho

Luis


Editado por lbauluz - 28/Agosto/2018 a las 00:12
El Búho fue, es y será siempre mi ídolo
Arriba
lbauluz Ver desplegable
Administrador
Administrador
Avatar

Unido: 29/Marzo/2005
Localización: Binghamton Jail
Estado: Sin conexión
Puntos: 3507
Enlace directo a este mensaje Enviado: 28/Agosto/2018 a las 00:14
Por cierto, en Acces me funciona perfectamente.

Luis
El Búho fue, es y será siempre mi ídolo
Arriba
GOOO Ver desplegable
Asiduo
Asiduo
Avatar

Unido: 08/Mayo/2012
Localización: Guatemala
Estado: Sin conexión
Puntos: 350
Enlace directo a este mensaje Enviado: 28/Agosto/2018 a las 00:33
Gracias por tu respuesta:

Correcto, funciona perfectamente.
Desde hace un tiempo que la he usado y me funciona bien.
Es solo que al compilar el proyecto, me aparece ese error.

Solo en el editor de vba, al compilar.


Editado por GOOO - 28/Agosto/2018 a las 00:34
Viendo se aprende y practicando se mejora
Arriba
GOOO Ver desplegable
Asiduo
Asiduo
Avatar

Unido: 08/Mayo/2012
Localización: Guatemala
Estado: Sin conexión
Puntos: 350
Enlace directo a este mensaje Enviado: 10/Septiembre/2018 a las 17:34
Hola, Disculpas por mi pregunta. 
La verdad en vez de enojarme conmigo mismo me da risa.

Tenia: Option Explicit

Lo quité y ya no me da el error.

Gracias y nuevamente disculpas.

Se puede cerrar este hilo
Viendo se aprende y practicando se mejora
Arriba
Mihura Ver desplegable
Administrador
Administrador
Avatar

Unido: 06/Mayo/2005
Localización: En la dehesa
Estado: Sin conexión
Puntos: 11592
Enlace directo a este mensaje Enviado: 10/Septiembre/2018 a las 18:06
Reabro el tema.

Al quitar la línea Option Explicit lo que haces es decir a Access que no busque errores (más concretamente que no busque variables / objetos sin declarar), es decir no has eliminado el error, lo has tapado.

Otra cosa es que no quieras encontrar el error (porque ahí está) y des por cerrado el hilo, pero no podemos admitir como solución a un problema el eliminar la línea Option Explicit.

Ya dirás que quieres hacer.
Jesús Mansilla Castells.
Saludos desde Móstoles.

Access Aplicaciones
Tecsys.es
Arriba
jilo Ver desplegable
Colaborador
Colaborador


Unido: 19/Diciembre/2004
Localización: TAFALLA
Estado: Sin conexión
Puntos: 917
Enlace directo a este mensaje Enviado: 10/Septiembre/2018 a las 19:16
Y que tal sí puebas asi:
Me.txtRutaBackEnd= Ruta(3)
y cambias
Public Function Ruta(Optional Origen As Long) As String




Espero te sirva !!!!!!
Iñaki
Arriba
GOOO Ver desplegable
Asiduo
Asiduo
Avatar

Unido: 08/Mayo/2012
Localización: Guatemala
Estado: Sin conexión
Puntos: 350
Enlace directo a este mensaje Enviado: 10/Septiembre/2018 a las 19:58
Lo de Option Explicit no lo sabía.

Dada la información de Jesús Mansilla (Mihura). Seguimos con el tema sin cerrar.



Viendo se aprende y practicando se mejora
Arriba
GOOO Ver desplegable
Asiduo
Asiduo
Avatar

Unido: 08/Mayo/2012
Localización: Guatemala
Estado: Sin conexión
Puntos: 350
Enlace directo a este mensaje Enviado: 10/Septiembre/2018 a las 20:10
Gracias jilo, por tu respuesta.

La verdad lo he probado, pero me sigue dando el mismo error, aunque ello implica no usar las opciones del Enum Listado

También cambie el nombre de 'Listado' por otro, le quité 'Optional' antes de origen y me sigue dando el mismo error.


Viendo se aprende y practicando se mejora
Arriba
GOOO Ver desplegable
Asiduo
Asiduo
Avatar

Unido: 08/Mayo/2012
Localización: Guatemala
Estado: Sin conexión
Puntos: 350
Enlace directo a este mensaje Enviado: 10/Septiembre/2018 a las 20:27
Hola a todos. Encontré la solución

En el mismo módulo, Tenia 2 Enums. Los separé (es decir; dejé la función en mención en el módulo actual y pasé el resto en otro módulo) y esa fue la solución.

Gracias por su aporte.
Ahora si podemos cerrar este hilo.

No lo mencioné antes, porque según yo el error solo era por la función Ruta.
Si eso merita una disculpa, Entonces me disculpo.


Editado por GOOO - 10/Septiembre/2018 a las 20:28
Viendo se aprende y practicando se mejora
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable