Brug af "Edit Hyperlink Dialog Box"

Kigger lige med!~)

Det skal lige siges, at det er i Access 2003 og

DoCmd.RunCommand acCmdEditHyperlink

ikke lige virker på en knap - måske via en dobbeltklikfunktion på feltet.

Jeg tror, at jeg fandt løsningen selv:

Private Sub cmdEditHyper_Click()
  'Opens hyperlink dialog
  On Error GoTo ErrEditHyper
  Me.SubmissionForm.SetFocus
  DoCmd.RunCommand acCmdEditHyperlink
  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

lav en knap 'cmdEditHyper' og få den til at pege på hyperlink feltet
Me.SubmissionForm.SetFocus

og resten skulle køre.

Lige en lille udvidelse

  If Me.SubmissionForm = "" Or IsNull(Me.SubmissionForm) Then
    DoCmd.RunCommand acCmdInsertHyperlink
  Else
    DoCmd.RunCommand acCmdEditHyperlink
  End If