Access - Error en tiempo de Ejecucion

   
Vista:

Error en tiempo de Ejecucion

Publicado por Eomer (9 intervenciones) el 31/03/2009 17:11:41
Hola a tod@s,

Tengo un formulario en el que al entrar me aparece un cuadro combinado con las tablas de la base de datos y en otro cuadro combinado me aparecen las tablas de una base de datos remota. Este el codigo:

Private Sub Form_Load()

Dim BdRemota As DAO.Database
Set BdRemota = OpenDatabase("F:BD_Gestion.mdb")

Me.ListaRemotas.RowSource = DameTablas(BdRemota)
BdRemota.Close
Set BdRemota = Nothing

End Sub

Luego tengo el siguiente modulo con la función DameTablas:

Option Compare Database
Option Explicit

Public VarInforme As String
Public NombreCurso As String

Function DameTablas(BD As DAO.Database) As String
Dim Cadena As String
Dim Tbl As DAO.TableDef
For Each Tbl In BD.TableDefs
If Left(Tbl.Name, 4) <> "MSys" Then
Cadena = Cadena & Tbl.Name & ";"
End If
Next
DameTablas = Cadena
End Function


Ha estado funcionando sin problemas, es decir, me aparecían las tablas de las dos bases de datos. Pero ahora en el cuadro combinado de la base de datos remota no me aparece nada, y cuando carga el form aparece el error en tiempo de ejecución '2176' 'El valor para esta propiedad es demasiado largo'.

Por el mensaje de error entiendo que puede ser problema del numero de tablas que tengo en la base de datos remota, que no puede cargarlas todas. Tengo access 2000, pero en access 2007 funciona ok.

Alguna idea

Gracias y un saludo.
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