liste over tabeller

Hej sf
Der findes sikkert en smatere måde end denne, men du kan vælge funktioner/Analyser/Strukturvisning, denne guide opretter en rapport du kan udskrive, på rapporten er så alle feltnavne samt datatyper angivet for den eller de valgte tabeller

Bemærk at guiden tager noget tid før den er færdig

mente med VBA

Well, har ikke lige noget bud på det, men mener at have set spørgsmålet før, prøv evt. at søge i vidensbasen

Du kan bruge dette for at få det i en liste:

Dim db As Database
Dim tbl As TableDef
Dim tbls As TableDefs
Dim str As String
Set db = CurrentDb()
Set tbls = db.TableDefs
For Each tbl In tbls
    str = str & tbl.Name & ";"
Next
Me.tabelnavn.RowSourceType = "value list"
Me.tabelnavn.RowSource = str

Det var et svar.

Lav denne forespørgsel, så har du en komplet liste over tabeller:

Select Name From Msysobjects Where Type in (1, 4, 6)

Hvis du ikke ønsker systemtabeller med, så kan du lave dn sådan:
SELECT Name, Type
FROM msysobjects
WHERE Type In (1,4,6)) AND Left([name],4)<>"Msys"


denne liste kan kobles til en listboks eller lign.

den kommer med fejl i WHERE Type In (1,4,6)) AND Left([name],4)<>"Msys"

hmm, du indsætter hele udtrykket i SQL-visningen på en forespørgsel, ikk'?

Det virker fint hos mig.

Du kan evt bare prøve med:

Select * from msysobjects for at se om det virker.

hvad skal name være?

Name er bare navnet på tabellen, forespørgslen, formularen, rapporten eller hvad objektet nu er for et.

Det er Type som angiver hvilken....type....der er tale om :)

hippokrates hvorfor kommer der en masse andet med en tabellerne?? :(

I hippokrates løsning kommer der kun tabeller med. Men dda der findes nogle systemtabeller, så kommer de også med.

Får du slet ikke noget resultat ud af min SQL? For så kunne du bare sætte listes rækkekilde direkte til den SQL-sætning (husk dog at skifte Rækkekildetype til "tabel/forespørgsel")

ok men får MSysAccessXML MSysAccessObjects MSysQueries osv med

ja, alt hvad der starter med msys er systemtabeller.

Det er det, som denne skulle udelukke:

SELECT Name, Type
FROM msysobjects
WHERE Type In (1,4,6)) AND Left([name],4)<>"Msys"

kan jeg ikke undgå systemtabeller?

jeg er ikke klar over hvem du spørger og hvilken metode du hentyder til. Min metode fjerner systemtbellerne.....

den siger der er en parentes for meget når den er væk få jeg stadig system tabeller med..

det er din thomasjepsen og de er der stadig:

Name    Type
MSysObjects    1
MSysACEs    1
MSysQueries    1
MSysRelationships    1
Aktivitet    1
Kundekartotek    1
MSysAccessObjects    1
MSysAccessXML    1
prosvar    1
PrototypeTabel    1
PrototypeTegninger    1
Reference    1
Ruteplan    1
sogkunde    1
test    1
testny    1

sql:
SELECT Name, Type
FROM msysobjects
WHERE Type In (1,4,6) AND Left("prosvar",4)<>"Msys"

ellers tager jeg bare sys tabeller væk med kode..

ah, der skal ikke stå "Prosvar". Der skal ordrret stå:

SELECT Name, Type
FROM msysobjects
WHERE Type In (1,4,6) AND Left([name],4)<>"Msys"

Jeg beklager den ekstra venstreparentes før :o(

Name er et felt i msysobjects-tabellen

jeg kan godt se, at jeg misforstod dit spm kl 20:53:25.

Det beklager jeg selvfølgelig også ;o)

takker thomasjepsen nu virker det men hvordan får jeg fat i alle feltnavene i en tabel?

skal det også bare være i en listboks eller komboboks?

ja listboks lige som før

denne listboks er meget nem:

Angiv Rækkekildetype til "Feltliste"
Angiv Rækkekilde til navnet på den tabel, som du vil se felterne for.


Den kan evt styres dynamisk vha VBA, så når du vælger en tabel på første listboks, så skifter feltlisten tilsvarende:

Kald evt feltlisten for "lstfelter" og tabellisten for "lstTabeller"

På lstTabeller's EfterOpdatering lægges denne kode:

Me!lstfelter.Rowsource = Me!lstTabeller

thomasjepsen synes ikke jeg kan få det sidste til at virke.. :( når jeg har min liste af tabeller skal man vælge en og derefter få en liste med alle de feltnavn der er i denne tabel

ja, det er netop det, som mit sidste eks. skulle klare.

jeg prøver lige at lave et eks. i morgen...lige nu er jeg på vej i seng....Zzzz

Send mig lige en reminder, hvis jeg skulle have glemt det i morgen ;o)

ville du lave et eks. ?

ja for søren...det var godt, at du selv huskede det...øjeblik...

så skulle den være der: http://www.makeiteasy.dk/eksempler/Eksperten/Feltlister.zip

tak kigger lige på det når jeg kommer hjem.. så kan du nok på point

tak thomasjepsen du har været en meget stor hjælp.. mange tak vil meget gerne give dig 40 point mere hvis du have dem.. :) !?

Det skal du ikke tænke på - jeg har jo kun svaret på det, som du spurgte om :o)

Jeg er bare glad for, at kunne hjælpe.