نجوم المشاركات

السلام عليكم 🙂 الاستعلام الذي عملته انت : . بدون ربط بين الجداول ، وهذا معناه ، انك تطلب سجلات عددها : 16x8x11x16x27x24x10x6 = 875,888,640 (شوف صورة سجلات الجداول في الاسفل ، علشان تعرف من وين جئت بهذه الارقام 🙂 ) ، فهل سرعة محرك كمبيوترك CPU ، وكمية الذاكرة المؤقته RAM ، قادرة على عرض هذا الكم الهائل من السجلات 🙂 . خلينا نشوف استعلام علشان نفهم الموضوع : نخلي الجدولين فقط ، والي نعرف ان مجموع عدد السجلات سيكون : 16x8 = 128 . والنتيجة ، وكما يعرضها الاستعلام : . وهذا اللي عملنه انا بإستعمال مرفقك ، وهي الطريقة الافضل لبرنامجك : . ولكن ، هذه طريقة الاكسل في وضع البيانات ، بينما اذا اردنا تعديل الاكسس ، فيكون كالتالي: نعمل الجدول tbl_Salary والذي سيشمل جميع الجداول الثمانية ، وبدون حقلي "المحسوب" ، ومع اضافة حقل اسم "المجموعة" : . والنتيجة : . وعلى اساس هذا الجدول ، نعمل استعلام qry_Salary ، ونضيف الحقلين "مج الاستقطاع" و "الصافي" مع معادلاتهم : . ومقارنة سجلات الجدول السابق مع الاستعلام الجديد : . والآن وبكل بساطة تعمل الاستعلام الذي يقوم بعملية جمع الصافي : . والنتيجة : . جعفر 1197.wameed.accdb.zip

بارك الله فيك اخي الكريم على الرد ولكن قاعدة البيانات فرنسية فقط عربتها لك حتى تفهم علي وشكرا بالنسبة للملاحظة لقد عدلت العنوان وشكرا لك مع فائق الاحترام و التقدير تحياتي

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

السلام عليكم اخي العزيز بعض الاخوة يستعملون برامج للتسجيل من الكمبيوتر او اخذ لقطة من الشاشة كصورة انا استخدمت برنامج الفوتو شوب للشرح وثم الكتابة على الصورة لان فيه الامكانيات الكثيرة امابخصوص سؤلك عن تغيير لون الخط وحجمه لاحظ الصورر من 1-2 من خلال Tools - Options-Editor format وبخصوص كتابة الشرح لاحظ الصور من 5-5 من خلال الامر View-Toolbars-Edit علما يوجد ببرنامج الاكسس الكثير من وسائل المساعده تستطيع التعرف اليها من خلال موقع اوفيسنا او دروس الاكسس في اليوتيوب تحياتي

وعليكم السلام اتفضل اخى الفاضل ان شاء الله يكون ما تريد تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق تجربة_4.rar

السلام عليكم 🙂 حيا الله اخوي رمهان 🙂 اخوي اباجودي ، هنا عملنا شيء مشابه لما تريد ، التصفح كل 10 سجلات : جعفر

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

تمام ياحبيب الجميع عايزك تضبط ارتفاع النموذج حتى يظهر فقط عشر سجلات ... تمام ياباشا ... وبعدها اضغط زر صفحة لاعلى او اسفل من الكيبورد .. هذا راح يعطيني الصفحة الثانية وحسب السجلات الظاهرة .. طيب وانت خبير هنا ازاي نترجمها لكود او ماكرو .. انت بتعرفها وانا حذكرك فقط والذكرى للمؤمنين .. باستخدام sendkeys "{pgdn}" او كود رمهاني التالي تنقل للتالي DoCmd.GoToPage 1, , Me.InsideHeight - Me.FormHeader.Height والتنقل لسابق واجب منزلي ابا جودي هذا وانا جربت على مثال عندي غير مثالك وتقبل تحياتي وان شاء الله انه المطلوب ان احسنت الفهم

وعليكم السلام-لك ما طلبت كميات مقاولين556 .xlsm

