ابوخليل

دالة التاريخ تنظر الى يوم السبت على اعتباره نهاية الاسبوع سواء جعلته في التنسيق اول الاسبوع أو وسطه أو آخره . لذا يلزم لتحقيق طلبك استخراج رقم الاسبوع من السنة ثم استخراج رقم اليوم من الاسبوع وبما ان يوم السبت من الاسبوع المنصرم لذا يلزم اتباع الخطوات التالية : 1- اضافة السطر التالي كمصدر بيانات في حقل الاستعلام (وهو عبارة عن رقمي الاسبوع واليوم من التاريخ المحدد ) DatePart("ww",[contdate]) & Format([contdate],"w") ثم نضع في المعيار DatePart("ww",Date()) & Format([contdate],"w") Or DatePart("ww",Date())-1 & "7" المعيار يقول : هات ما يوافق هذا الاسبوع الحالي من الايام ... و يوم السبت من الاسبوع السابق New2.accdb

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

تقصد التعديل متاح للجميع حتى يوم 10 من الشهر التالي .. ما عدا المدير يكون مفتوح له التعديل ؟

تفضل حسب شرحك للخطوات بعد ادخال التاريخ ورقم المستند وتحديد الحساب ... يتم ادخال البيانات ادرس الفورم جيدا .. وكذلك الكائنات المساعدة ... وكيف تم التنفيذ واشرح لي ما فهمته Financial_db.rar

واجهات جميلة متقنة ايضا تقنيا .. كما هو شرحك والواجهات المصاحبة .. اختصار احترافي لخطوات كثيرة زادك الله علما ونفع بك

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

اللي هو : جديد ، قديم ياليت تشرح لي ايه الفرق بينهما او ماذا تعني هذه التسمية هل قديم يعني ان الحسابات قديمة وتم جلبها من الخارج ؟ وهل يمكن الاستغناء عن هذا التبويب في برنامجك الجديد؟

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

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

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

هل جلبت الوحدة النمطية الى برنامجك ؟ ايضا شغل متتبع الأخطاء

هذه لم افهمها ! الكود موجود في في فورم welcom1 ما تم تلوينه صح

يعني تريد الرقم الذي يحمله الـــ id اذا فهمي صحيح اكتب السطر التالي في حدث قبل التحديث للحقل الأخير msgbox me.id

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

ههههههههههه سوف اعمل لك النموذج الرئيسي الذي يدخل البيانات في جدول tblFinancial_Records اكتب لي خطوات العمل كفقرات : مثل هكذا : 1- اختار حساب من الحسابات 2- احدد السنة 3 ادخل الصنف وهكذا ............. الخخخخخخخخخخخ --------------------------------------------- او ولا احبها : اذا لديك نموذج من عملك السابق يشتمل على جميع بيانات الادخال فارفقه لي .. حتى استنير به

هناك ثوابت وقواعد يجب اتباعها عند الشروع في تصميم اي برنامج وهذه الثوابت معظمها يتمركز في تصميم الجداول مثلا البيانات الثابتة التي تخص الموظف تكون فيجدول واحد كـــ الرقم المعرف/الاسم/الهاتف/مكان العمل/ العنوان/ ..... الخ ثم في جدول العمليات يتم جلب هذه البيانات متى احتجنا اليها

ملحوظة : سيحدث لديك اخطاء في الاسماء المركبة التي بينها فراغات لأن الكود يعتمد على المسافات الفارغة بين الأسماء .. فيأخذ الفراغ الأول والثاني والأخير

تفضل .. وتجنب اخي تسمية الحقول بكلمات محجوزة مثل name Public Function spltTxt(txtNm As String) On Error Resume Next Dim x, i As Integer Dim t1, t2, t3 As String x = Len([txtNm]) - Len(Replace([txtNm], " ", "")) For i = 0 To x If i = 0 Then t1 = Split(txtNm, " ")(0) If i = 1 Then t2 = Split(txtNm, " ")(1) If i = 2 Then t3 = Split(txtNm, " ")(2) If i = x Then t4 = Split(txtNm, " ")(x) Next spltTxt = t1 & " " & t2 & " " & t3 & " " & t4 End Function Database18.rar

عجيب شغلك لا ارتباط بين الجداول ، المفروض معرف الموظف يكون في جدول الاسماء ويدخل آليا ولا يدخل يدويا .. حتى جهة العمل لانه يوجد الاسماء مكررة مرة بجهة ومرة اخرى بدون جهة تفضل تم تحقيق طلبك بدون استخدام الدالة data2.rar

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

اللي فهمته ان التقييمات متعددة مرة ومرتين ... الخ اللي ما فهمته النسبة هذه تأتي من اين ؟ .. وهل هي ثابتة لجميع البنود ؟ لماذا لا تكون ارقام واكسس يترجمها الى نسبة؟ ولماذا اربعة اعمدة للتقييم .. الى يمكن ضم هذه الاعمدة في عمود واحد ... لأن التقييم يتم على بند محدد فإما ( جزئيا او يفي او تمام او كثير ) ؟؟؟ وكيف اكبر من صفر ؟؟؟ لا يظهر في المثال ما يدل على النتيجة النهائية ؟؟ انت فاهم شغلك ولكننا لا نفهمه

حتى الآن لم تصل الفكرة ما رأيك نناقش الفكرة بطريقة اخرى ؟

هل برنامجك يفتح ويعرض البيانات بعد تغيير اسم القاعدة ؟ اذا لا فمؤكد ستظهر لك رسائل تصف لك الخلل يمكن تعبت وحابة تستريح شوية

انت تتعلم اللي يصعب عليك عمله اعرضه هنا

هل المسألة صعبة عليك ابا حسان ؟؟ اكسس غالبا هو يعملها .. استخدم معالج النماذج .. كل ما ستعمله هو التنسيق والترتيب