عمر ضاحى

وليه ينزل نسخه ويفرمت فى نظام وندوز بيشتغل من على الفلاشه مباشرتا زي اسطوانت هرنز الإصدار الاخير ينزلها ويدخل يعمل كل حاجه هو عاوزها

بص علاج موضوعك هنا من الاخر

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

بعتذر عن التأخير اتفضلى الكود حسب طلبك (بعد اصلاح خطأ سابق) Sub xCalcAge() Dim years As Integer Dim months As Integer Dim days As Integer Dim xD, xM, xY As Integer Dim xAge As Double years = Nz(Y, 0) months = Nz(M, 0) days = Nz(D, 0) '---------------------------------------------------------- If days >= 20 Then xM = months + 1 xD = 0 Else xD = days End If '---------------------------------------------------------- If xM >= 10 Then xY = years + 1 xM = 0 Else xY = years xM = months End If '---------------------------------------------------------- If xY = 0 And xM = 0 And xD <> 0 Then xAge = xD ageunit = "Days" ElseIf xY = 0 And xM <> 0 And xD <> 0 Then xAge = xM ageunit = "Months" ElseIf xY = 0 And xM <> 0 And xD = 0 Then xAge = xM ageunit = "Months" ElseIf xY <> 0 And xM = 0 And xD <> 0 Then xAge = xY ageunit = "Years" ElseIf xY <> 0 And xM <> 0 And xD = 0 Then xAge = xY & "." & xM ageunit = "Years" Else xAge = xY & "." & xM ageunit = "Years" End If age = xAge End Sub مرفق الملف age collect.rar . جربي واذا تم حل المشكلة اختاري افضل اجابة

اقصد ان الجزء من هنا وفوق خاص بجلب العمر وتوزيعه على شهور وايام وسنوات years = Val(arrAge(0)) months = Val(arrAge(2)) days = Val(arrAge(4)) لكن انت ممكن تعملى ده اذا انت حابه تكتبى السنوات والشهور والايام بنفسك دون حساب years = Y 'هنا هياخد قيمة السنوات من حقل السنوات فى النموذج months = M 'هنا هياخد قيمة الاشهر من حقل الاشهر فى النموذج days = D 'هنا هياخد قيمة الايام من حقل الايام فى النموذج وهكذا والباقي الكود هيكمله عادي

بصى فى الكود (الصب) Sub xCalc() Dim strAge As String Dim arrAge() As String Dim years As Integer Dim months As Integer Dim days As Integer Dim xD, xM, xY As Integer Dim xAge As Double 'هنا الدالة التى تحسب العمر strAge = CalcAge(bdate, Date) 'هنا بيتم البدء فى فصل الايام والشهور والسنوات arrAge = Split(strAge, " ") 'هنا تم التوزيع السنوات والشهور والايام على المتغيرات الثلاث 'هنا ممكن تستبدلى بالتوزيع الخاص بكي years = Val(arrAge(0)) months = Val(arrAge(2)) days = Val(arrAge(4)) ' 'هنا تم توزيع النتائج على الحقول الثلاث فى النموذج Y = years M = months D = days '---------------------------------------------------------- If days >= 20 Then xM = months + 1 xD = 0 Else xD = days End If '---------------------------------------------------------- If months >= 10 Then xY = years + 1 xM = 0 Else xY = years xM = months End If '---------------------------------------------------------- Debug.Print xD Debug.Print xM Debug.Print xY If xY = 0 And xM = 0 And xD <> 0 Then xAge = xD ageunit = "Days" ElseIf xY = 0 And xM <> 0 And xD <> 0 Then xAge = xM ageunit = "Months" ElseIf xY = 0 And xM <> 0 And xD = 0 Then xAge = xM ageunit = "Months" ElseIf xY <> 0 And xM = 0 And xD <> 0 Then xAge = xY ageunit = "Years" ElseIf xY <> 0 And xM <> 0 And xD = 0 Then xAge = xY & "." & xM ageunit = "Years" Else xAge = xY & "." & xM ageunit = "Years" End If age = xAge 'Debug.Print xAge End Sub لاحظي انك ممكن تقفذى وتلغي وظيفة الكود من السطر هذا years = Val(arrAge(0)) months = Val(arrAge(2)) days = Val(arrAge(4))

