Eng.Qassim

وعليكم السلام .. اعتقد ...تحتاج مع كل حقل تعمل هذا ..انا عملته مع حقل واحد ..اعمله مع التسعة البقية ويجب اضافة هذا الحقل ايضا ID_Time الى النموذج واجعله مخفي Private Sub day1_AfterUpdate() DoCmd.SetWarnings False DoCmd.RunSQL "UPDATE table_BAIN SET day1 = " & Me.day1 & " WHERE ID_Time = " & Me.ID_Time DoCmd.SetWarnings True Me.Requery End Sub

وعليكم السلام.. لدي ربما ملاحظتين..الاولى ان جدول العملاء لايربط مع ذيل الفاتورة وانما براس الفاتورة ثانيا فاتورة المرتجع مربوطة بجدول المبيعات فكيف تريد بدون كميات ..وكيف ستعرف الكميات المباعة من الكمية المرتجعة عملت لك مربعي تحرير باسم العميل ورقم الفاتورة InvoiceSale_10-1.rar

فيك البركة يا غالي..فكرة جميلة جدا ..عاشت الايادي

هل تم تحديث نسخة الوندوز عند المستخدمين؟

في مربع البحث ضع هذا الكود ..اعتما على علامة الصح والرقم الوظيفي ستظهر رسالة تنبيه ويمكن استخدام دالة dlookup ايضا Dim cardN As Long cardN = Val(Me.txtSearch.Value) If cardN > 0 Then Dim rs As Recordset Set rs = CurrentDb.OpenRecordset("SELECT * FROM Customers WHERE cardN=" & cardN & " AND ISaCTIVE=True;") If Not rs.EOF Then MsgBox "الموظف مستقيل" End If rs.Close End If

فعلا اذا حظر الماء يبطل التيمم مثلما يقولون..احسنت استاذ @ابوخليل كنت افكر بعمل جدول للاوزان حسب العمر واعمل موديول يفر على السجلات ويعمل مقارنة لكن للاسف لم استطع كتابة الجدول ..لان كل وزن يجب كتابته حسب العمر والطول مرفق ملف لمن اراد الفائدة W.rar

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

انا عيوني زغللت وانا اكتب الكود ...طبعا لم اجربه لحد الان وربما فيه خطأ...لكني احب مشاركة بقية الاخوة للتصحيح عملت موديول لتمرير العمر والطول ...عسى احد الاخوة يساعدنا ... لاني بجد قفلت ...يعني نعست 🥱 Function GetIdealWeight(age As Integer, height As Integer) As Double Select Case True Case age <= 24 Select Case height Case Is <= 150 GetIdealWeight = 57 Case Is <= 160 GetIdealWeight = 60 Case Else GetIdealWeight = 63 End Select Case age <= 29 Select Case height Case Is <= 150 GetIdealWeight = 60 Case Is <= 160 GetIdealWeight = 63 Case Else GetIdealWeight = 66 End Select Case age <= 39 Select Case height Case Is <= 150 GetIdealWeight = 61 Case Is <= 160 GetIdealWeight = 64 Case Else GetIdealWeight = 68 End Select Case age <= 49 Select Case height Case Is <= 150 GetIdealWeight = 64 Case Is <= 160 GetIdealWeight = 67 Case Else GetIdealWeight = 71 End Select Case Else 'age >= 50 لاكثر من 50 سنة Select Case height Case Is <= 150 GetIdealWeight = 67 Case Is <= 160 GetIdealWeight = 70 Case Else GetIdealWeight = 74 End Select End Select End Function

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

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

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

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

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

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

وعليكم السلام.. استخدم السطر التالي في مصدر سجلات الديون في التقرير..ولو المفروض تغيير اسم الاستعلام ولايكون مشابها لاسم الحقل اذا يعطي خطأ قم بتغيير الفاصلة الى فاصلة منقوطة =DLookUp("[SumOfMONT]","[SumDOYON]","[coud]=" & [coud])

في العلاقات بين الجدولين ..ارفع علامة الصح عند الحذف للتكامل المرجعي

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

نعم استاذ @محمد احمد لطفى انظر للمرفق hard disk2.rar

🤔

زي ماقلت لك ...اعمل جدول بالموظفين فقط ...مش عاوز منك حاجة نانية A4.rar

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

طيب الكود عندك...وركبه زي ماحضرتك بتشوف ☺️

بس لو اعرف انت عاوز ايه من الهارد ديسك المسكين hard disk2.rar

بالتأكيد يظهر لك هذا الخطأ لان النص فارغ... اعمله هكذا .. If Me.txtSearch.Value <> " " Then DoCmd.OpenReport "تقرير حسب المخصص", acViewPreview Else MsgBox "ادخل المخصص رجاء" Me.txtSearch.SetFocus End If

طيب بص في في استعلام رصيد الاجازات المستنفذة اجازات.rar