FollowHyperlink

[so10070]

Ik open een bestand met methode "FollowHyperlink"

Application.FollowHyperlink Me.txtKGStappenplan, , True

Dit werkt prima, maar het geopende bestand wordt niet on top geplaatst. Kan ik dit rechtstreeks met de methode "FollowHyperlink" meegeven of moet hier "Shell" gebruikt worden.

 

[gast0660]

Hallo,

Mischien met deze

 Application.FollowHyperlink Me.txtKGStappenplan,  NewWindow : = true

groet

 

[OctaFish]

De code van TS is exact hetzelfde, dus dat maakt geen verschil. Bovendien: de True toevoeging maakt alleen een nieuw venster aan, en doet niks met het 'bovenop' leggen van dat venster. Overigens doet-ie dat mij bij wel, dus wellicht heb je meer code achter je knop staat die het tegenhoudt.

 

[so10070]

Hierbij de code:

Private Sub txtKGStappenplan_Click()
    On Error GoTo foutafhandeling
    
    Application.FollowHyperlink Me.txtKGStappenplan, , True

foutafhandeling:
    If Err.Number = 490 Then MsgBox "Bestand niet gevonden", vbOKOnly, "Help"
End Sub

 

[OctaFish]

Ik snap wel dat je de verkeerde focus krijgt: je loopt altijd door naar de foutafhandeling. Daarmee blijft de focus dus op Access staan, en niet op de hyperlink. Die foutafhandeling moet dus ofwel weg (is volgens mij ook nergens voor nodig) of je moet er voor zorgen dat de code daar niet naar toe gaat.

 

[so10070]

Ook dat helpt niet

 

[OctaFish]

Hoe ziet je code er nu uit?

 

[OctaFish]

Het manipuleren van objecten buiten Access is behoorlijk lastig, en vereist wat code om API calls aan te roepen. Ik heb nog even gegoogled en kwam op deze website. Kijk maar even of dit niet te moeilijk voor je is, en of je er wat aan hebt.

 

[so10070]

Bedankt voor de info. Ik ga dit zeker aandachtig bekijken.