DAO - Properties

Visse properties kan ikke fanges uden videre. Det drejer sig bla. om: Format, Input mask, Caption go ikke mindst datatype.

Hvis disse også skal overføres, så skal jeg ned og rode dybere i mine gemmer.

Men de gængse properties kan overføres således:

On Error Resume Next
Dim db As Database
Dim tdef As TableDef
Dim n As Integer
Set db = CurrentDb
Set tdef = db.TableDefs("Din tabel")

For n = 0 To tdef("Felt1").Properties.Count - 1
    tdef("Felt2").Properties(n) = tdef("Felt1").Properties(n)
Next n


NB: On Error Resume Next skal medtages, da visse properties er Read Only, hvorfor koden vil fejle ved disse.

mvh
Thomas

tester.....

Hele ideen er at jeg har nogle tabel-definitioner som skal opdateres engang imellem, og jeg har en master dette gøres fra. Mine felttyper er sat korrekt fra starten, men det er ting som datastørrelse, standarværdi, og de andre ting som kan sættes direkte i tabellens design-view, som jeg gerne vil opdatere med koden.....

Jeg har fået kreeret en rutine som overfører de egenskaber som ikke er read-only (ihvertfald de egenskaber jeg ønsker overført.

Tak for hjælpen.

MVH

JoBless

Jeg har lidt problemer med at koden er noget langsom. Jeg har opbygget noget kode som løber igennem nogle bestemte tabeller, nogle bestemte felter, og overfører felternes properties til en ekstern tabel med samme felttype.
Hvis jeg kører koden tager det umiddelbart ca. 13 sekunder at køre den, men hvis jeg disabler den linie som opdaterer mine properties, kommer afviklingen ned på ca. 2 sekunder.
Kan man via kode afgøre hvorvidt den enkelte property er read-only, eller om den kan opdateres?