الدخول الى صفحات النت من النموذج

[محمد احمد لطفى]

السلام عليكم  ورحمة الله و بركاته 

اريد بدل ظهور مربع نص الموقع 
أن يكون هناك زرار اضغط عليه يفتح صفحة الانترنت المراد الذها ب لها 

وجزاكم الله خيرا 

test90.rar

[jjafferr]

وعليكم السلام

 

عملت شوية تغييرات في الجدول ، وهذا كود الزر:

Option Compare Database
Public web As Object

Private Sub cmd_Go_Click()

    'Make a Reference Internet Explorer
    Set web = CreateObject("InternetExplorer.Application")
    
    'Open the site with Internet Explorer
    web.Navigate Me.Site
    
    'make it visible
    web.Visible = True
    
    'wait until the page opens fully
    Do Until web.ReadyState = 4
    Loop
    
End Sub

 

جعفر

579.test90.mdb.zip

[محمد احمد لطفى]

جزاك الله خيرا 

 و لكن هل من طريقه لفتح الصفحة من المرفق الاعلى بحيث يكون موقع جوجل قيمة افتراضية  مع دمج الخلايا والنتيجة فتح الموقع

[jjafferr]

نعم تستطيع الدخول لموقع جوجل كقيمة افتراضية ، ثم ماذا؟؟

واذا كان عنوان جوجل هو:

http://www.google.com

 

فكيف تريد فتح الموقع هكذا:

http://www.google.com gmail

او

http://www.google.com Facebook

 

العنوان خطأ ، فلن تصل الى الصفحة التي تريد!!

 

جعفر

[محمد احمد لطفى]

كما اريد فتح صفحة جوجل يبحث عن جميل

[jjafferr]

الطريقة الصحيحة لحفظ عنوان الصفحة هو:

افتح المتصفح ، وابحث عن الموقع/الصفحة التي تريد ، 

ولما تكون في الصفحة الصحيحة في المتصفح ، انسخ عنوانها الى السجل الصحيح في برنامجك ،

بهذه الطريقة ، عندما تضغط على زر فتح الصفحة ، ستذهب مباشرة اليها

 

هل فهمت قصدك بالطريقة الصحيحة؟؟

 

جعفر

[محمد احمد لطفى]

اريد عمل نفس فكرة هذا النموذج ولكن لا  اعرف

AccessSearchEngine.rar

[jjafferr]

السلام عليكم اخي محمد

 

رجاء عمل نسخة من البرنامج قبل العمل عليه

 

البرنامج مافيه مشكلة ،

 

ماعدا:

1. طريقة عنوان موقع اوفسينا تغيّر عن السابق ، فاستعمل استعلام التحديث التالي لضبط جميع حقوله:

UPDATE Links SET Links.link = Replace(Replace(Replace([link],"http:","https:"),".com",".net"),Chr(34),"")
WHERE (((Links.club)="أوفيسنا"));

 

2. اما موقع الفريق العربي للبرمجة ، فيجب تعديل المسمى " الفريق العربي" الى "الفريق العربي" (لاحظ المسافة قبل الاسم) ، بالاستعلام التالي:

UPDATE Links SET Links.club = "الفريق العربي"
WHERE (((Links.club)=" الفريق العربي"));

وتغيّر عنوانه عن السابق ، فاستعمل استعلام التحديث التالي لضبط جميع حقوله:

UPDATE Links SET Links.link = Replace(Replace(Replace([link],"www.",""),Chr(32),""),Chr(34),"")
WHERE (((Links.club)="الفريق العربي"));

 

3. موقع المحيط العربي غيّر عنوان صفحاته ، ولم استطيع معرفة طريقة تغيير العنوان القديم بالجديد !!

4. اما موقع خضر الرجبي فلا وجود له على الانترنت الآن.

 

والتغيير الاخير الذي عملته هو كود فتح الروابط ، فاصبح:

Application.FollowHyperlink Me.link

 

