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

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