نحوه استفاده از insert hyperlink به وسیله کد نویسی

سلام دوستان
من روی یک بانک کار می کنم که در یک فیلد (textbox) آن میخوام تصویر به بانک لینک بشه(به صورت لینک) اما اینکار توسط یک دکمه کنار فیلد انجام بشه . به این ترتیب که بعد از کلیک روی دکمه پنجره insert hypelinkباز بشه و بعد از انتخاب لینک مورد نظر آدرسش در فیلد (textbox) مورد نظر ذخیره بشه.
ممنونم.

سلام
اين نمونه عمليات مورد نظر شما رو پياده سازي مي كنه :

Private Sub Command4_Click()

Dim strFile As String

Set f = Application.FileDialog(3)

f.AllowMultiSelect = True

f.Show



If f.SelectedItems.Count > 0 Then

strFile = f.SelectedItems(1)

End If



Me.a = strFile

End Sub

سلام دوست عزیز
از داخل فرمی که طراحی کردید وقتی که بر روی آدرس hyperlink ایجاد شده توسط دکمه کلیک می کنیم لینک مورد نظر باز نمی شود آیا برای این مساله راهی هست؟
در ضمن وفتی که بر روی دکمه کلیک می کنیم آیا راهی هست که پنجره Insert hyperlink باز شود؟
ممنونم

سلام
بهتره از اين نمونه استفاده كنيد :
ضمناً اين نكته رو متذكر ميشم كه براي استفاده از پنجره Insert Hyperlink يا Edit Hyperlink با استفاده از كامند باتون قبل از نوشتن كد RunCommand‌ حتماً بايد فوكوس رو به فيلدي كه Hyperlink‌ در داخل اون ذخيره ميشه منتقل كنيد در غير اينصورت اجراي دستور RunCommand با خطا روبرو ميشه ( همون مشكلي كه در تاپيك اول اشاره كرديد )

Private Sub Command4_Click()

On Error GoTo Err_Command4_Click

Me.a.SetFocus

DoCmd.RunCommand acCmdInsertHyperlink

Exit_Command4_Click:

    Exit Sub

Err_Command4_Click:

If Err.Number = 2501 Then

 Resume Exit_Command4_Click

Else

    MsgBox Err.Description

    Resume Exit_Command4_Click

End If



End Sub

سلام
آيا راهي وجود دارد تا باكليك روي فايلي آن فايل در شبكه و يا در فولدر ديگري ذخيره گردد و آدرس جديد درجدول ذخيره ئ در فرم نمايش داده شود كه با كليك روي ان فايل اجراء گردد؟