أهلا و سهلا بكافّة الإخوة الأعضاء و الزوّآر في موقع أوفيسينا الجميل هذا الموضوع أشرح فيه تجربتي مع حساب بايبال أمريكي فتحته منذ مارس 2016 و يشتغل حتى هذه اللحظة بدون تفعيل وثائق أخرى كالهوية الشخصية أو فاتورة ولأنه كما يعرف الجميع فإن فتح حساب بايبال جزائري أو تونسي أو اي بلد عربي يبقى محدود الصلاحيات أمام حساب بايبال أمريكي أو بلد أخر فسأشرح لكم كيفية فتح حساب أمريكي مفعل 100% بال IP الجزائري و دون الحاجة لإستخدام Proxy أو VPN و يمكن أن يدوم حسابك أشهر كما الحال في حسابي الخاص الذي فتحته منذ أشهر وأعمل به إلى الأن أرسل و أستقبل به أموال دون مشاكل. نمر إلى الطريقة مع متطلبات فتح الحساب : 1- موقع Fakenamegenerator لعمل هوية مزيفة و الذي سنأخذ منه المعلومات التالية ( الإسم – اللقب – العنوان كاملا ) 2- إنشاء email جديد (Gmail,Hotmail,Yahoo…) بإسم أجنبي سنحتاج بالتسجيل به على بايبال فيما بعد 3- تنزيل تطبيق Primo أو TextNow متوفر على Android و iOS يعطيك رقم هاتف أمريكي يرسل ويستقبل مكالمات ورسائل مجانا للولايات المتحدة لتحميل تطبيق Primo إضغط هنا و قم بوضع رقم هاتفك مع كود البلد 213XXXXXXXX+ ثم Send me the app ليصلك رابط تحميل التطبيق أو إبحث عنه في متجر التطبيقات * فتح حساب بايبال جديد أول شيئ نقوم بفتح حساب جديد بالدخول إلى https://www.paypal.com/us/webapps/mpp/home تأكد من التسجيل عبر هذا الرابط وظهور نافذة كما في الصورة أدناه (*1) و عدم الدخول إلى نطاق com. فقط لأنه سيفتح باللغة العربية و يتعرف أوتوماتيكيا على البلد "أي بلد عربي" ثم نختار Sign up for a Personal account نقوم بتعمير البيانات بمعلومات موقع Fakenamegenerator ثم نضغط على Manage communication preferences * نضيف صورة إلى الحساب تختار صورة لشخص حقيقي من Google Images والمحبذ أن يكون الوجه واضحا * نقوم الآن بتأكيد رقم الهاتف الذي أضفناه بعد الضغط على confirm your number سيصلك كود التفعيل على Primo إفتح الرسالة و أكتب الكود الذي تحصلت عليه في الخانة التالية * الأن تفعيل الإيمايل * الأن تضيف visa أو mastercard إلى حساب البايبال. لدينا 3 خيارات : - إما لديك بطاقة Mastercard Payoneer لم تقم بربطها من قبل في حساب بايبال و فيها رصيد 2$ لربطها بالبايبال - أو تفتح حساب Payoneer و تتحصل على بطاقة Mastercard مجانية وحساب بنكي أمريكي مجاني من هذا الرابط - أو تضيف Visa أو Mastercard وهمية (لن تصلح في شيئ إلا لتفعيل البايبال أي لن تستطيع شحنها أو إستخراج أموال منها و إحتمال إكتشافها من البايبال و تجميد الحساب) من هذا الرابط :www.elfqrin.com أدخل Pattern BIN : 405544xxxxxxx543 كل مرة تضغط على Generate يعطيك 3 Visa لتجربة ربطها في حسابك *إضافة بطاقة إضغط على Link a Card لإضافة معلومات البطاقة تم قبول معلومات البطاقة من أول محاولة إذا تم رفض معلومات البطاقة أعد المحاولة ببطاقة أخرى حتى يتم قبولها. *إضافة البنك إما لديك حساب بنكي في Payoneer غير مسجل من قبل في Paypal أو تفتح حساب Payoneer و تتحصل على بطاقة Mastercard مجانية وحساب بنكي أمريكي مجاني من هذا الرابط تفتح معلومات حسابك البنكي في Payoneer نضغط على Link a Bank في البايبال ثم ستظهر لك لائحة بأسماء البنوك إختر : I have a different bank نضيف معلومات البنك ثم Agree and Link في أقل من 48 ساعة سيصلك مبلغين صغيرين في Payoneer كما في الصورة : تفتح البايبال ثم تضغط على Confirm your bank ستظهر لك هذه النافذة بعد الضغط على Submit تكون قد أتممت ربط بنك بايونير بالبايبال بهذا تكون أتممت جميع مراحل التفعيل في بايبال ملاحظات : *لاتنسى الدخول إلى البايبال دائما من هذا الرابط Send Money, Pay Online or Set Up a Merchant Account - PayPal قم بحفظه في الBookmarks/Favoris في متصفحك *إذا تم تجميد الحساب بسبب ربط الفيزا الوهمية أعد نفس العملية مع إضافة بطاقة رسمية تمتلكها من أحد البنوك على الإنترنات فذلك أضمن. ملاحظة : منقول و عدم استعماله ضد المسلمين وشكرا.........................

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

