اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الردود الموصى بها

قام بنشر

السلام عليكم

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

web.rar

قام بنشر

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

 

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

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

 

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

 

 

جعفر

  • Like 1
قام بنشر

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

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

ما اريده هو

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

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

وجزيت خيرا

قام بنشر

تفضل :rol:

 

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

255.Clipboard01.jpg.c19289ec483ecfd007f6

.

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


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

  • Like 6
  • Thanks 2
قام بنشر

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

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

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

  • 3 years later...
قام بنشر (معدل)

السلام عليكم 

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

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

تست.accdb

تم تعديل بواسطه ksaed123

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information