ابوخليل

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

عندنا مثل يقول : تلقمه العنان ويلقم يدك يغلق xxx

انا اعمل على 2019 الرسالة تتحدث عن ملف مفقود ، ويبدوا انه ملف كروم التنفيذي chrome.exe انظر السطر التالي داخل محرر النموذج وتأكد من ان ملف كروم عندك متوافق مع المسار في السطر فقد يكون في (86) Program Files chromePath = """C:\Program Files\Google\Chrome\Application\chrome.exe"""

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

@Ezril كان الأولى بك الاعتذار من الاستاذ خليفة .. و شكر الاستاذ متقاعد على تنبيهك وهذا الذي ننتظره منك الآن اصلحك الله

احببت ان افرد موضوعي هذا بعنوان مستقل 1-لان غالب او جميع الدروس هنا تتعامل مع واتساب ويندوز 2-وحتى يكون تطوير هذا العمل مستقلا ولا يحدث خلط بين الامثلة المثال المرفق تم تطبيقه على واتساب ويب واليكم بعض التوجيهات والملاحظات : كانت مشكلتي في محاولات سابقة انه في كل مرة يتم الارسال وفتح الواتساب ويب .. فانه يطلب ربطا جديدا بالجوال وبحمد الله توصلت الى حل هذه المشكلة التي كانت عائقا حقيقيا .. يكتفى بالارتباط مرة واحدة فقط الآن : عند كل ارسال يفتح الواتس ويب بشاشة جديدة .. فان كانت هناك نسخة مفتوحة من قبل فانه يتجاهلها وتصبح غير فعالة وهذه لا مشكلة فيها لأنه يفتح على الحساب نفسه . ارجوا من اخوتي واحبتي الذين يمرون من هنا تجربة المثال وافادتي بنتيجة التجربة ، من اجل الانتقال الى الخطوة التالية وهي ارسال المرفقات ملحوظة : المرفق sendwatsWebAll .. هو النسخة المحدثة والمطورة بعد أخذ آراء وتجارب الإخوة sendwatsWeb.mdb sendwatsWebAll.rar

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

هنا يكون امر ( "sendkeys "^1 ) لم يعمل ... اما ان لوحة المفاتيح مفتوحة او ان الزمن غير كافي

عودا حميدا استاذ محمد ومن طول الغيبات جاب الغنايم

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

ابشروا وما زلت في محاولة التحسين كنت اظن انني احكمت العمل فوجئت بظهور ثغرات ... يجب ان اغلقها تماما .. يجب ان يكون العمل محكم

احبتي ما زلت اعمل على المثال المشكلة الحاصلة هي بسببين : 1- لوحة المفاتيح والأمر sendkeys .. احيانا وداخل الاجراء تتحول الى off فيختل ترتيب الأوامر وقد عالجت المشكلة باستخدام كود يجعل لوحة المفاتيح بوضع ON خلال تنفيذ الكود 2-ملاحظة غريبة بعد ترقية واتساب لم اكن اشاهدها في النسخة القديمة وهي ظهور مربع حوار اختيار المرفق ولصق رابط الصورة ثم اختيار الصورة ثم اسقاطها في واتساب . كل هذا يحدث آليا امام عيني بواسطة الاوامر المتكررة من sendkeys وهذا مزعج وغير احترافي وقد عالجت المشكلة واستبدلت الأوامر بامر واحد وهو اللصق مباشرة باستخدام Ctrl+V وقد نجحت الفكرة واختصرنا عدة حركات والتي كانت هي السبب المباشر في هذا الخلل طبعا استخدمت وحدتين نمطيتين واحدة للنسخ والاخرى للصق ، ولكني توقفت بسبب جودة الصورة .. حيث تظهر دقة الصورة رديئة وبحثت عن حلول فوجدت الحل الشافي ودقة 100% في طريقة الاستاذ جعفر وهي الاستعانة ببرنامج خارجي مساعد للنسخ ولكني افكر فيمن يريد توزيع برنامجه على نطاق واسع بحيث يلزم من يستخدم البرنامج تحميل برنامج الصور المساعد لذا سأنتظر لعلي اجد حلا لجودة الصورة المنسوخة ، والا سوف ارفعه حسب الطريقتين

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

