ابوخليل

دخولك تشريف لنا .. ويوم سعد للموضوع

من خلال الجداول يمكنك الاطلاع على حسابات المستخدمين ايضا يمكنك العبث بالبيانات ما دمت استطعت الدخول اليها ولكن البرنامج لا يمكنك نسخه الى جهاز آخر

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

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

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

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

العبرة في نوع الحقل الذي يتم البحث فيه ، فالكود اعلاه يبحث في الحقل الرقمي ولو تم تغيير نوع الحقل 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

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