ابوخليل

دعنا ننتهي من هذه نصيحتي ان تبقي النماذج كماهي واذا مصر على التكبير .. اضف هذا السطر لحدث التحميل لكل نموذج DoCmd.Maximize ولاحظ انك ستحتاج الى اعادة ضبط مقاسات الحقول لأنه غير مناسب صفحة تفتح بعرض 30سم والحقول بكامل عرضها لا تتجاوز 10سم على كل حال اليك المرفق .. تم عمل نموذج رئيسي كبداية عدل ما تريد ثم ارفعه لعمل الطلب الرئيسي FinancialPrg1.rar

ابشر من هنا

الحمد لله اولا وآخرا بقي اللمسات الفنية لإعدا البرنامج للعمل مثل : 1- واجهة جميلة للبرنامج 2- اعداد قائمة مختصرة ( خاصة ) للتقارير للطباعة والتصدير 3- زر لأخذ نسخة احتياطية 4- نموذج دخول وصلاحية مستخدمين بسيطة تؤدي الحاجة 5- تقسيم قاعدة البيانات 6- تحويل الوجهات الى صيغة accde ---------------------------------------------------------------- ارجوا اخي ان نقف عند هذا الحد وتنتقل وتفتح مواضيع جديدة حسب البنود اعلاه ، كل بند بموضوع يخصه اذا اكتمل بند تنتقل لما بعده .. والافضل ان تحاول قبل طرح الموضوع ونترك هذا الموضوع لمن يمر من طلاب المعرفة والعلم لسهولته وعدم تشعبه .

عذرا ..يا دكتور .. انشغلت ووقتها .. ونسيتك تفضل الجداول بجانب الواجهات يتم الربط آليا .. اين ما تنقل المجلد test3.rar

عندما تتفحص المرفق ادناه .. ستأسف على ايام وشهور وسنوات قضيتها في تعلمك السابق .... لا تستعجل وادرس المرفق جيدا .. دعواتك في هذا المساء المبارك Financial_db6.rar

واضح سأوافيك بما يمكنني فعله حيال ذلك

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

راجع الجدول مرة اخرى ، كان يوجد به في المثال السابق بعض مربعات التحرير التي تظهر النصوص الآن لن تجد الا ارقاما .... فقط حقل البيان هو اليتيم ,, وحقل نعم لا ملحوظة : تم اصلاح البحث حسب الطلب Financial_db5.rar

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

شباط اللي هو فبراير 3 سنوات يكون28 يوما والرابعة السنة الكبيسة يكون 29 يوما ... على فكرة هذه السنة كبيسة فالاسلم لك لسنوات قادمة اعتبار شهر فبراير 28 يوما حيث السنة القادمة لا يوجد يوم 29 في شهر فبراير سوف احاول اخراج النتيجة لتساوي 28 ملحوظة .. انت ذكرت ان النتيجة منضبطة تماما ولكن لي رأي آخر هي منضبطة في الشهور التي عددها 31 يوما فقط جرب على الشهور ذات الـــ 30 ووافني بالنتيجة من اجل ايجاد حل متكامل منضبط

تفضل طريقة حساب البدو Dim m1, ym As Integer Dim idate As Date ym = (Me.iYear * 12) + Me.iMonth If Me.frame1 = 1 Then idate = DateAdd("m", ym, Date_1) Date_2 = DateAdd("d", Me.iDay, idate) ElseIf Me.frame1 = 2 Then idate = DateAdd("m", -ym, Date_1) Date_2 = DateAdd("d", -Me.iDay, idate) - 1 Else Exit Sub End If 30Dates.mdb

ههههههههه صحيح كلامكك استاذ فادي ولكن مسألة الــــ 30 يوم حقيقية في بعض الانظمة ويؤكدون عليها والاخ احمد لو حسبها بالحسبة العادية الموظف سوف يخسر 8 ايام من استحقاقه انتظروني الحل يسير باذن الله سأوافيكم به

آآآآآه يعني النتيجة تظهر في حقل التاريخ الثاني صحيح؟

ايضا يمكن وضع قاعدة الجدول على قرص (بارتيشن) رئيسي يوجد غالبا في جميع الاجهزة مثل قرص C

نعم يوجد بشرط تكون الجداول بجانب الواجهات في المجلد او في مجلد داخل مجلد قاعدة الواجهات تفضل من مكتبتي .. دعواتك لصاحب الوظائف Function BackFile() As String 'مسار القاعده الخلفيه واسم الملف الذي يحتوي على الجداول BackFile = CurrentProject.Path & "\BeBackDb.mdb" End Function Function CheckFile() As Byte 'فحص الملف اذا موجود On Error GoTo Error: Open BackFile For Input As #1 Close CheckFile = 1 Exit Function Error: Exit Function End Function Function AutoLink() If CheckFile <> 1 Then MsgBox "من فضلك ضع ملف القاعدة الخلفية كما هو مبين بالمسار أعلاه", vbOKOnly, BackFile DoCmd.Quit End If 'حذف الجداول المرتبطه On Error Resume Next Dim FrontObj As AccessObject, FrontDB As Object Set FrontDB = Application.CurrentData For Each FrontObj In FrontDB.AllTables If Left(FrontObj.Name, 4) <> "MSys" Then DoCmd.DeleteObject acTable, FrontObj.Name End If Next FrontObj 'الربط من جديد Dim BackObj As TableDef, BackDB As Database Set BackDB = DBEngine.Workspaces(0).OpenDatabase(BackFile, True, False) For Each BackObj In BackDB.TableDefs If Left(BackObj.Name, 4) <> "MSys" Then DoCmd.TransferDatabase acLink, "Microsoft Access", BackFile, acTable, BackObj.Name, BackObj.Name End If Next BackObj Set FrontDB = Nothing Set BackDB = Nothing 'النموذج الافتتاحي DoCmd.OpenForm "Form1" End Function

ما المطلوب الموجود نموذج فيه : 1- ( اضف / اطرح ) ماذا تعني هذه ؟ 2- سنة / شهر / يوم اشرح المطلوب اذا ادخلت تاريخين ماذا اختار ؟ وما الناتج ؟ اعطني مثالا لنتيجة تاريخين من عندك

اخي الكريم انا لم افهم مطلبك في اول مشاركة لك ولكني فهمت انك تريد تتعامل مع التاريخ على اساس الشهر 30 يوما اليك مثالا وجدته في مكتبتي ومن عملي اتمنى ان يحقق طلبك months30.rar

افتح موضوعا جديدا في طلبك وارفق جداولك فقط ووضح ماتريد بالضبط ( الادخال/ والنتائج المستخرجة ) ... فمشاريع المدرسة متشعبة وكبيرة اخوانك هنا لن يألوا جهدا في مساعدتك وتوجيهك

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

احاول اعمل لك اول تقرير غالبا التقارير تأخذ في رأسها عناوين وشعارات تمثل المؤسسة يسميها البعض كليشة هل ترغب في رأس للتقرير مميز اذا نعم .. زودني ببيانات الرأس الثابتة التي تمثل مؤسستك ولا باس ان كان هناك شعار

عليكم السلام ورحمة الله وبركاته "(" & [class_fsl] & "/" & [Class] & ")"

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

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

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

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