چطور میشه با یک دکمه کاربر رو به وبسایت خاصی ارجاع داد

[Shahramdindoust]

سلام و خسته نباشید
میخواهیم در یک فرم از فایل اکسس از کاربر بخواهیم با زدن آن دکمه به سایتی در اینترنت رفته و مطلبی را مثلا در آن سایت بیاموزد یا دانلود کند. اصولا ارجاع به اینترنت در اکسس چگونه است؟
سپاس فراوان از همه اساتید گرامی

[Shahramdindoust]

البته یه چیزی یادم رفت بگم
میدانم که داده ای از نوع هایپرلینک هست که در جداول استفاده می شود فقط نمیدانم چگونه با دکمه به سایتی خاصی رهنمون شود

[narpco]

بجای ادرس داخل کد ادرس خودت رو بزار -----برای 3 مرورگر کرم موزیلا فایر فاکس و اینترنت اکسپلولر هر کدوم خواستی بردار یا هر سه رو با هم استفاده کن که اگر یک مرور گری نبود از مرور گر دیگری استفاده کند

Private Sub Command222_Click()

Dim strApp  As String

Dim strURL As String

Dim strApp1  As String

Dim strURL1 As String









On Error Resume Next

strApp = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"

strURL = "https://www.naseriyan.ir"

Call shell(strApp & " " & strURL, 1)

















On Error Resume Next

strApp1 = "C:\Program Files\Mozilla Firefox\firefox.EXE"

strURL1 = "https://www.naseriyan.ir"

Call shell(strApp1 & " " & strURL1, 1)





























On Error Resume Next

Set browser = CreateObject("InternetExplorer.Application")

browser.Navigate ("www.naseriyan.ir")

browser.StatusBar = False

browser.Toolbar = False

browser.Visible = True

browser.Resizable = True

browser.AddressBar = True









End Sub

[Shahramdindoust]

ممنونم
ببخشید اگر هر سه کد رو بذارم ولی کاربر موزیلا یا کروم نداشت اون وقت ارور نمیده که برنامه موردنظر پیدا نشد یا خودش میره سراغ مرورگر بعدی...
به نظر نمیاد که InternetExplorer بذارم کافی باشه ؟؟؟؟؟

[narpco]

هر طور راحتی استفاده کن

وقتی عین این کد رو بزاری هر سه مرور گر رو با هم باز میکنه

نه خطا نمیده من خودم دارم استفاده میکنم عزیز...


ببین اول هر قطعه کد نوشته شده
OnErrorResumeNext

یعنی اگر مشکلی بود برو سراغ بعدی

نگران نباش ...

[narpco]

فقط یه نکته ای هر قطعه کد رو خواستی استفاده کنی حتما این بخش ثابت باید اولش باشه تعریف متغییر هاست
Dim strApp As String
Dim strURL As String
Dim strApp1 As String
Dim strURL1 As String

[Shahramdindoust]

سپاسگذارم از شما دوست عزیز مشکل حل شد اما یک نکته
فکر کنم این قسمت

Dim strApp As String

Dim strURL As String

Dim strApp1 As String

Dim strURL1 As String

همون یکبار کافی باشه چون من عینا کپی کردم
دو تا از مرور گرهام باز کردن سایت شما رو

[narpco]

عرض کردم که بجای ادرس سایت من ادرس وب سایت مورد نظر خودت رو بزار


متغییر هایی هم که گفتم فقط یکبار در ابتدای شروع ساب روتین بزاری کافیه

اشالله مشکلت حل بشه ......درپناه حق ...

[Shahramdindoust]

بله حل شد ممنون

[محمد رضا بهبودی]

با سلام و احترام
با یک خط کد ساده هم می شه این کار را انجام داد . لطفا به نمونه دقت فرمائید
صفحه وب در بروزر پیش فرض سیستم باز می شود

[Shahramdindoust]

چه جالب !
عالی جناب بهبودی...
سپاس