محمد احمد لطفى قام بنشر فبراير 13, 2017 مشاركة قام بنشر فبراير 13, 2017 السلام عليكم ورحمة الله و بركاته اريد بدل ظهور مربع نص الموقع أن يكون هناك زرار اضغط عليه يفتح صفحة الانترنت المراد الذها ب لها وجزاكم الله خيرا test90.rar رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر فبراير 13, 2017 مشاركة قام بنشر فبراير 13, 2017 وعليكم السلام عملت شوية تغييرات في الجدول ، وهذا كود الزر: 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 2 رابط هذا التعليق شارك More sharing options...
محمد احمد لطفى قام بنشر فبراير 13, 2017 الكاتب مشاركة قام بنشر فبراير 13, 2017 جزاك الله خيرا و لكن هل من طريقه لفتح الصفحة من المرفق الاعلى بحيث يكون موقع جوجل قيمة افتراضية مع دمج الخلايا والنتيجة فتح الموقع رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر فبراير 13, 2017 مشاركة قام بنشر فبراير 13, 2017 نعم تستطيع الدخول لموقع جوجل كقيمة افتراضية ، ثم ماذا؟؟ واذا كان عنوان جوجل هو: http://www.google.com فكيف تريد فتح الموقع هكذا: http://www.google.com gmail او http://www.google.com Facebook العنوان خطأ ، فلن تصل الى الصفحة التي تريد!! جعفر رابط هذا التعليق شارك More sharing options...
محمد احمد لطفى قام بنشر فبراير 13, 2017 الكاتب مشاركة قام بنشر فبراير 13, 2017 كما اريد فتح صفحة جوجل يبحث عن جميل رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر فبراير 13, 2017 مشاركة قام بنشر فبراير 13, 2017 الطريقة الصحيحة لحفظ عنوان الصفحة هو: افتح المتصفح ، وابحث عن الموقع/الصفحة التي تريد ، ولما تكون في الصفحة الصحيحة في المتصفح ، انسخ عنوانها الى السجل الصحيح في برنامجك ، بهذه الطريقة ، عندما تضغط على زر فتح الصفحة ، ستذهب مباشرة اليها هل فهمت قصدك بالطريقة الصحيحة؟؟ جعفر رابط هذا التعليق شارك More sharing options...
محمد احمد لطفى قام بنشر فبراير 13, 2017 الكاتب مشاركة قام بنشر فبراير 13, 2017 اريد عمل نفس فكرة هذا النموذج ولكن لا اعرف AccessSearchEngine.rar رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر فبراير 14, 2017 مشاركة قام بنشر فبراير 14, 2017 السلام عليكم اخي محمد رجاء عمل نسخة من البرنامج قبل العمل عليه البرنامج مافيه مشكلة ، ماعدا: 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 2 رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر فبراير 14, 2017 مشاركة قام بنشر فبراير 14, 2017 وهنا النسخة 1.2 من البرنامج ، للأخ خضر الرجبي http://arabteam2000-forum.com/index.php?/topic/64952-محرك-بحث-الأكسيسالأصدار-12/&do=findComment&comment=323189 ولكي يعمل ، استخدم الاستعلامات وتغيير الكود كما شرحته في مشاركتي السابقة جعفر 2 رابط هذا التعليق شارك More sharing options...
محمد احمد لطفى قام بنشر فبراير 14, 2017 الكاتب مشاركة قام بنشر فبراير 14, 2017 شكرا على هذه الهدية رابط هذا التعليق شارك More sharing options...
محمد احمد لطفى قام بنشر فبراير 14, 2017 الكاتب مشاركة قام بنشر فبراير 14, 2017 اسف لان خبرتى قليلة بالاكسيس فى هذا المثال اريد ان يفتح الموقع بالبرنامج الذى يعمل لدى فى الويندوذ انى استخدم كروم عند الضغط يفتح ببرنامج كروم اذا كان برنامج كروم هوه الاساسى عند الفتح يفتح ببرنامج يفتح ببرنامج الفاير فوكس اذاكان هو الاساسى وكذلك انترنت اكسبلور كما هو الحال فى برنامج البحث بقواعد البيانات كما لا اريد ظهور مربع النص فى النموذج الخاص بالموقع 579.test90.mdb.zip رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر فبراير 14, 2017 مشاركة قام بنشر فبراير 14, 2017 وعليكم السلام غيّر الكود السابق الى Private Sub cmd_Go_Click() Application.FollowHyperlink Me.Site End Sub وتأكد ان اسم الموقع يبدأ بـ http او https ، وإلا ستحصل على رسالة امان تحذيرية جعفر 579.test90.mdb.zip رابط هذا التعليق شارك More sharing options...
محمد احمد لطفى قام بنشر فبراير 14, 2017 الكاتب مشاركة قام بنشر فبراير 14, 2017 لا اعلم ولكن فى النموذج الذى اعمل عليه عند ادخال موقع مثل https://www.wikipedia.org تاتينى الرسالة التحزيرية و لا يفتح الصفحة اه هل يجب تحويل الموقع من ارتباط تشعيبى الى نص رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر فبراير 14, 2017 مشاركة قام بنشر فبراير 14, 2017 انا اعمل على اكسس 2010 وما عندي مشكلة واعتقد تستطيع الاستفادة من هذا الرابط جعفر 1 رابط هذا التعليق شارك More sharing options...
محمد احمد لطفى قام بنشر فبراير 14, 2017 الكاتب مشاركة قام بنشر فبراير 14, 2017 جزاك الله خير لقد عمل معى هل هناك اختلاف اذا حولت من 2003 الى 2010 او 2013 لقد قال صديق لى من قبل أن بعض الاكواد لن تعمل رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر فبراير 14, 2017 مشاركة قام بنشر فبراير 14, 2017 10 دقائق مضت, محمد احمد لطفى said: 1. جزاك الله خير لقد عمل معى 2. هل هناك اختلاف اذا حولت من 2003 الى 2010 او 2013 لقد قال صديق لى من قبل أن بعض الاكواد لن تعمل 1. ماذا كانت المشكلة ؟ 2. هذا غير صحيح ، ولكن انصب اوفيس 32 بت ، بغض النظر عن نوع الوندوز سواء 32 او 64 بت. انا عندي الاوفيس 2010 ، ولا احدثه إلا اذا تم تصليح عيوب الاصدارات الجديدة جعفر 1 رابط هذا التعليق شارك More sharing options...
محمد احمد لطفى قام بنشر فبراير 16, 2017 الكاتب مشاركة قام بنشر فبراير 16, 2017 أستأذن حضرتك هل يمكن عمل زرار يفتح صفحة الانترنت لكل السجلات المعروضة يعنى اضغط على الزار يفتح مثلا جميل و ويكبديا و الفيس بوك رابط هذا التعليق شارك More sharing options...
محمد احمد لطفى قام بنشر فبراير 16, 2017 الكاتب مشاركة قام بنشر فبراير 16, 2017 اقصد كل الصفحات معا رابط هذا التعليق شارك More sharing options...
أفضل إجابة jjafferr قام بنشر فبراير 16, 2017 أفضل إجابة مشاركة قام بنشر فبراير 16, 2017 تفضل الكود لهذه العملية هو 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 1 رابط هذا التعليق شارك More sharing options...
محمد احمد لطفى قام بنشر فبراير 17, 2017 الكاتب مشاركة قام بنشر فبراير 17, 2017 جزاك الله خيرا رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان