Eng.Qassim

استاذ احمد @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

هل تقصد مثل هذا الشكل

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

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

شيء من هذا القبيل... Private Sub opGender_Click() If Me.opGender = 1 Then Me.txtGender.Value = "Male" ElseIf Me.opGender = 2 Then Me.txtGender.Value = "FeMale" End If End Sub txtGender هو اسم الحقل في النموذج والمربوط بالجدول

اسم حقل البحث عندك في النموذج ..واسم الجدول .. واسم حقل البطاقة في الجدول على التوالي txtSearch Customers cardN

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

وعليكم السلام.. دوال المجال لاتعمل هكذا.. 11.rar