اذهب الي المحتوي
أوفيسنا

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

قام بنشر

السلام عليكم

لدي نموذج يفتح صفحة ويب موجودة على الحاسوب

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

واذا لم يمكن هذا فهل يمكن تضمين الصفحة بمحتوياتها داخل القاعدة نفسها ..

وشكرا

قام بنشر

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

يمكنك جعل مسار الملفات مرتبط بمسار البرنامج

فلو مثلا وضعت الصفحات في مجلد باسم html والملفات اسمها file1.html يمكن استدعاؤها كالتالي


CurrentProject.Path & "\html\file1.html"

وهكذا

  • Like 1
قام بنشر

اخي قمت بوضع المسار لكن لاتظهر الصفحة

لاحظ كما في الصور اين الخطاء

واذا امكن تزويدي بمثال مع التقدير لشخصك

we.jpg

we.jpg

قام بنشر

أخي الكريم

يمكنك استعمال هذا الكود لتحديد الرابط الذي يتم فتحه في الكائن webbrowser في النموذج


Private Sub Form_Load()

Me.WebBrowser0.Navigate "http://www.google.com"

End Sub

أو عند الضغط على زر كما تحب

وساعتها تستبدل جوجل بما تريد من روابط

  • Like 1
قام بنشر

اخي الكريم انا لااريد تصفح مواقع وانما استعراض صفحة ويب مخزنة لدي بجنب ملف القاعدة ..

تحياتي لك

قام بنشر
وساعتها تستبدل جوجل بما تريد من روابط

ضع هنا الكود الموجود في المشاركة 2 بدلا من جوجل

سيتم استعراض الملف المذكور في المسار

  • Like 1
قام بنشر

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

يمكنك جعل مسار الملفات مرتبط بمسار البرنامج

فلو مثلا وضعت الصفحات في مجلد باسم html والملفات اسمها file1.html يمكن استدعاؤها كالتالي


CurrentProject.Path & "\html\file1.html"

وهكذا
أخي الكريم يمكنك استعمال هذا الكود لتحديد الرابط الذي يتم فتحه في الكائن webbrowser في النموذج

Private Sub Form_Load()

Me.WebBrowser0.Navigate "http://www.google.com"

End Sub

أو عند الضغط على زر كما تحب وساعتها تستبدل جوجل بما تريد من روابط
رسالة خطاء كالتالي web.jpg
أخي الكريم تلاحظ أن علامات الفاصلة المزدوجة في الكود الأول حول اسم الملف فقط وليست حول كلمة مسار المشروع الحالي وتم وضعها حول جوجل لأنه نص أما في حالة وجود ثوابت أو متغيرات مع النص فلا يتم إحاطة الثوابت أو المتغيرات بعلامتي الفاصلة المزدوجة ويتم فقط إحاطة النص المختلط معها وهذا هو موضع الخطأ والصواب

Private Sub Form_Load()

Me.WebBrowser0.Navigate CurrentProject.Path & "\html\file1.html"

End Sub

وزيادة في الأمان يمكنك وضع المسار للملف بين قوسين

Me.WebBrowser0.Navigate ( CurrentProject.Path & "\html\file1.html")

  • Like 1
قام بنشر

تم ايجاد طريقة اخرى من قبل الاخت الكبيرة زهرة

رابط المف بعد التعديل

http://dl.dropbox.com/u/9352509/access/app/web/MyWeb_2.rar

شكرا لمتابعتك اخي الكريم .......

من قال أنها طريقة أخرى أخي الكريم؟؟!!

هي نفس الطريقة

والدليل

لو استعملت الكود المذكور في المشاركة 9 بالطريقة الصحيحة

يكون الناتج ملف كالمرفق

ضعه في نفس مجلد myweb الخاص بك

وشاهد النتيجة

mas_web.rar

  • Like 1

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