يبدو لي انه هناك جزء من البرنامج غير مرفق ، وهذا الجزء الذي يبحث في هذه المواقع عن هذه المعلومات ، ثم يحفظها في قاعدة البيانات ، فاذا عندك هذه الجزئية ، رجاء ضمها للبرنامج المرفق

 

جعفر

579.1.AccessSearchEngine.mdb.zip

[jjafferr]

وهنا النسخة 1.2 من البرنامج ، للأخ خضر الرجبي

 

http://arabteam2000-forum.com/index.php?/topic/64952-محرك-بحث-الأكسيسالأصدار-12/&do=findComment&comment=323189

 

ولكي يعمل ، استخدم الاستعلامات وتغيير الكود كما شرحته في مشاركتي السابقة

 

جعفر

[محمد احمد لطفى]

شكرا على هذه الهدية

[محمد احمد لطفى]

اسف لان خبرتى قليلة بالاكسيس 

فى هذا المثال 

 اريد ان يفتح الموقع بالبرنامج الذى يعمل لدى فى الويندوذ 
انى استخدم كروم

عند الضغط يفتح ببرنامج كروم اذا كان برنامج كروم هوه الاساسى
عند الفتح يفتح ببرنامج يفتح ببرنامج الفاير فوكس اذاكان هو الاساسى
وكذلك انترنت اكسبلور

كما هو الحال فى برنامج البحث بقواعد البيانات 

كما لا اريد ظهور مربع النص فى النموذج الخاص بالموقع 

 

579.test90.mdb.zip

[jjafferr]

وعليكم السلام

 

غيّر الكود السابق الى

Private Sub cmd_Go_Click()

    Application.FollowHyperlink Me.Site
End Sub

وتأكد ان اسم الموقع يبدأ بـ http او https ، وإلا ستحصل على رسالة امان تحذيرية

 

جعفر

579.test90.mdb.zip

[محمد احمد لطفى]

لا اعلم ولكن فى النموذج الذى اعمل عليه 
عند ادخال موقع مثل 
https://www.wikipedia.org
تاتينى الرسالة التحزيرية 
و لا يفتح الصفحة

اه هل يجب تحويل الموقع من ارتباط تشعيبى الى نص

[jjafferr]

انا اعمل على اكسس 2010 وما عندي مشكلة

 

واعتقد تستطيع الاستفادة من هذا الرابط

 

جعفر

[محمد احمد لطفى]

جزاك الله خير لقد عمل معى

هل هناك اختلاف اذا حولت من 2003 الى 2010 او 2013

لقد قال صديق لى من قبل أن بعض الاكواد لن تعمل

[jjafferr]

10 دقائق مضت, محمد احمد لطفى said:

1. جزاك الله خير لقد عمل معى

2. هل هناك اختلاف اذا حولت من 2003 الى 2010 او 2013

لقد قال صديق لى من قبل أن بعض الاكواد لن تعمل

 

1. ماذا كانت المشكلة ؟

2. هذا غير صحيح ،

ولكن انصب اوفيس 32 بت ، بغض النظر عن نوع الوندوز سواء 32 او 64 بت.

 

انا عندي الاوفيس 2010 ، ولا احدثه إلا اذا تم تصليح عيوب الاصدارات الجديدة

 

جعفر

[محمد احمد لطفى]

أستأذن حضرتك 
هل يمكن عمل زرار يفتح صفحة الانترنت لكل السجلات المعروضة 
يعنى اضغط على الزار يفتح
مثلا جميل و ويكبديا و الفيس بوك

[محمد احمد لطفى]

اقصد كل الصفحات معا

[jjafferr]

تفضل

 

الكود لهذه العملية هو

Private Sub cmd_Open_All_Click()

    Dim rst As DAO.Recordset
    Set rst = Me.RecordsetClone
    rst.MoveLast: rst.MoveFirst
    RC = rst.RecordCount
    
    For i = 1 To RC
        Application.FollowHyperlink rst!Site
        rst.MoveNext
    Next i
    
    rst.Close: Set rst = Nothing
    
End Sub

 

جعفر

579.1.test90.mdb.zip

[محمد احمد لطفى]

جزاك الله خيرا