ابوخليل

هذا شرح لخطوات الكود .. نسيت ان اوضحه داخل المثال .. لمن يريد التعديل او الاختصار او التطوير كما هو ملاحظ تكرار 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

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

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

الحمدلله على التمام و الكمال ‏اللهُم لا تجعله آخر عهدنا في رمضان ‏اللهُم أعده علينا أعواماً عديدة وأزمنةً مديدة عيدكم مبارك و‏كُل عام و إنتم بخير ‏

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

تفضل Dim sysFo, sysFi, foldry, filey As Object, i As String, X As Integer Set sysFo = CreateObject("Scripting.FileSystemObject") With Application.FileDialog(msoFileDialogFolderPicker) If .Show Then Set sysFi = sysFo.GetFolder(Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1)) Set foldry = sysFo.GetFolder(sysFi).Files For Each filey In foldry i = sysFo.GetAbsolutePathName(filey) i = UCase(i) Text4.AddItem (filey) Next End If End With Set sysFo = Nothing Set sysFi = Nothing Set foldry = Nothing Viewer2.accdb

لا لست وحدك .. بل غالب الاعضاء يعاني .. نلتمس له العذر ... وندعوا له بالخير .. ونحمد الله الذي انعم علينا وعافانا .

غير السطر Path = CurrentProject.Path & "\MyBk\" الى Path= "C:\Users\myuser\Documents\MyBk\" او الى Path= "C:\Users\myuser\Documents\MyBk" لا حظ يجب تغيير myuser الى اسم المستخدم عندك في وندوز

منظم : من التنظيم وهو الترتيب منضم : من الانضمام وهو الارتباط للتصحيح : تكتب : غير منضم .. و منضم ..... وليس منظم