| Pregunta: | 7501 - EXTRAER NOMBRES Y NUMERO DE TABLAS |
| Autor: | Miguel Esquef |
| Trabajo en un proyecto que accede a una base de datos acces(creada mediante el mismo proyecto)ahora cuando en un momento dado nesecito verificar cuantas tablas hay y los nombres de las mismas el valor que me devuelve la propiedad "DATA.TableDefs(Ix).Name y value" no es correcto por ejemplo si tengo 7 tablas me devuelve 12 y los nombres los cargo en un combo y me da nombres como (ysAccessObjects-MSysObjects-MSysQueries-MSysACEs-MSysRelationships)además del nombre de las tablas supongo que estos objetos que son 5 los considera tablas por alguna razón que no entiendo aún pero yo necesito los nombres de las tablas y la cantidad nada más como hago por favor desde ya muchas gracias ojala me haya explicado suficientemente bien.
miguel | |
| Respuesta: | Jim Adam mi |
| en un bucle
dim tablassistema as byte tablassistema = 0 Dim fld as DAO.field for each fld in db.fields if lcase(left$(fld.name,4)) = "msys" then tablassistema = tablassistema +1 end if next TotalMisTablas = bd.fields.count -tablassistema espero te sirva [email protected] | |