بسم الله الرحمان الرحيم و الصلاة و السلام على أشرف المرسلين أما بعد: سوف نقوم اليوم إن شاء الله بشرح أداة WebBrowser وأهم ما يتعلق بها من أوامر و أحداث و خصائص و إدخال و إخراج. و سوف يتم تقسيم هذا العمل إلى مجموعة حلقات نبدأ من الصفر حتى آخر نقطة نستطيع الوصول إليها إن شاء الله مع وضع مثال تطبيقي لكل حلقة. مقدمة: WebBrowser هي أداة تعمل عمل أي متصفح و هي مقترنة المتصفح الشهير Internet Explorer فهي تساعدك في تصفح المواقع من ناحية و التحكم في أكواد HTML وكل ما يرتبط بها من إدخال و استخراج بيانات من ناحية أخرى. ملاحظة: لتشغيل هذه الأداة بشكل جيد يجب تحديث المتصفح الشهير Internet Explorer إلى الإصدار 10 أو 11. مع العلم أن ونداوز 10 به الإصدار 11 الحلقة الأولى: أكواد التصفح سوف نتطرق في هذه الحلقة إلى الأكواد التي تمكننا من التصفح و التنقل داخل الأداة. 1- كود فتح صفحة موقع: WebBrowser3 هو اسم الأداة داخل النموذج Me.WebBrowser3.Navigate ("رابط الصفحة كامل") 2- كود فتح صفحة فارغة: Me.WebBrowser3.Navigate ("about:blank") 3- كود الرجوع للصفحة السابقة: Me.WebBrowser3.GoBack 4- كود الإنتقال للصفحة التالية: Me.WebBrowser3.GoForward 5- كود إعادة تحميل الصفحة: Me.WebBrowser3.Refresh 6- كود إيقاف تحميل الصفحة: Me.WebBrowser3.Stop 7- كود إستخراج رابط الصفحة الحالية: MsgBox Me.WebBrowser3.Document.url و هذا مثال لما تم ذكره في هذه الحلقة webbroser.rar

طيب معلش راجع المرفق مرة تانية يعني المرفق اللي حضرتك رفعته علي الموقع حمله من الموقع وافتحه وشوف مش هتخسر حاجة

ماشاء الله حل رائع و من الاخر

تفضل لك ما طلبت حساب القيمة الاستهلاكية.xlsm

‏السبت‏، 04‏ شعبان‏، 1441 السلام عليكم و رحمة الله وبركاته بعد اذن اخي الكريم : احمد يوسف لا مانع من المحاولة اخي الماتادور جرب إضافة هذا السطر اول الكود الذي تعمل عليه مع وضع اسم الصفحة او الورقة بين علامات التنصيص "" If ActiveSheet.Name <> "" Then Exit Sub

حسنا استاذ جعفر

المصنف1.xlsx لوكانت الصور منفصلة عن بعضها اي في كل صفحة صورة واحدة يمكن ان يتم العمل بسرعة اما نا تجد شحص يقوم بقص 5000 صورة فهذا يستغرق وقتا وجهد

أحسن الله اليك أخي الحبيب @احمد الفلاحجي بارك الله فيك ....

احسنت اخى الحبيب @kanory جزاك الله خيرا

بعد اذنك أخي الحبيب @احمد الفلاحجي أنظر المرفق ولكن انتبه الكود يعمل بالطريقة الصحيحة عند طباعة التقرير .... وافنا بالنتيجة .... ملخص.mdb

شكرا جزيلا استاذ وبارك الله بيك الله يكثر من امثالك الله يحفظ احبابك ويرحم امواتك

السلام عليكم اخي العزيز ابدا انت ونحن معك ان شاء الله وجميع الاخوة لايقصرون بشيء ابدا انت بعمل الجداول اولا وحسب المعلومات الي قلتها انت تحياتي انظر لرابط الموضوع اتمنى ان تستفيد منه ملاحظة مهمه / اطلع على قواعد المشاركة وغير العنوان الى شيء يخص السيارات بدلا من مساعده لانه مخالف للشروط

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

