Eng.Qassim

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

طول الخط مافكرت اضع شرط عند فتح النموذج...كان كل تفكيري ان لا اغير في الكود

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

اهي النقطة اللي محيرتني .. يعني مثلا العميل اشتغل لمدة على نواة 32.. وبعد مدة اراد العمل على 64..طيب هو القاعدة الخلفية مشتركة بين الاثنين ولا ايه؟

بعد اذن استاذي @ابو جودي استخدم نفس الكود عندك في حدث GotFocus واجعل modal=yes للنموذج (اضافة شحنة)

يفترض حذف الاصناف ايضا من جدول Transaction تضع هذا في اخر كود استاذ ابو احمد DoCmd.SetWarnings False DoCmd.RunSQL "DELETE Transaction.*, Transaction.Add_doc FROM [Transaction]WHERE (((Transaction.Add_doc)=[Forms]![Trans_in]![Add_doc]));" DoCmd.SetWarnings True واعمل في نهاية الكود Me.Requery حتى تختفي الاصناف من النموذج

بالعكس ..نحن هنا لخدمة الجميع .. ودعائك افضل بكثير مما نقدمه ...

خليتني اشك بالدالة التي استخدمها ..استاذ ابو احمد .. بصراحة كنت استخدم هذه الطريقة بتقسيم الايام على 365.25

شوف الفرق بالايام في ملفك..بعد اضافة دالة اخرى الخدمة.rar

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

وعليكم السلام سؤالك غير مفهوم..وملفك يعمل بشكل جيد ..حاول ان تغير الفورمات لحقول التاريخ الى Short Date

استاذ عمر وجدت لك هذا الملف من موقع اجنبي..لعله يفيدك (الاكواد فيه جمالية) بالمناسبة استاذ عمر الان فتحت ملفك..مالذي تقصده بهذا التعبير =IIf([txtTodyDate]+2 Between [txtStart] And [txtEND],"1","0") Gantt_DB_PeterHibbs.zip

حيا الله استاذ عمر.. في تقديري وحسب عملي ..افضل برنامج لادارة المشاريع هو ال primavera وهو برنامج راقي جدا ينفذ الكثير من المهام ومن البرامج السهلة في هذا الشأن من مايكروسوفت هو برنامج Microsoft Project..وهناك الكثير طبعا لكني اشتغلت فقط عليهم

يا هلا بدكتور حسين..والله مفتقدينك ولابداعاتك من زمان

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

استاذ احمد @Ahmed_J استخدم هذه الدالة لتعطيك رقم دقيق ..صحيح الفرق بالايام قليل ..لكنه فرق طبعا من خلال مربع نص تمرر تاريخ التعيين وتاريخ اليوم ..سوف يعطيك سنوات الخدمة كامل اما اردت الفصل..يعني السنة مثلا في مربع نص وحده استخدم =Mid(DateDiffExact([EmpDate],Date()),1,2) وهكذا للبقية Function DateDiffExact(startDate As Date, endDate As Date) As String Dim years As Long, months As Long, days As Long Dim startY As Long, startM As Long, startD As Long Dim endY As Long, endM As Long, endD As Long startY = Year(startDate) startM = Month(startDate) startD = Day(startDate) endY = Year(endDate) endM = Month(endDate) endD = Day(endDate) years = endY - startY months = endM - startM days = endD - startD If days < 0 Then days = days + Day(DateSerial(endY, endM + 1, 0)) months = months - 1 End If If months < 0 Then months = months + 12 years = years - 1 End If DateDiffExact = years & " سنة, " & months & " شهر, " & days & " يوم" End Function

اخي العزيز..ارفق جزء من القاعدة التي فيها المشكلة..حتى يسهل الحل

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

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

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

عزيزي ابو جود..صدقني لم افهمك .. حينما تضغط تمكين اغلق القاعدة وافتحها ثانية ثم كلك يمين على النموذج ليأخ الى وضع لتصميم لاني عملت Modal=yes واذا تريد ان لايغلق البرنامج عند غلق النموذج فأوقف سطرdocmd.Quit

اضغط على زر تمكين ..ثم اغلق النموذج وافتحه مرة ثانية

السلام عليكم.. بعد اذن استاذي واخي @ابوخليل وللفائدة..فكرت بموضوع الاندثار ..او ربما يسمى الاهلاك ..ففي الكثير من المشاريع الكبيرة يتم حساب اندثار الالية او الماكنة واعتقد هي مختلفة لكل سنة ..لكني افترضت الاندثار للالية 5% لكل سنة فبعد 5 سنوات نستخرج قيمتها من الكود التالي.. والمعذرة لاني لا افهم بمصطلحات المحاسبة Dim value As Double Dim years As Integer Dim i As Integer value = Me.txtPrice.value years = Me.txtYearNumber.value For i = 0 To years value = value * 0.95 Me.SubForm.Form.Recordset.AddNew Me.SubForm.Form("txtNumber").value = i Me.SubForm.Form("Amount").value = value Me.SubForm.Form.Recordset.Update Next i Me.SubForm.Form.Requery txtPrice مربع نص في الرئيسي يمثل السعر txtYearNumber يمثل عدد السنوات txtNumber نص لحساب العدد في الفرعي Amount نص يمثل السعر كل سنة بعد الاندثار

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

ماذا تقصد بالتعديل؟ القاعدة مفتوحة وضعت لك دالة التمكين DBalWakyl.rar