09. august 2011 - 12:08Der er
21 kommentarer og 2 løsninger
Åbne link fra felt via kommandoknap
Hejsa eksperter.
Jeg har en felt i min form, hvori der er en webadresse, eks. "www.google.com". Jeg vil gerne have en kommandoknap til at åbne den side, som dette felt indeholder. Nogen der har en fix idé til hvordan man klarer den ?
Teknologi, AI og forretning er i centrum på Computerworlds Cloud og AI Festival i København d. 18. og 19. september. Se hele programmet for den store konference om strategisk brug af Cloud og AI på: www.cloud-festival.dk
Ja okay, det virker som sådan okay :-) Har dog den udfordring, at den åbner en ASP side, hvor den skal videreføre nogle ID'er til den ønskede visning (eks. www.gsjk.dk/test.asp?id=7) Det giver tilsyneladende problemer. Access skriver at den ikke kan overføre de ønskede værdier. Er det mon pga. specialtegn ?
Jeg har det som et skrivebeskyttet hyperlinkfelt, hvor ovenstående klik sender det videre. Jeg har så en knap ude til højre, hvorfra jeg klarer editeringen:
Private Sub cmdEditHyper_Click() 'Opens hyperlink dialog On Error GoTo ErrEditHyper Me.ProgTemplateURL.SetFocus
If Me.ProgTemplateURL = "" Or IsNull(Me.ProgTemplateURL) Then DoCmd.RunCommand acCmdInsertHyperlink Else DoCmd.RunCommand acCmdEditHyperlink End If Exit Sub ErrEditHyper: Select Case Err Case 2046 'Edit Hyperlink not available MsgBox "Du skal stå på et Hyperlink felt.", vbCritical, "Link fejl" Resume Next Case 2501 'Cancel button selected do nothing Resume Next Case Else MsgBox Err & vbCrLf & vbCrLf & Err.Description, vbCritical, "Link fejl" Resume Next End Select End Sub
Og dog... Nu fejler den pludselig. Har prøvet med GoHyperlink nu. Få en fejl: "Error6: Internetstedet meddelte at det ønskede emne ikke blev fundet. (HTTP/1.0 404)
Jah, hvis jeg fjerner specialtegnene, virker det fint. Har også prøvet at smide linket direkte ind i IE, hvor det fint virker. Har i øvrigt oprettet nyt spørgsmål på det med specialtegnene :-)
Jeg har det som et skrivebeskyttet hyperlinkfelt, hvor ovenstående klik sender det videre. Jeg har så en knap ude til højre, hvorfra jeg klarer editeringen: Måske kan du lave en knap, som henter linket fra en tabel
Jeg forstår ikke helt hvad du mener med den "editering". Jeg har hele linket i min forespørgsel, som er datakilde til formularen. Jeg har altså allerede det fulde link i et felt i formularen
Private Const SW_SHOWNORMAL As Long = 1 Private Const SW_SHOWMAXIMIZED As Long = 3 Private Const SW_SHOWDEFAULT As Long = 10
Private Declare Function GetDesktopWindow Lib "User32" () As Long Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal Hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Public Sub RunShellExecute(sTopic As String, sFile As Variant, sParams As Variant, sDirectory As Variant, nShowCmd As Long) Dim hWndDesk As Long Dim success As Long 'the desktop will be the 'default for error messages hWndDesk = GetDesktopWindow() 'execute the passed operation success = ShellExecute(hWndDesk, sTopic, sFile, sParams, sDirectory, nShowCmd) 'This is optional. Uncomment the three lines 'below to have the "Open With.." dialog appear 'when the ShellExecute API call fails 'If success < 32 Then ' Call Shell("rundll32.exe shell32.dll,OpenAs_RunDLL " & sFile, vbNormalFocus) 'End If End Sub
Når nedenstående kode eksekveres kaldes funktionerne i det gemte modul:
Private Sub LaunchURL_Click()
On Error GoTo Err_LaunchURL_Click Dim sTopic As String Dim sFile As String Dim sParams As Variant Dim sDirectory As Variant Dim x sTopic = "Open" sFile = Me![URL] sParams = 0& sDirectory = 0&
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.