الحمد لله ان تم الامر على خير بالنسبة لطلبك من الاحسن انشاء textbox لادخال باس الحماية واخر لالغائه وهكذا يمكن جعل الكتابة بدل ارقام او حروف شكل اخر جرب المرفق تعديل كود حماية الصفحات-1 (2).xlsm

السلام عليكم 🙂 هذا الموضوع مخالف وبإمتياز !! 4 اسئلة في موضوع واحد !! يا ريت الجميع يساعدنا ، اصحاب الاسئلة واصحاب الاجابة ، علشان مثل هذا الشيء لا يتكرر ، أَلَا كُلُّكُمْ رَاعٍ، وَكُلُّكُمْ مَسْئُولٌ عَنْ رَعِيَّتِهِ. اخي بلال : رجاء فتح موضوع جديد لآخر طلبك ، ورجاء ان تعطي فيه تفصيل مفصل عن طلبك ، وبمثال من مرفقك ، لأن شرحك للأسف غير كامل وغير واضح ، مما ينتج عنه التأخر في الرد عليه !! يُقفل . جعفر

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

جزاك الله كل خير أخي عبد اللطيف .. تعلمت منك شيئا جديدا ( كيفية اكتشاف مكان الخطأ في الكود ) .. جزاك الله كل خير أخي خالد .. استفسار لا هنت : كيف أستطيع تمييز بعض الأسطر بالألوان في الكود كما في الصورة أعلاه . حبذا لو يكون التوضيح بالصور . وكيف أستطيع إضافة شرح على الصورة كما فعلتم في الصورة أعلاه ؟؟ دمت بود .

بارك الله فيك اخى الكريم وزادك الله من فضله

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

بالتوفيق @wael gaper انت زي اللي متعود على سيارات الديزل تسخن قبل ماتمشي ماتيجي للاكسس زي البنزين شغل وامشي على طول وسيبك من الاكواد الطويله العريضه تحياتي

تفضل اخي الكريم الصلاحيات المستخدمين.rar تحياني

كون لا يوجد كود ليتم تفعيله يمكن ذلك عن طريق التنسيق إضافة كود الدوائر الحمراء وكود التظليل (1).xlsb

بارك الله فيك وزادك الله من فضله

أحسنت استاذ مجدى عمل رائع بارك الله فيك وزادك الله من فضله

بعد اذن استاذنا سليم , ولإثراء الموضوع يمكنك وضع هذه الأكواد فى حدث الصفحة Dim mRg As Range Dim mStr As String Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Range("A2:D1000"), Target) Is Nothing Then Set mRg = Target.Item(1) mStr = mRg.Value End If End Sub Private Sub Worksheet_Change(ByVal Target As Range) Dim xRg As Range On Error Resume Next Set xRg = Intersect(Range("A2:D1000"), Target) If xRg Is Nothing Then Exit Sub Target.Worksheet.Unprotect Password:="123" If xRg.Value <> mStr Then xRg.Locked = True Target.Worksheet.Protect Password:="123" End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Range("A2:D1000"), Target) Is Nothing Then Set mRg = Target.Item(1) mStr = mRg.Value End If End Sub

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا افتح نموذج frmSearch وان شاء الله يكون ما طلبت بالتوفيق ان شاء الله مسير المرتبات النسخة الاخيرة.accdb

الحلقة السادسة: تابع لدرس التعامل مع الجداول في صفحة ويب في الدرس الماضي قمنا بالتعامل مع جدول له خاصية id و في هذا الجدول سوف نتعلم كيفية التعامل مع الجداول التي ليس لها خاصية id أو name سوف نعتمد في هذا الدرس على خاصية Tagname التطبيق سوف يكون على صفحة ويكيبيديا: https://mawdoo3.com/جميع_دول_العالم_وعواصمها 1- كود حساب عدد الجدول في الصفحة: MsgBox WebBrowser3.Document.getElementsByTagName("table").Length 2- كود حساب عدد الخلايا في الجدول: MsgBox WebBrowser3.Document.getElementsByTagName("table").Item(0).cells.Length 3- كود حساب عدد الصفوف في الجدول: MsgBox WebBrowser3.Document.getElementsByTagName("table").Item(0).rows.Length 4- كود استخراج بيانات خلية في الجدول: MsgBox WebBrowser3.Document.getElementsByTagName("table").Item(0).rows(1).cells(1).innerText 5- كود ارسال بيانات إلى خلية في الجدول: WebBrowser3.Document.getElementsByTagName("table").Item(0).rows(5).cells(0).innerText = "salah" ملاحظة: المقصود بـ item(0) i هو الجدول الأول الأزرار داخل الإطار الأحمر هي الخاصة بأكواد هذا الدرس قبل البدئ إضغط على زر فتح صفحة التجربة لفتح الصفحة أمامك webbroser.rar

