Eng.Qassim

شوف الفرق بالايام في ملفك..بعد اضافة دالة اخرى الخدمة.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

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

طيب ..ايه العبارة ؟ حتستفاد ايه

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

عادة حقل الدائن والمدين رقم والافتراضي له =0 ..وبالتالي الرصيد يساوي 0 اذا لم يكن هناك رصيد ..على العموم يمكن استخدام هذا السطر في الاستعلام IIf(IsNull([credit]-[debt]),0,[credit]-[debt]) بس الشق الثاني من السؤال لم افهمه ..يعني ايه الترقيم التلقائي هو نفس السيريال لرقم الموظف ..اعمل رقم الموظف رقم فريد واخلص من الحكاية !!

هو ممكن ..كما قال الاستاذ @محمد احمد لطفى لكن مالفائدة منها ؟

بصراحة يا اخي ملفك معظمه مشاكل ..وناس داخلة في ناس وعامل مكتبات مافيها داعي ..ولو انك قبل اسبوع بادي مشروعك بجدولين ..الحين كان اكتمل برنامجك استوردت الجداول والنماذج التي احتاجها ..لان ملفك عمل عندي حالة نفسية☺️ نصيحتي خلي تكون هاي بدايتك ..رغم فيها(تحفظ) وبعدها كل مرحلة افتح بها مشاركة لتكون الاجابة سريعة تحياتي q1.rar

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

اذا لم يكن لديك دالة تمكين الخواص ..فحسب اعتقادي لن تستطيع عمل شيء..فالخواص الرئيسية لديك غير ممكنة وخاصة هذا السطر SetProperties "AllowBypassKey", dbBoolean, False المسؤول عن زر الشفت Public Function EnableProperties() On Error GoTo ErrorHandler: DoCmd.ShowToolbar "Ribbon", acToolbarYes SetProperties "StartUpShowDBWindow", dbBoolean, True SetProperties "StartUpShowStatusBar", dbBoolean, True SetProperties "AllowFullMenus", dbBoolean, True SetProperties "AllowSpecialKeys", dbBoolean, True SetProperties "AllowBypassKey", dbBoolean, True SetProperties "AllowShortcutMenus", dbBoolean, True SetProperties "AllowToolbarChanges", dbBoolean, True SetProperties "AllowBreakIntoCode", dbBoolean, True Exit Function ErrorHandler: MsgBox Err.Description Exit Function End Function