rudwan

أحسنت التعبير يا فتى الوادي الأخ abdo55 ألا ترى أن الوقت يكاد يكون مستحيلا حتى لو رغب أحد بالتطوع في عمل البرنامج ؟

عدل هكذا Private Sub Command6_Click() Dim A As String Dim rs As Object A = InputBox("ادخل رقم العقد المراد البحث عنة ") Set rs = Me.Recordset.Clone If Not IsNull(DLookup("NOCO", "table1", "[NOCO] = '" & A & "'")) Then rs.FindFirst "[NOCO] = '" & A & "'" Me.Bookmark = rs.Bookmark Else MsgBox (" هذا السجل غير موجود حاليا قم باضافة الي جدول العقود ") End If End Sub

انظر الحل المرفق لابد من انشاء جدول خاص للأفراد ( الضباط ) - Soljers قم بتشغيل الاستعلام Soljers Without Matching SelectOneCource ثم اختر رقم الدورة المطلوبة , يظهر لك أسماء الذين لم يحضروها _______________.rar

هل هذا هو المطلوب db1.rar

كما قال أخي منذر احذف حقلي الاجمالي من جدول الرواتب ثانيا : اضف حقل التاريخ الى جدول الرواتب ثالثا : انظر الاستعلام newmonth في كل شهر تقوم بتشغيل هذا الاستعلام بعد تغيير تاريخ نهاية الشهر فيه ففي مثالك هذا تم اضافة ثلاثة سجلات على أساس أنها رواتب شهر 9 , و بتشغيل الاستعلام الأخير يتم نسخ السجلات الى شهر 10 salary.zip

تفضل يا أخ ماجد hotel.rar

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

استخدم معايير لتعريف الشروط كما يلي : dim s , f , k as string s=" text = " & me.text f=" date = " & me.date k = s and f rs.find k

هذا مثال لانشاء القائمة بالكود , من تصميم الأخ أمجد جمالي AddMenuExample.rar

الحل يكمن في اعادة صياغة الجداول كما يلي :\ - جدول الأصناف : رقم القطع - اسمها - بقية التفصيلات - جدول حركة الأصناف : مسلسل - رقم القطعة ( ربطا مع حقل رقم القطعة في جدول الأصناف ) - الكمية المنصرفة - الكمية المستلمة - تاريخ الحركة و من خلال الاستعلامات المشتركة مابين الجدولين يمكنك الحصول على كل ماتريد مثل : 1 - استعلام بالكميات المستملة 2 - استعلام بالكميات المنصرفة 3 - استعلام برصيد المخزون لكل الأصناف و لكل صنف على حدة مع بيان تفصيل بقية بيانات الصنف

هذا مثال db3.rar

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

حتى لو مزاح , لايصلح في جنب الله عز و جل فاحذر أخي أن تتمازح في مثل هذا الأمر فامزح مع أي انسان الا في جنب الله

بعد تعديل التصميم , تقوم الآن بعمل نموذج ادخال المصاريف في النموذج كما يلي : في النموذج الرئيسي Intidab تسجل حركات الانتداب الرئيسية فقط في الفرعي الأول تسجل أسماء الموظفين في كل انتداب في الفرعي الثاني تسجل نفقات كل موظف Masareef.zip

أولا أخي الكريم نشكر لك دعوتك ان كان لنا شرف أن نحظى بها و لكن ..... الدعاء هو طلب من المولى عز و جل , ان شاء استجاب , و ان شاء أخر الاستجابة , و ان شاء منعها من أهم شروط استجابة الدعاء الاقرار بالانكسار و الذل و الخضوع لملك الملوك , و ثانيها رجاء الاستجابة منه عطفا و كرما من جلاله , و ثالثها حسن الظن به سبحانه أن يستجيب و لايرد الدعاء أما أن يقول انسان أنه ضامن الاستجابة فهذا من أول مقومات رفض الاستجابة و تأخيرها ثانيا : جرب هذا المثال SELECT Table1.id, Table1.g, Weekday([g]) AS f FROM Table1 WHERE (((Table1.g) Between #9/15/2006# And #9/28/2006#) AND ((Weekday([g]))=7)); حيث Weekday([g]))=7 هو يوم السبت و تستطيع اختيار أي يوم آخر بتغيير القيمة من 1 الى سبعة بدء من يوم الأحد

مثال لطباعة سطر معين http://www.officena.net/ib/index.php?showtopic=449

هذه الدالة تحسب لك مجموع الرواتب من جدول 1 فقط و ليس من جدولين مثلا لحساب اجمالي الرواتب : s=Dsum(" جدول 1 "," رواتب ") أما مجموع رواتب قسم معين فيكون s=Dsum(" مقر العمل = "," جدول 1 "," رواتب " )

هذه العملية الحسابية لايصلح أن يكون الناتج ضمن الجدول , بل يكون من خلال استعلام انظر الوصية الثانية من الموضوع التـــــــــالــــــــــــــي

هذا حل موضوع الطباعة تم تعديل كود الاستعلام الخاص بالتقارير التي تبدأ ب f1 حيث كان الملف السابق فيه كود للتقارير التي تبدأ ب f فقط 0001.rar

في هذه الحالة يمكنك ادراج شرط الاستعلام تحت خانة حقل تاريخ الصلاحية > Now() فيأتي لك بكل الأصناف التي لازالت تاريخ صلاحيتها سارية

شكرا أخي أحمد و بارك الله فيك على تجاوبك لدعوة الاخوان بشان برامج الكونترول

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

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

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

يمكن بناء جدول في الأكسس مبسط طبقا لصفحة الآكسل هذه , لكن أين صاحب البرنامج ؟ لابد من وجوده حيث أنه طلب سابقا أن يرمز لكل مجموعة تقارير و استعلامات بحرف واحد , فليكمل الفكرة أولا