Udskriv tabelnavne m.m.

Jeg plejer at sætte dem op under relationer, trække i dem så jeg kan se felterne, og så printscreen

nb. i office 2000, kan man også udskrive dem

Jeg har ikke nogen relationer, da tabellerne bliver brugt i forbindelse med ASP.

Jeg havde håbet på, at kunne få det eksporteret til en txt-fil.

Kan man det?

Selvom du ikke har nogle relationer kan du godt åbne relationsvinduet og trække alle dine tabeller over - udvid dem så de viser titel og felter, og lav derefter en udskrift via printscreen eller via en rapport.

Jeg skal bruge en eksport til f.eks. en txt-fil. Kan jeg det?

Kan ikke bruge et screendump til noget...

i office 2000, kan man også udskrive dem som rapport

Ja det kan du også - en tabel ad gangen...marker din tabel, vælg eksporter, vælg filtype, og eksporter eks. fast afgrænset.
mvh

Det ser desværre ikke ud til at nogen af disse virker...

Rapporten giver mig ikke feltnavnene i et txt-dokument.
Eksporten giver mig INDHOLDET af felterne - IKKE feltnavnene.

Hvis man sagde at jeg havde felterne "navn", "adresse", "telefon" havde jeg forestillet mig en tekstfil som så nogenlunde sådan ud:

navn,adresse,telefon

Kan man ikke det?

Hej
Jeg prøvede lige med en forspørgsel...beholdt formateringen og det virkede.
så en forespørgsel kan altså....Der får du feltnavne og indhold med i en eksport til en tekstfil.

Her kommer jeg nok lidt til kort. Jeg kan sagtens oprette en forespørgsel, men hvordan får jeg den ud i en tekstfil..?

Har fundet ud af det.

Det ligner stadig ikke noget jeg kan bruge i mit videre forløb.

Får bl.a. stadig indholdet af felterne med - det er ikke meningen. Skal KUN bruge feltnavnene...

dim dbs as database
dim tdf as tabledef
dim fld as field
dim i as integer

open ("C:\dinfil.txt") for input as #1

set dbs = currentdb

with dbs
      for each tdf in .tabledefs
          input #1, tdf.Name
          for i = 1 to tdf.Fields.Count
          input #1, tdf.fld(i).Name
          Next i
      next tdf
end with
close #1

Det ser absolut spændende ud!

Hvordan afvikler jeg det?

Enten på en knap i din form eller sæt koden ind i et modul i db'en

Puha, det her er helt nyt for mig!

Jeg klikker på "moduler", vælger "Ny", indsætter koden som overchord har sendt, og gemmer.

Nu har jeg den på listen over moduler, men jeg kan ikke afspille den.

Hvad gør jeg galt...?

Skal lige sige, at jeg aldrig har arbejdet med Access på denne måde...

du skal oprette en knap på din formular og lave en Call overchordfunction(), navnet på din funktion i modulet

>>overchord
Det ser spændene ud, men jeg får fejlen comoiler error. I linjen:
input #1, tdf.Name
Henrik13

Hmmm... Okay:

Nu har jeg lavet en knap i en formular. Jeg brugte en guide som fik knappen til at udføre modulet.

Når den forsøger at køre koden får jeg denne fejl:

"Compile Error"
"Invalid Outside Procedure"

Udtrykket den fejler på er: "C:\dinfil.txt"

...Og jeg HAR selvfølgelig oprettet tekstfilen og den ligfger det rigtige sted.

Hvorfor får jeg denne fejl?

Funktioner > analyser > Strukturvisning

Giver allle data om tabeller samt felter.

Mugs: Kan man eksportere dataene hér?

(Får en fejl om noget der ikke er installeret, så skal ha' fundet min Office-skive et sted...)

istedet for at specificere filnavnet der proev evt med

dim flnm as string

flnm = "c:\dinfil.txt"
open flnm for Input as #1

Henrik13 -> Jeg har ikke selv afproevet koden endnu, det kna vaere at det er noedvednigt at smide navnene over i strings... men vender lige tilbage omkring den.

ok nu har jeg lavet en version der rent faktisk virker ordentligt og er testet - have keglet lidt i input og outoout filer tidligere:

Sub TableStructure()
Dim dbs As Database
Dim tdf As TableDef
Dim i As Integer
Dim flnm As String
Dim temp As String

Set dbs = CurrentDb


flnm = "d:\test2.txt"
Open flnm For Output As #1

With dbs
    For Each tdf In .TableDefs
       
        temp = tdf.Name
        Write #1, temp
        temp = Empty
        For i = 0 To (tdf.Fields.Count - 1)
            temp = tdf.Fields(i).Name
            Write #1, temp
            temp = Empty
        Next i
    Next tdf
End With

Close #1

End Sub

Beklager, men jeg er helt novice i at arbejde i databaser, men jeg får stadig nogle fejl.

Hvordan er den helt rigtige måde at eksekvere scriptet på? Havde oprettet en knap i en formular, men dette var tilsyneladende ikke rigtigt gjort.

Kan nogen hjælpe hér..?

ok hvis du laegger den ovennaevnte kode i et modul og gemmer denne som f.eks Modul1

Naar du saa opretter en knap kan du ved click-haendelsen bare skrive
Modul1.Tablestructure()

Fejl: Access kan ikke finde makroen "export_dbFields"

Ved klik: export_dbFields.TableStructure()

???????????

Ja, det kan umiddelbart eksporteres til Word eller Excel. På din menulinie har du et ikon (Word eller Excel) der hedder Office Links. Her kan du vælge om du vil udskrive til Word eller Excel.

ok og du har gemt koden i et modul der hedder export_dbfields? Hvis du gaar ind under fanebladet Moduler skal der ligge et element der hedder export_dbfields

Fint med eksporteringen.

Ja, der ligger et element under "Moduler" der hedder "export_dbFields".

Kan ikke lige gennemskue det...

hmmm virker koden hvis du aabner modulet og koere koden derfa?

Nej, det tror jeg ikke.

Åbner jeg modulet og trykker "Play" kommer en "Compile Error" i linjen "Dim dbs As Database".

Hmmm... Det er nok nærmere i linjen "Sub TableStructure()"...

ok her er jeg lidt lost med hvad der kan vaere galt. Hvis du laegger en emial kan jeg sende dig en eksempel db med koden hvor den virker

>>overchord
Den vil jeg gerne se. Min E-mail er:
oz1bua@wanadoo.dk

Hmm... Sjovt, nu virker det. ved ikke lige hvad jeg har gjort, men nu kører det.

Tak for hjælpen!

lol - ok saa sender jeg ikke noget :-)