الحلقة الخامسة: التعامل مع الجداول في صفحة ويب سوف نتطرق في هذه الحلقة إلى الأكواد التي تمكننا من التحكم في الجداول داخل صفحة ويب و سوف نستخدم مرفق أخي ابو البشر في هذا الدرس و هي عبارة عن صفحة ويب محفوظة خاصية id للجدول اسمها: ctl00_PlaceHolderMain_gvCourseSectionExamsGrades عند فتح المرفق يجب تحديد صفحة الويب المرفقة كمصدر للأداة و ذلك بإتباع الخطوات التالية: 1- كود استخراج عدد الخلايا في الجدول: MsgBox Me.WebBrowser3.Document.getElementById("ctl00_PlaceHolderMain_gvCourseSectionExamsGrades").cells.Length 2- كود استخراج عدد الصفوف في الجدول: MsgBox Me.WebBrowser3.Document.getElementById("ctl00_PlaceHolderMain_gvCourseSectionExamsGrades").rows.Length 3- كود استخراج بيانات العمود الأول في الجدول: في هذا الكود نقوم بعرض الأرقام الموجودة في العمود الأول For i = 2 To Me.WebBrowser3.Document.getElementById("ctl00_PlaceHolderMain_gvCourseSectionExamsGrades").rows.Length MsgBox Me.WebBrowser3.Document.getElementById("ctl00_PlaceHolderMain_gvCourseSectionExamsGrades").rows(i - 1).cells(0).innerText Next i 4- كود استخراج بيانات العمود الثاني في الجدول: في هذا الكود نقوم بعرض الأسماء الموجودة في العمود الثاني For i = 2 To Me.WebBrowser3.Document.getElementById("ctl00_PlaceHolderMain_gvCourseSectionExamsGrades").rows.Length MsgBox Me.WebBrowser3.Document.getElementById("ctl00_PlaceHolderMain_gvCourseSectionExamsGrades").rows(i - 1).cells(1).innerText Next i 5- كود ارسال بيانات إلى الجدول: في هذا الكود سوف نرسل بيانات للعمود الرابع الخاص بمادة البحوث و المشروعات For i = 2 To Me.WebBrowser3.Document.getElementById("ctl00_PlaceHolderMain_gvCourseSectionExamsGrades").rows.Length Me.WebBrowser3.Document.getElementById("ctl00_PlaceHolderMain_gvCourseSectionExamsGrades").rows(i - 1).cells(3).innerText = i - 1 Next i و هذا هو المرفق به جميع الدوال. webbroser.rar

الحلقة الرابعة: التعامل مع القائمة المنسدلة في صفحة ويب سوف نتطرق في هذه الحلقة إلى الأكواد التي تمكننا من التحكم الكامل في القائمة المنسدلة داخل الأداة في صفحة ويب لقد قمت بتطبيق هذا الدرس على موقع الفايس بوك لأن به قائمة منسدلة الخاصة بالأشهر و لها خاصية: Id=month لهذه القائمة عمودين عمود مخفي و هو يمثل القيمة الحقيقة به أرقام من 0 إلى 12 و عمود ظاهر به أسماء الأشهر 1- كود حساب عدد عناصر القائمة: MsgBox Me.WebBrowser3.Document.getElementById("month").Length 2- كود معرفة القيمة الحقيقية للعنصر: من المعلوم أن القائمة المنسدلة يمكن أن يكون بها أكثر من عمود يعني ممكن تصبح القيمة الظاهرة تختلف عن القيمة الحقيقية MsgBox Me.WebBrowser3.Document.getElementById("month").Value 3- كود استخراج ترتيب القيمة الظاهرة: استخراج ترتيب القيمة الظاهر ضمن عناصر القائمة المنسدلة MsgBox Me.WebBrowser3.Document.getElementById("month").selectedIndex 4- كود استخراج القيمة الظاهرة: MsgBox Me.WebBrowser3.Document.getElementById("month").Item(Me.WebBrowser3.Document.getElementById("month").selectedIndex).innerText 5- إظهار جميع عناصر القائمة: Dim x As String Dim i As Integer For i = 1 To Me.WebBrowser3.Document.getElementById("month").Length x = x & " - " & Me.WebBrowser3.Document.getElementById("month").Item(i - 1).innerText Next i MsgBox x 6- اختيار عنصر من القائمة باستخدام رقمه الترتيبي: هنا وضعت القيمة تساوي 5 معناه سوف يتم اختيار العنصر رقم 5 و هو مايو Me.WebBrowser3.Document.getElementById("month").selectedIndex = 5 7- تغيير نص قيمة في العمود الظاهر من القائمة: سوف يتم تغيير كتابة أفريل في القائمة إلى أوفيسنا Me.WebBrowser3.Document.getElementById("month").Item(4).innerText = "أوفيسنا" 8-تغيير قيمة في العمود المخفي من القائمة: Me.WebBrowser3.Document.getElementById("month").Item(4).Value = "15" قبل البداية في تطبيق درس اليوم اضغط على زر فتح صفحة الفايس بوك لتظهر الصفحة أمامك webbroser.rar

