البحث داخل اداة WebBrowser4

[samrati1]

حالا

 

[samrati1]

لقد وضعت في خانة البحث رقم صفحة مختلفة

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

عندما تفتح النموذج يقوم بالبحث من تلقاء نفسه وهذا هو المطلوب ولكن بزر 

WebAppFiller (1) (1) - Copy.zip

[رمهان]

اختنا الكريمة

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

انا هنا عدلت تعديل بسيط حيث يبحث في جسم الصفحة بغض النظر النظر عن العنصر

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

القي نظرة ومازال كود الاستاذ صالح حاضر هنا

web_seach.accdb

[samrati1]

نجح الامر اخي في الله

لساني عاجز عن الشكر 

وابكي الان بكاءا مظفرا لشدة فرحتي 

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

والله اني ابكي بكاءا مظفرا الان لاني وجدت ما اريد كم يعجز لساني عن الشكر ودمعي هي التي تشكركم الان

[رمهان]

بالتوفيق وكلها بركات الاستاذ صالح

ودعواتكم لوالدي بالشفاء وجميع مرضى المسلمين اجمعين

[samrati1]

اللهم اجعل اباك عافيا متعافيا وبصحة تدوم عليه الي ان يشاء الله

اللهم اجعل في فمه سكرة واجعل قلبه جوهره واجعل يده مليئة بسخاء الله الي ان يشاء الله

اللهم اجعله من اهل جنتك هو ومن احبب يا رب العلمين 

يعجز لساني عن الشكر 

وقلبي هو من يدعوا لكم الان 

ارجوك اخي تقبل من هدية بسيطة اطلب اي شيء مجاب باذن الله تعالي 

[صالح حمادي]

1 ساعه مضت, رمهان said:

بالتوفيق وكلها بركات الاستاذ صالح

أهلين و مرحبتين أي كنت يا رجل لك من وحشة كبيرة منذ مدة لم نشترك في موضوع واحد.

أعرف أنك لا تدخل على موضوع إلا و حللت بارك الله لك و في علمك إن شاء الله

- لقد استعملت طريقة مغايرة قليلا لإنتظار تحميل الصفحة و ذلك بإستخدام حلقات التكرار.

حلك هو الأفضل و الأسرع و الأنجع و لكني سوف أرفقه للفائدة.

Sub Timeout(seconds As Double)
Start_Time = 0
Do
DoEvents
Loop Until (Timer - Start_Time) >= seconds

End Sub
Private Sub أمر86_Click()
On Error Resume Next
Dim j As Integer, i As Integer
 vitesse_progress = 1
DoCmd.GoToRecord , , acFirst

For j = 1 To DCount("*", "AppFiller2")
    Me.WebBrowser4.Navigate Me.الموقع
    For rep = 1 To 1000 * vitesse_progress
        Timeout 1
        Me.rr = rep
    Next rep
    For i = 1 To 100
        'Me.k = i
        If Me.WebBrowser4.Document.all.Item(i).innerText Like "*" & Me.t & "*" Then
           MsgBox "لقد تم العثور على الكلمة المطلوبة داخل هذه الصفحة"
           Exit Sub
        End If
    Next i
    DoCmd.GoToRecord , , acNext
Next j
       MsgBox "لم يتم العثور على كلمة البحث"
End Sub

أضفت رابط صفحة غوغل في السجل الأول و صفحة فايسبوك في السجل السادس

اكتب كلمة "فيسبوك" و اضغط على زر بحث نلاحظ أنه لا يتوقف إلا في الصفحة رقم 6

1 ساعه مضت, رمهان said:

ودعواتكم لوالدي بالشفاء وجميع مرضى المسلمين اجمعين

اللهم أشفه و أشفي جميع مرض المسلمين. اللهم أجعل إبنه رمهان بارا به يا رب العالمين

WebAppFiller (1) (1).rar

[samrati1]

بارككما الله وجعل لكما حياتكم كلها فرح 

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

اللهم اجعل النور في حياتكم الي ان يشاء الله

وباركم لكما في حياتكما ويسر لكما كل امير عسير يا ارحم الراحمين 

 

اني ابكي من شدة فرحي بما حدث وبكائي سر فرحتي 

اشكركما كثيرا 

لساني عاجزا عن الشكر حقا 

اشكرك اخي في الله "صالح"

اكرك اخي في الل "رمهان"