اعتقد اني عثرت على المشكلة انتظروني .. حتى انجز عملا بين يدي .. سأوافيكم بالحل

الحل يقضي حاجة اخونا ازهر .. لاني اتوقع الغرض منه ولكن اذا جاءت الملاحظة من اخوي موسى هذا يعني ان في جعبته الحلول المناسبة بحثت فوجدت طريقة اخرى للقراءة والكتابة توظف يونيكود Private Sub textchange_Click() FilePath = CurrentProject.Path & "\" & "textm.txt" Set objx = CreateObject("ADODB.Stream") objx.Open objx.Type = 2 objx.Charset = "utf-8" objx.WriteText textfield objx.SaveToFile FilePath, 2 objx.Close End Sub Private Sub textimport_Click() Dim objx Set objx = CreateObject("ADODB.Stream") objx.Charset = "utf-8" objx.Open objx.LoadFromFile (CurrentProject.Path & "\" & "textm.txt") textfield = objx.ReadText() objx.Close Set objx = Nothing End Sub

عليكم السلام Private Sub textchange_Click() Dim fso, opn, tst Set fso = CreateObject("Scripting.FileSystemObject") Set opn = fso.GetFile(CurrentProject.Path & "\" & "textm.txt") Set tst = opn.OpenAsTextStream(2, 0) tst.Write Me.textfield tst.Close End Sub Private Sub textimport_Click() Dim fso, opn, tst Set fso = CreateObject("Scripting.FileSystemObject") Set opn = fso.GetFile(CurrentProject.Path & "\" & "textm.txt") Set tst = opn.OpenAsTextStream(1, 0) textfield = tst.ReadLine tst.Close End Sub textf2.rar

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

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

تفضل انقر نقرا مزدوجا على اي مربع اختيار للتفعيل ولإلغاء التفعيل لاحظ ان الموظف سوف يختفي اليوم من الفورم بمجرد اضافة المبلغ له ، احتياطا ان اردت اظهاره اكتب تاريخا اكبر من تاريخ اليوم محاوله2.mdb

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

السلام عليكم مشاركة مع اخي خليفة طريقة او فكرة التنفيذ بحاجة الى اضافة بعض الأساسات 1- يجب ان يأخذ الاسماء من جدول الاسماء ... ويكفي وجود معرف الموظف فقط في جدول السلف 2- يمكنك تطبيق الفكرة من خلال نموذج واحد ... فلست بحاجة الى رئيسي وفرعي 3- اضافة حقل تاريخ في جدول السلف للتصفية مستقبلا ولمنع تكرار السلفة في اليوم نفسه اخي احرص دوما ان يكون المرفق مختصرا جدا كي نتمكن من مساعدتك ارفع مرفقا جديدا يشتمل فقط على جدول الاسماء مع الجداول الحالية ونموذجا واحدا للاضافة وتقريرا واحدا للتجربة

هذه طريقة لاستخراجهم في الاستعلام نفسه باستخدام iif الحاصلين على 65%.rar

عليكم السلام انت لم توضح اذا تريد هذه النسبة على المجموع الكلي للمواد او انك تريدها مادة مادة على كل حال نسبة 65% من الدرجة العليا التي هي 80 = 52 يمكنك عمل معيار (يساي او اكبر من) 52

اسال الله العظيم رب العرش الكريم ان يشفيك عن أنس رضي الله عنه قال: سمعت رسول الله ﷺ يقول: إن الله عز وجل قال: إذا ابتليت عبدي بحبيبتيه فصبر عوضته منهما الجنة، يريد عينيه، رواه البخاري.

الرسائل النصية تعمل بشكل جيد المشكلة في المرفقات فقط