الحلقة الثالثة: التعامل مع كائنات صفحات HTML و إرسال و إستقبال البيانات سوف نتطرق في هذه الحلقة إلى الأكواد التي تمكننا من التعامل مع كائنات صفحات الويب و إرسال و إستقبال البيانات منها و إليها. هنالك ثلاث كائنات سوف نتعامل معها فيما يخص إرسال و إستقبال البيانات و هي مربع نص و القائمة المنسدلة و الجداول لأن لكل كائن أكواده الخاصة. لكن قبل البدئ يجب التطرق إلى كيفية إستخراج الاسم المميز للعناصر ID أو NAME من أجل التعامل معها من خلال نموذج الأكسس. هناك عناصر لها ID و أخرى لها NAME و هناك لها الخاصيتين معا و هناك عناصر ليس لها NAME أو ID خطوات استخراج ID أو NAME موجود في هذه الصور: 1- كود إرسال قيمة لمربع نص في صفحة ويب: في هذا المثال سوف نستخدم صفحة غوغل و نقوم بإرسال كلمة أوفيسنا إلى من مربع بحث غوغل Me.WebBrowser3.Document.all("q").Value = "أوفيسنا" أو Me.WebBrowser3.Document.all("q").innerText = "أوفيسنا" أو Me.WebBrowser3.Document.Forms(0).q.Value = "أوفيسنا" أو Me.WebBrowser3.Document.getElementById("q").innerText = "أوفيسنا" Document : هي كل محتويات الأداة الموجوة في صفحة الويب من أزرار و مربعات و نصوص ...... 2- كود إستقبال قيمة من مربع نص في صفحة ويب: سوف نقوم باستخراج القيمة المكتوبة في مربع نص البحث لموقع غوغل MsgBox Me.WebBrowser3.Document.all("q").Value أو MsgBox Me.WebBrowser3.Document.all("q").innerText أو MsgBox Me.WebBrowser3.Document.Forms(0).q.Value أو MsgBox Me.WebBrowser3.Document.getElementById("q").innerText 3- كود الضغط على زر أمر: سوف نقوم بإرسال نقرة على زر فتح شاشة الدخول لجمايل Me.WebBrowser3.Document.Forms(0).gb_70.Click أو Me.WebBrowser3.Document.all("gb_70").Click أو Me.WebBrowser3.Document.getElementById("gb_70").InvokeMember ("Click") webbroser.rar ماذا تقصد بتنزيل البيانات ؟ هل استخراج قيم أم تنزيل ملفات

