Her er et udsnit fra hjælpen omkring guides:
Oprette egne guider, generatorer og tilføjelsesprogrammer
Når du udvikler dine egne tilføjelsesprogrammer (guider, generatorer eller tilføjelsesmenuer), skal du angive adskillige databaseegenskaber og oprette en USysRegInfo-tabel i tilføjelsesdatabasen (*.mda), så den kan installeres ved hjælp af Tilføjelsesstyring. Oplysninger om, hvilke databaseegenskaber der skal defineres, og hvordan du kan importere en eksempelkopi af USysRegInfo-tabellen, finder du i kapitel 17, \"Oprettelse af guider, generatorer og tilføjelsesmenuer\", i Applikationsudvikling med Microsoft Access 97.
Det har gennem længere tid irriteret mig at jeg ikke har en kopi af den bog liggende, så jeg er villig til en trade-off. Hvis du sender mig en kopi af bogen, laver jeg din guide for dig. Afhængigt af kompleksiteten af import/eksporten (Jeg vil se en beskrivelse før vi aftaler noget som helst ;o)) vil jeg tro der ligger en 3-5 timers arbejde i det.
For en kopi af bogen kan du få op til de første 5 timer gratis. Men alt derudover holder jeg mig en lidt pebret timeløn ;o) og jeg er forbi det punkt hvor jeg arbejder flere uger for ingenting og derefter supporterer installationen gratis...
Mail mig hvis du er interesseret.....
Alternativt kan du opbygge din egen guide vha. formularer og en masse VBA kode. Du kan med fordel kigge på den indbyggede import/eksport funktionalitet og definere dine egne \"Specifikationer\" som du så kalder fra VBA, f.eks. med DoCmd.....
Her er et eksempel på import fra en tekstfil, som jeg sidder og bakser med for øjeblikket (til inspiration):
\' For mere udførlige noter om importen se under formularen F_ImportSelect!!!!!
\' Denne function gennemsøger biblioteket <path> for txt-filer og gemmer resultatet i tabellen Import Filer
Public Function FSearch(Path As Variant) As String
Dim fs As Variant, i As Integer, rs As Recordset
If Not Nz(Path, \"\") > \"\" Then
MsgBox \"Du skal indtaste en gyldig sti i boksen!\"
Exit Function
End If
On Error GoTo Fejl:
DoCmd.SetWarnings False
Set fs = Application.FileSearch
With fs
fs.NewSearch
fs.LookIn = Path
fs.FileName = \".txt\"
fs.SearchSubFolders = False
fs.MatchTextExactly = False
fs.FileType = msoFileTypeAllFiles
Set rs = CurrentDb.OpenRecordset(\"Import Filer\", dbOpenTable)
If .Execute(SortBy:=msoSortByFileName, SortOrder:=msoSortOrderAscending) > 0 And Path = fs.LookIn Then
If .FoundFiles.Count > 0 Then
Do While Not rs.EOF
rs.Delete
rs.MoveNext
Loop
For i = 1 To .FoundFiles.Count
rs.AddNew
rs!Antal = .FoundFiles.Count
rs!Navn = .FoundFiles(i)
rs!Path = Path
rs.Update
Next i
Else
MsgBox \"Der blev ikke fundet nogen filer!\"
End If
Else
MsgBox \"Mappen kunne ikke findes! Kontroller at du har indtastet en gyldig sti i boksen.\"
End If
End With
FSearch = fs.LookIn
Set fs = Nothing
rs.Close
DoCmd.SetWarnings True
Exit Function
Fejl:
MsgBox \"Der opstod en fejl ved søgningen!\"
rs.Close
DoCmd.SetWarnings True
End Function
\' Selve importen fra filen
Public Function InStreamTxt(Filnavn As Variant) As Boolean
On Error GoTo Fejl:
InStreamTxt = False
Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset(\"ImportResBasic\", dbOpenTable)
Do While Not rs.EOF
rs.Delete
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
If Nz(Filnavn, \"\") = \"\" Then Exit Function
DoCmd.TransferText acImportFixed, \"Ordretilgang importspecifikation1\", \"ImportResBasic\", Filnavn
InStreamTxt = True
Fejl:
End Function
Søg i hjælp under \"Transfer...\", \"Import\", \"Specifikationer\" og \"Filer\"
Håber det hjælper :o)