انا واضع لحضرتك الشروط فقط استبدلى الجذء الخاص بمصدر المتغير xD xM xY

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

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

فقط قوم بحذف الجداول المرتبطه فى الواجهه وانسخ الجداول الاخري من القاعدة الخلفية الى الواجهه وخلاص كده ^_^ مع مراعات العلاقات بين الجداول (قد تحتاج الى ربطها مره اخرى

بعد الاطلاع على المرفق اولا لا توجد علاقة بين جدول الموظفين وجدول تسجيل الحركات ثانيا هناك الكثير من المواضيع التى تتكلم عن هذا هذا موضوع لاستاذى / @ابو جودي الغرض مش انك تاخذ الملف نسخ ولصق الغرض ان تتعلم كيف بناء الجداول والعلاقات بينهم لانهم اساس اي برنامج والكثير فقط استخدم ادات البحث واتعلم كيف بنو العلاقات

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

هل هذا ما تريدين age collect.rar انا وضعت تقريبا جميع الاحتمالات التى جربتها قد يكون هناك احتمالين او 3 لسه ما فكرت فيهم لكن خليهم عند التجربه انا لغيت الاكواد التى وضعتيها ووضعت ليكي مديول وصب

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

احذفى ال . من الكود Me.age = Me.Y & "." & Me.M الى Me.age = Me.Y & " " & Me.M

المشكلة فى الكود لان وظيفة هذا الكود هو ملئ الحقول المذكورة بالبيانات التى تم جلبها فى المتغير A لذا لحل هذه المشكلة يجب ان تكون القائمة فقط لعرض وليس لتعديل البيانات ازيلى الكود وهتتحل المشكله

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

افتحي موضوع جديد افضل لان الموضوع هذا تم حله وال معاكي ده طلب جديد عموما لحين فتحك لموضوع جديد سوف احاول حل المشكلة ان شاء الله

ارفق ملف

اتفضل الحل اولا لحساب العمر وفترة العمل فى دالة واحده اتفضل هذا المديول Function CalcAge(StartDate As Date, EndDate As Date) As String Dim years As Integer Dim months As Integer Dim days As Integer Dim intH As Integer intH = Int(DateDiff("m", StartDate, EndDate)) + _ (EndDate < DateSerial(Year(EndDate), Month(EndDate), Day(StartDate))) years = Int(intH / 12) months = intH Mod 12 days = DateDiff("d", DateAdd("m", intH, StartDate), EndDate) CalcAge = years & " سنة و " & months & " شهر و " & days & " يوم" End Function وهذا الاستعلام شامل كل شئ SELECT tbl_info_fonctionnaire.num, tbl_info_fonctionnaire.nom_arabe, tbl_info_fonctionnaire.prenom_arabe, tbl_info_fonctionnaire.date_naissance, tbl_info_fonctionnaire.date_premiere_grade_poste, tbl_info_fonctionnaire.date_grade_poste_actuel, CalcAge([date_naissance],Date()) AS CalculateAge, CalcAge([date_premiere_grade_poste],Date()) AS WorkAge, DateAdd("yyyy",60,[date_naissance]) AS After60Y, DateAdd("m",18,[date_premiere_grade_poste]) AS After18M FROM tbl_info_fonctionnaire; النتيجة المرفق BASEF.rar

هل هذا ما تريدي ما تم هو استخدام هذا الشرط IIf([Forms]![result_collect_frm]![xsub]="LABORATORY REPORT";[test_order_tbl].[sub];[Forms]![result_collect_frm]![xsub]) lab after.rar

بسيطه نضيف للصب الشرط الخاص به 😄 هل هذا ما تردين lab after.rar

انا عندي شغال تمام وبيفلتر صح هل هناك نموذج اخر غير ال اتكلمتى عليه ايضا

للاسف بتعمل مشاكل عموما المشكلة عندك فى الاتسعلام نفسه lab after.rar جربي كده

ممكن يكون السبب من الاستعلام نفسه او نقص البيانات