Hyperlink naar een excel bestand afhankelijk van veld waarde

[Marcotica]

Hallo,

Ik zou graag een link maken in Acces die een excel bestand opent.
Het excel bestand heeft een zelfde naam als een record in acces. Dus afhankelijk van een veld naam moet ie het juiste excel bestand erbij zoeken.

Ik neem aan dat het een VB script wordt. Wie o wie kan mij deze leveren.

gr. Marco

 

[Greenery80]

Hoi Marco,

Even een voorbeeldje gemaakt met followhyperlink methode in VBA.

Het excel bestand wordt geopend met een druk op de knop.
De bestandsnaam staat dus in de tabel en wordt weergegeven in de tekstbox.

Ik maak gebruik van currentproject.path, maar je kan de map ook zelf specificeren.
Hier kom je vast wel uit.

 

[Marcotica]

Hoi Marco,

Even een voorbeeldje gemaakt met followhyperlink methode in VBA.

Het excel bestand wordt geopend met een druk op de knop.
De bestandsnaam staat dus in de tabel en wordt weergegeven in de tekstbox.

Ik maak gebruik van currentproject.path, maar je kan de map ook zelf specificeren.
Hier kom je vast wel uit.

Hoi Greenery,
Bedankt voor de opzet, maar ik kom er nog uit.
Jouw script aangepast naar mijn bestand alsvolgt:

Private Sub KnopFinOverzicht_Click()
On Error GoTo Err_KnopFinOverzicht_Click

Application.FollowHyperlink (CurrentProject.Path & "\DoelgroepenDB_Excel\" & Me!ContractNummer)

Exit_KnopFinOverzicht_Click:
Exit Sub

Err_KnopFinOverzicht_Click:
MsgBox Err.Description
Resume Exit_KnopFinOverzicht_Click


End Sub

Helaas zegt deze. "kan het opgegeven bestand kan niet worden geopend.

Kun je mij nog assisteren?

mvg
Marco

 

[Greenery80]

Jij doet een verwijzing naar Me!ContractNummer

Ik vermoed dat in het veld niet de naam staat van je Excel bestand.
Je moet dus het veld invullen waar de naam van het bestand in wordt weergegeven.

Wat vba waarschijnlijk nu probeert te openen is:
C:\...\DoelgroepenDB_Excel\1
ipv
C:\...\DoelgroepenDB_Excel\test.xls

Wat ook zou kunnen...
Als het excel bestand 1.xls heet, dan het volgende doen:
Application.FollowHyperlink (CurrentProject.Path & "\DoelgroepenDB_Excel\" & Me!ContractNummer & ".xls")

 

[Marcotica]

Hoi Greenery,
Bedankt voor de opzet, maar ik kom er nog uit.
Jouw script aangepast naar mijn bestand alsvolgt:

Private Sub KnopFinOverzicht_Click()
On Error GoTo Err_KnopFinOverzicht_Click

Application.FollowHyperlink (CurrentProject.Path & "\DoelgroepenDB_Excel\" & Me!ContractNummer)

Exit_KnopFinOverzicht_Click:
Exit Sub

Err_KnopFinOverzicht_Click:
MsgBox Err.Description
Resume Exit_KnopFinOverzicht_Click


End Sub

Helaas zegt deze. "kan het opgegeven bestand kan niet worden geopend.

Kun je mij nog assisteren?

mvg
Marco

Het is me gelukt!!!!!!!!!
De string heb ik verlengd met: & ".xls"
Dus:
Application.FollowHyperlink (CurrentProject.Path & "\DoelgroepenDB_Excel\" & Me!ContractNummer & ".xls")

Ontzettend bedankt nog.....

Met hoogachtende waardering.

Marco

 

[Greenery80]

Ah, je had het zelf al uitgevonden.
Goed bezig! :thumb: