نحوه استفاده از 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

[farhad13459]

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