ابوخليل

الف مبروك تستاهل أكثر

العبرة في نوع الحقل الذي يتم البحث فيه ، فالكود اعلاه يبحث في الحقل الرقمي ولو تم تغيير نوع الحقل numx الى نصي سيصبح الكود على هذا النحو rs.FindFirst "[numx] = '" & Me![txtSearch] & "'"

اعتذر عن التأخر اخي محمد تفضل Dim rs As Object Set rs = Me.Recordset.Clone rs.FindFirst "[numx] = " & Str(Nz(Me![txtSearch], 0)) If rs.NoMatch Then MsgBox "لا يوجد سجل" txtSearch = "" Else Me.Bookmark = rs.Bookmark End If test7.mdb

وعليكم السلام ايضا مثالك الثاني ناقص على كل حال ما تريده واضح انظر التعديل على الكود .. ويمكنك في آخر الكود اضافة سطر لتوجيه مكان المؤشر ان اردت Private Sub search_AfterUpdate() Dim rs As Object Set rs = Me.Recordset.Clone rs.FindFirst "[numx] = " & Str(Nz(Me![search], 0)) If Not rs.EOF Then MsgBox "لا يوجد سجل مطابق" Exit Sub End If End Sub اقصد بتوجيه مكان المؤشر ,, اي ان كنت تريد المؤشر يبقى في خانة البحث او تريده ينتقل الى حقل آخر

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

يبدوا وجود مشكلة في ملف المكتبة احذف المكتبة السابقة واضف هذه بدلا عنها هذه الاكواد لن تعمل مع سكوال 2012 .. هذا ما اخبرني به اخ فاضل ارسلت له المثال وقام بتجربته والمؤكد انها تعمل على 2005 SQLDMO.rar

تفضل Me.RecordSource = "SELECT AfwtIar.*, * FROM AfwtIar WHERE (((AfwtIar.Nwaha)=""مبيعات"") AND ((AfwtIar.Adfah)=""نقدي"") AND ((AfwtIar.Rjmfatwra) Like ""*"" & [forms]![frm1]![text14] & ""*""))" بحث مشروط2.rar

حدث برنامج الضغط الى اصدار احدث

حدث برنامج الضغط الى اصدار احدث

السلام عليكم للتجميع لا بد من استبعاد الموانع ، مثل التاريخ اليومي ومثل ترقيم السجلات تم التعديل انظر في مصدر بيانات التقرير db2.mdb

لم اعملها ولكني افكر في مسألة السحب والافلات بان تكون على مستوى كامل الجدول فالعمل من خلال جدول المعلم ستكون الرؤية قاصرة لانه في الحقيقة وعلى ارض الواقع لا يوجد حقول فارغة فالعملية عبارة عن تبادل مراكز

وانظر هنا

تفضل تم عمل الخطوتين : تحويل الاستعلام الى جدول teacher_class وجعله مصدر للنموذج والسحب والافلات يعمل بكفاءة .. GDwal_2.rar

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

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

تحويل القيمة الموجبة الى سالبة : اضرب بــــ -1 وايضا هو يعطي عكس العملية ... تحويل القيمة السالبة الى موجبة : اضرب بــــ -1 من مخزون الاعدادية

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

شكرا استاذ حمدي على المداخلة والملاحظة . المثال اعلاه تم فيه توزيع جداول 51 معلما لمرحلة ابتدائية تضم 18 فصلا ومن المستحيل تطبيق الرغبات كما نرغب بالضبط ، ولكن " سددوا وقاربوا" فمهما كانت درجة العمل الاحترافية فلن يستغنى عن التعديل اليدوي من التحسينات التي يمكن اضافتها : 1- التحكم بحجب ايام عن بعض المعلمين ( وهذا اساسي ) وقد سقط سهوا 2- يمكن اتاحة اكثر من محاولة للتوزيع عن طريق تغيير الفرز المتبع في الجداول فبدلا من الفرز حسب الصف يكون الفرز حسب المادة

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

وعليكم السلام صباح الخير .. واصل حبيبنا ..

وعليكم السلام تريد الحل على مثالك الأول ام على مثالك الاخير ؟

الحمد لله ... ولكم

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

اعتقد مشكلتكت في المعيار [Item_Code] الموجود في الدالة لان الاستعلام لن يتعرف عليه استبدله بالامتداد الكامل : [Forms]![Parts_Sales]![Item_Code]

انظر هنا فقد تجد فائدة