Hallo
Zit al paar dagen te zoeken hoe je een URL kan maken en lukt mij gewoon nog niet.
Er is een website waar je de call kan invoeren en dan ga je naar zijn pagina. Als je verbinding hebt gemaakt (zenden) wil ik het bij houden.
wat ik gedaan hebt is in een Query in het veld "QRZURL: "www.qrz.com/db/"+[Call Sign]" dan krijg ik netjes de volledige url in mijn formulier te zien. http://www.qrz.com/db/PD0G
Nu kan ik er op klikken maar gebeurd niets. Ook weer geven al hyperlink gezet in Eigenschap.
Later een knop toegevoegd met een Gebeurtenis ... Maar ook dit krijg ik niet aan de gang.
Private Sub Knop221_Click()
Dim strPath As String
'Error check: Er is een fout URL gekozen.
If IsNull(Me.QRZURL) Then
MsgBox "Er Is een verkeerd URL ingevoerd.", vbOKOnly
Exit Sub
End If
'Link maken ophalen
strPath = Me.QRZURL
strPath = Mid(strPath, 2, Len(strPath) - 2)
Application.FollowHyerlink strPath
End Sub
Wat vergeet ik????
Zit al paar dagen te zoeken hoe je een URL kan maken en lukt mij gewoon nog niet.
Er is een website waar je de call kan invoeren en dan ga je naar zijn pagina. Als je verbinding hebt gemaakt (zenden) wil ik het bij houden.
wat ik gedaan hebt is in een Query in het veld "QRZURL: "www.qrz.com/db/"+[Call Sign]" dan krijg ik netjes de volledige url in mijn formulier te zien. http://www.qrz.com/db/PD0G
Nu kan ik er op klikken maar gebeurd niets. Ook weer geven al hyperlink gezet in Eigenschap.
Later een knop toegevoegd met een Gebeurtenis ... Maar ook dit krijg ik niet aan de gang.
Private Sub Knop221_Click()
Dim strPath As String
'Error check: Er is een fout URL gekozen.
If IsNull(Me.QRZURL) Then
MsgBox "Er Is een verkeerd URL ingevoerd.", vbOKOnly
Exit Sub
End If
'Link maken ophalen
strPath = Me.QRZURL
strPath = Mid(strPath, 2, Len(strPath) - 2)
Application.FollowHyerlink strPath
End Sub
Wat vergeet ik????