البحث في الانترنت من نموذج الاكسس (عنوان معدل)

[سيفين]

السلام عليكم

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

web.rar

[jjafferr]

وعليكم السلام أخي سيفين 

 

اولا: انت ماشاء الله عليك هذا خامس موضوع لك في المنتدى ، وما حاط اي تفاصيل ولا حتى بيانات تجريبية في مرفقك!!

ثانيا: والحاقا بأولا ، عطنا اسم الموقع ، وعطنا اسم الحقل ، وعطنا بيانات يمكن نستفيد منها وتساعدنا في الجواب 

 

يعني ساعدنا حتى نساعدك 

 

 

جعفر

[سيفين]

شكرا لك اخي جعفر

ما اقصده لو كان عندي  قائمة كلمات  في نموذج  واريد معلومات عنها

ما اريده هو

عند النقر على كلمة  تظهر النتيجة مباشرة على موقع جوجل

دون نسخ الكلمة  ولصقها  بالموقع

وجزيت خيرا

[jjafferr]

تفضل 

 

3 طرق لتصفح الانترنت من الاكسس ، والبحث عن اسم الطالب في Google.com 

.

وهذا كود الازرار:

Private Sub cmd_FollowHyperlink_Click()

    url_address = "http://www.google.com/search?lr=lang_ar&cr=&hl=ar&ie=windows-1256&oe=windows-1256&q="
    Application.FollowHyperlink url_address & Me!name
    
End Sub

Private Sub cmd_ie_Click()
    
    Dim ie As Object
    Set ie = CreateObject("internetexplorer.application")
    url_address = "http://www.google.com/search?lr=lang_ar&cr=&hl=ar&ie=windows-1256&oe=windows-1256&q="
    ie.Visible = True
    ie.Navigate url_address & Me!name

End Sub


Private Sub cmd_objIE_Click()

    'Reference to Microsfot Internet Controls
    'c:\windows\system32\ieFrame.dll
    
    Dim web As WebBrowser
    Set web = Me.objIE.Object
    url_address = "http://www.google.com/search?lr=lang_ar&cr=&hl=ar&ie=windows-1256&oe=windows-1256&q="
    web.Silent = True   'stop script errors
    web.Navigate url_address & Me!name
End Sub

 

جعفر

255.web.accdb.zip

[سيفين]

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

ما شاء الله تبارك الله

[سيفين]

جربت البرنامج ما اشتغل معي يعني ما انتقل على النت علما باني استخدم افيس 2007

[jjafferr]

اخي سيفين 

 

اتفقنا ان تعطي تفصيل لما تريد ، مجرد كلمة ما اشتغل لا تعني شئ 

 

جعفر

[سيفين]

السلام عليكم . واسعد الله صباحك

نزلت البرنامج نقرت على الازرار الثلاث ولم يظهر شئ حسيت انه البرنامج علق علما باني استخدم فايرفوكس كمتصفح افتراضي واوفيس  2007

انا اسف اخي اذا ما فهمت عليك

[jjafferr]

عند تشغيل البرنامج ، هل يظهر لك شريط اصفر اعلى البرنامج؟

[عبد الحفيظ]

بارك الله فيك أسناذ جعفر

[ksaed123]

السلام عليكم 

الازرار تعمل بشل صحيح 

شكر خاص للمبدع الاخ / جعفر 
الاخ / سيفين جرب وضع رابط لما تريده في "" عنوان الرابط التشعبي ""
تم ارفاق مثال 

تست.accdb

تم تعديل ديسمبر 31, 2019 بواسطه ksaed123