عمر ضاحى

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

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

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

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

هل هذا ما تريدين 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 جربي كده

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

ده لاني غيرت اسم مربع النص من sub الى xsub لذا وجب التعديل فى الاستعلام [Forms]![result_collect_frm]![xsub] -------------------- ثانيا خلينا ناخد الملاحظات القادمه واحده واحده اولا انا عملت شوية تعديلات هنا lab after.rar شوفى المرفق ولما يكون فى ملاحظات اخبرينى بالمفترض يظهر والطريقة للوصول اليها علشان لو فى تعديلات اخري هي المؤثره على النتيجة نتفادي هذا الامر

شوفي المرفق هذا lab after.rar

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

من النقطه الاولى للنقطه الرابعه ما عندي مشكلة لكن فى النقطة الخامسة هيكون عندي حالتين الاولى كلمة SEE REPORT موجوده وغير موجوده طيب ايه وضع result_collect وresult_all مع الحالتين ال فوق ؟ لان انا كده عندي المفترض 9 احتمالات انت جبتي منهم 3 حالات (منهم 2 ناقصين) فما وضع باقى الحالات ؟ المفترض علشان الصورة تكون واضحه هيكون اذا كان كلمة SEE REPORT موجوده هيحصل الحالات (الاحتمالات الاتيه) اذا لم تكن موجوده هيحصل الاحتمالات التالية راجعهم ووضحيها لى لان كده فى تضارب فى المطلوب

ما اسم الفورم ال عاوزه تعملي عليه التعديل (اسم فورم التحليل لانهم كثير 😅) عموما ممكن تجربي هذا السطر =iif([Forms]![visit_frm]![subFOrm].[Form]![Result]="SEE REPORT";[Forms]![visit_frm]![subFOrm].[Form]![Testname];[Forms]![visit_frm]![subFOrm].[Form]![txtsub]) هل هذا ما تريدين lab after.rar

بدلى التسميه فى النموذج وان شاء الله تشتغل او بكره ان شاء الله لاني دلوقتي والله ما شايف قدامي

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

استبدل المعادلة ال انت عاملها بالمعادلة ال انا مديهالك واجعلها هكذا CalcVac(DateDiff("d";[Date_jop];Date());DateDiff("yyyy";[DateOfBirth];Date())) زان شاء الله هتظبط معاك VACATIONS22.rar