Eksporter/importer objekter

Har du brug for at kunne eksportere en formular eller rapport, kan det gøres ved at gemme formularen som en tekstfil.

Dette er nyttigt, hvis man f.eks. skal mail'e en formular eller publicere den på eksempelvis Eksperten eller andre fora.

Måden at gøre det på, er ved at benytte en skjult metode i Access, som hedder SaveAsText (At den er skjult betyder, at metoden ikke fremkommer på listen over tilgængelige metoder og egenskaber, når man sætter punktumet efter objektet).

Metoden knytter sig til Application-objektet, og benyttes således:

Hvis vi har en formular, kaldet "Biler", som vi ønsker at eksportere til en tekstfil kaldet "Biler.txt" på C-drevet, så går vi i Immidiate-vinduet (Ctrl+G) og skriver blot:

Application.SaveAsText acForm, "Biler", "C:\Biler.txt"

Herefter oprettes filen og man kan efterfølgende læse den ind igen ved at skrive:

Application.LoadFromText acForm, "Biler", "C:\Biler.txt"

Ved indlæsningen kan man godt vælge et andet navn til formularen, end det oprindelige. F.eks.

Application.LoadFromText acForm, "BilerNy", "C:\Biler.txt"

Filens ekstension behøver ikke at være .txt. Du kan selv vælge din egen ekstension eller helt undlade at skrive noget efter punktummet.

Få vist alle skjulte metoder

At metoden er skjult betyder som sagt, at den ikke bliver vist på listen over tilgængelige metoder og egenskaber. Selv hvis man går i Object Browseren (F2 i VBA editoren), er metoden ikke tilgængelig.
I Object Browseren kan man dog få gjort alle skjulte metoder synlige ved at højreklikke og aktivere menupunktet "Show Hidden Members".

Herefter vil metoden dukke op, når du f.eks. begynder at skrive:

Som det ses, vil der nu forekomme metoder, som er nedtonet. Det er de skjulte metoder.
At disse metoder er skjulte betyder desværre, at de ikke er dokumenteret i Access-hjælpen, og at Microsoft således ikke stiller nogen garanti for at metoderne er gennemtestet 100 %.

NB: Bemærk, at selvom det forekommer som om, at man kan eksportere tabeller, så er dette ikke tilfældet. Du kan eksportere følgende objekter:

• Formularer
• Rapporter
• Makroer
• Forespørgsler
• Moduler
• Dataadgangssider

Eksempel på eksporteret fil

Herunder ses et eksempel på hvordan filen ser ud:

Version =19
VersionRequired =19
Checksum =-95753477
Begin Form
DefaultView =0
TabularFamily =255
PictureAlignment =2
DatasheetGridlinesBehavior =3
GridY =10
Width =4561
DatasheetFontHeight =10
ItemSuffix =6
Left =4605
Top =2115
Right =9450
Bottom =3255
DatasheetGridlinesColor =12632256
RecSrcDt = Begin
0x059227824cade240
End
GUID = Begin
0x7572459c447b2b4aa078b58fcb511175
End
NameMap = Begin
0x0acc0e5500000000f50c8b1fb057ae409749b476cdc2866a000000004a6cb380 ,
0x4cade2400000000000000000420069006c0065007200000000000000dc46cf76 ,
0x9143d44da5567f42591c6c1007000000f50c8b1fb057ae409749b476cdc2866a ,
0x420069006c0049004400000000000000d5be0d8d952d6144a3cc9ee3bc62eff8 ,
0x07000000f50c8b1fb057ae409749b476cdc2866a420069006c006d00e6007200 ,
0x6b0065000000000000001c01e9949a5d33458205b7efe9aaefd307000000f50c ,
0x8b1fb057ae409749b476cdc2866a41006c006400650072000000
End
RecordSource ="Biler"
Caption ="Biler"
DatasheetFontName ="Arial"
Begin
Begin Label
BackStyle =0
FontName ="Tahoma"
End
Begin TextBox
FELineBreak = NotDefault
SpecialEffect =2
OldBorderStyle =0
Width =1701
LabelX =-1701
FontName ="Tahoma"
End
Begin Section
Height =1153
BackColor =-2147483633
Name ="Detaljesektion"
GUID = Begin
0x0e0ca03be390f645a80cb8a588cd0f77
End
Begin
Begin TextBox
OverlapFlags =85
Left =1927
Top =113
Name ="BilID"
ControlSource ="BilID"
GUID = Begin
0xa871d07011a7d14bb3c6ca428d2b20c2
End
Begin
Begin Label
OverlapFlags =85
Left =113
Top =113
Width =390
Height =240
Name ="Etiket1"
Caption ="BilID"
GUID = Begin
0xda37b816911c7845adf021400c247e23
End
End
End
End
Begin TextBox
OverlapFlags =85
Left =1927
Top =453
Width =2490
TabIndex =1
Name ="Bilmærke"
ControlSource ="Bilmærke"
GUID = Begin
0x12cc116b74ce074eb5c57602866a0488
End
Begin
Begin Label
OverlapFlags =85
Left =113
Top =453
Width =720
Height =240
Name ="Etiket3"
Caption ="Bilmærke"
GUID = Begin
0x6c80dbda02c4f24fb7159b573c1720c4
End
End
End
End
Begin TextBox
OverlapFlags =85
Left =1927
Top =793
TabIndex =2
Name ="Alder"
ControlSource ="Alder"
GUID = Begin
0xe38c61c2d7cf064185a36ce3dd86c9e2
End
Begin
Begin Label
OverlapFlags =85
Left =113
Top =793
Width =450
Height =240
Name ="Etiket5"
Caption ="Alder"
GUID = Begin
0x26e35fbf0c9a4445b76a45779acba6f1
End
End
End
End
End
End
End
End