الحلقة الثانية: أكواد الطباعة و الخصائص و... سوف نتطرق في هذه الحلقة إلى الأكواد التي تمكننا من طباعة صفحة الويب و حفظها و عرض خصائص الصفحة و غيرها... 1- كود طباعة الصفحة: Me.WebBrowser3.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DODEFAULT 2- كود معاينة طباعة الصفحة: Me.WebBrowser3.ExecWB OLECMDID_PRINTPREVIEW, OLECMDEXECOPT_DODEFAULT 3- كود عرض خصائص الصفحة: Me.WebBrowser3.ExecWB OLECMDID_PROPERTIES, OLECMDEXECOPT_DODEFAULT 4- كود حفظ صفحة الويب: Me.WebBrowser3.ExecWB OLECMDID_SAVEAS, OLECMDEXECOPT_DODEFAULT 5- كود تنسيق الصفحة: Me.WebBrowser3.ExecWB OLECMDID_PAGESETUP, OLECMDEXECOPT_DODEFAULT 6- كود عنوان رابط الصفحة: MsgBox Me.WebBrowser3.LocationName 7- كود رابط الصفحة: MsgBox Me.WebBrowser3.LocationURL 8- كود فتح الصفحة الإفتراضية للمتصفح: Me.WebBrowser3.GoHome 9- كود فتح صفحة البحث: Me.WebBrowser3.GoSearch 10- كود فتح صندوق التصفح: هذا الكود يقوم بفتح صندوق لإدخال رابط صفحة ويب جديدة Me.WebBrowser3.ExecWB OLECMDID_OPEN, OLECMDEXECOPT_DODEFAULT 11- كود تخطي رسائل الأخطاء التي تظهر من الأداة عند التصفح: Me.WebBrowser3.Silent = True وهذا المرفق بعد الإضافات الجديدة webbroser.rar

تفضل سباق2.xlsm

تفضل لك ما طلبت قائمة-منسدلة-بشرطين-حسب-الحرف-الاول (1).xlsx

تفضل سباق.xlsm

اهلا بك فى المنتدى من البداية كان عليك عمل مشاركة مستقلة لطلبك ولكن طالما قمت برفعها هنا فليس هناك مشكلة ولكن نحتاج شوية تفصيل عن المطلوب هل تقصد العمل فى صفحة الدخول والمشكلة فى هذه الصفحة بل هناك صفحات اخرى؟ أرجو الإفادة والتوضيح عن الصفحة المطلوب العمل فيها فالملف متعدد الصفحات...كما ان للملف حماية للصفحات فكيف ترفع ملف محمى للعمل عليه-ما كلمة السر لفك حماية الصفحات بارك الله فيك

بسم الله الرحمان الرحيم نحن حاليا نقوم بمهام حماية المواقع العربية من الاختراق و معرفة نوع السرفر المستعمل حاليا لمن يريد تأمين موقعه ماعليه الا ترك رابط الموقع و نحن نقوم بدورنا اعطائه كل التقارير عن موقعه وبالتأكيد التقارير تذهب لللخاص فقط لذا نحن معكم لترقية الموقع و الحفاظ عليه بعنوان حملة أحمي موقعك و شكرا لكم معكم المبرمج : مناد سفيان - الجزائر

بسم الله الرحمان الرحيم اليوم لتحميل برنامج الدالفي على الموقع التالي أخوكم في الله المبرمج : مناد سفيان الجزائر.https://www.embarcadero.com/products/delphi

وعليكم السلام ورحمة الله وبركاته اعرض عليك عمل أخي علاء ابوالعلا (الله يعطيه الصحة والعافية ، ورحم الله والديه دنيا وآخرة ان شاء الله ) ، من منتدى الفريق العربي للبرمجة ، بإضافات مني والعمل هو عبارة عن التنقل بين السجلات بعدد معين من السجلات في كل ضغطة زر: المربع رقم 1 هو من عمل أخي علاء ، والمربع رقم 2 من عملي ، مقتبسا فكرة أخي علاء: عملت نموذج مستمر ، واردت السجلات تنزل او تصعد صفحة كاملة (مثل Scroll up down) بطول النموذج ، وهذه النتيجة: إضغط على الصورة للحركة: ولفهم الكود ، رجاء ملاحظة الارقام: ومقارنتها بهذه الاسطر من الكود: وهذا هو الكود: Private Sub cmd_Next_Click() Form_Title_Bar_Height = 405 Form_Navegation_Bar_Height = 405 Call MoveScroll((Me.WindowHeight - Me.FormHeader.Height - (Form_Title_Bar_Height + Form_Navegation_Bar_Height))) End Sub Private Sub cmd_Pre_Click() Form_Title_Bar_Height = 405 Form_Navegation_Bar_Height = 405 Call MoveScroll(-(Me.WindowHeight - Me.FormHeader.Height - (Form_Title_Bar_Height + Form_Navegation_Bar_Height))) End Sub Public Sub MoveScroll(Distance As Long) Me.GoToPage 1, , Distance End Sub جعفر 267.move 10 rec up down.mdb.zip