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

(تمت الإجابة ) مسار صفحة الويب


lordring

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

السلام عليكم

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

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

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

وشكرا

رابط هذا التعليق
شارك

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

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

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


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

وهكذا

  • Like 1
رابط هذا التعليق
شارك

أخي الكريم

يمكنك استعمال هذا الكود لتحديد الرابط الذي يتم فتحه في الكائن 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