Valg af ny datafil?

Det kræver vist en større omgang kode. Jeg er ikke sikker, men på nedenstående side kan du næsten kopiere det hele.

http://www.mvps.org/access/tables/tbl0009.htm

Umiddelbart får jeg ikke koden til af virke. Er der andre foreslag?

Hvad går galt?

Får følgende fejl

ahtAddFilterItem(strFilter,

i funktionen som ser sådan ud

Function fGetMDBName(strIn As String) As String
'Calls GetOpenFileName dialog
Dim strFilter As String

    strFilter = ahtAddFilterItem(strFilter, _
                    "Access Database(*.mdb;*.mda;*.mde;*.mdw) ", _
                    "*.mdb; *.mda; *.mde; *.mdw")
    strFilter = ahtAddFilterItem(strFilter, _
                    "All Files (*.*)", _
                    "*.*")

    fGetMDBName = ahtCommonFileOpenSave(Filter:=strFilter, _
                                OpenFile:=True, _
                                DialogTitle:=strIn, _
                                flags:=ahtOFN_HIDEREADONLY)
End Function

compile error function or subfunction not defined

Det er noget kode, der mangler. Hmm - mystisk.

Det er alligevel ikke så mystisk øverst på den side jeg referede til tidligere er en henvisning ( http://www.mvps.org/access/api/api0001.htm ) til noget kode, der åbner en dialogboks til finde filen med.

Den kode indeholder så vidt jeg kan se en fare - man kan 'risikere' at komme til at bruge nogle tabeller fra forskellige datafiler.
Den mest korrekte måde at lave dette lille julenummer på er ved først at fjerne linket til alle tabeller og derefter lave et nyt link til en ny backend.

Hvis du lige kaster en mailadresse, skal jeg sende dig en fil med noget kode som burde virke ved at kalde funktionen fhpLink_CreateToDB

jan@schoesler.com

Jeg havde ikke lige set at det var dig Jan - filen er afsendt her fra.  Du kender adressen for yderligere spørgsmål :-)

hugopedersen

Det var vel sådan set også det der var hele ideen i spørgsmålet. Men du har selvfølgelig ret i at det gamle link skal fjernes først.

Hej Hugo
Får fejl i denne løkke. Det er ligesom om der mangler en funktion?


Hilsen JAN

For Each tdf In dbs.TableDefs                                'All tables
      If Left(tdf.name, 4) <> "MSys" Then
        If fhpLink_Create(strPath, tdf.name) = True Then          'Try to make link
          fhpLink_CreateToDB = True                              'Link made OK
        Else

Det er vist denne her -


Public Function fhpLink_Create(strSrcDb As String, strTable As String) As Boolean
' -----------------------------------------------------------------------------------
' Purpose      : Creates a link to strTable in the database strSrcDb
' Called from  :
' Returns      :
' Remarks      : Links to current DB
' -----------------------------------------------------------------------------------
On Error GoTo Error_fhpLink_Create
 
  DoCmd.TransferDatabase acLink, "Microsoft Access", strSrcDb, acTable, strTable, strTable
 
  fhpLink_Create = True                                  'All ended well
 
Exit_fhpLink_Create:
  Exit Function                                        'Stop here

Error_fhpLink_Create:
  If Err <> 3012 Then
    MsgBox Err.Number & ": " & Err.Description, vbOKOnly + vbCritical, "Error in function 'fhpLink_Create'"
  End If
  fhpLink_Create = False
  Resume Exit_fhpLink_Create

End Function

'hugo' fejlen forsvandt, men nu sker der ingen ting når jeg kalder funktionen
fhpLink_CreateToDB() ?? hmmmm.

http://www.alco.dk/users/hugo/files/db_link.zip

UPS der kom et s for meget med :-)

http://www.alco.dk/user/hugo/files/db_link.zip

'hugo' det virker. Men hvad gjorde du? Umiddelbart ser vores module og macro ens ud. Er det svært at indsætte en progress bar imens den linker?
Tak for hjælpen. Opretter du et svar så jeg kan komme af med pointene.
JAN

Der manglede åbenbart en lille funktion som jeg havde overset.

Progressbar - så skal man lige til at tænke :-)
Jeg har en funktion der kan tælle antallet af tabeller i en ekstern datafil, så burde man kunne lave et eller andet i fhpLink_CreateToDB der tæller op det har du ret i. Det tror jeg jeg vil forsøge mig ud i når jeg skal være alene hjemme i aften mens lillemor er til banko :-)
Send lige en mail på min hjemmeadresse som du har, så husker jeg at opdatere filen i aften.

Så skulle der ligge en opdateret fil med et progressmeter på ovennævnte adresse.