عمر ضاحى

المشكلة فى الكود لان وظيفة هذا الكود هو ملئ الحقول المذكورة بالبيانات التى تم جلبها فى المتغير 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

ما اسم التقرير ؟

جربي هذا الحل اوقفت العمل بدالة tempvars واستخدمة الربط المباشر lab after.rar جربي واخبريني بالنتيجة

اتفضلى اتمني اكون قربت الفكره lab after.rar لاحظي انى اولا اعلنت عن المتغيرات هنا Dim xTestname, xtcode, xtxtsub As TempVars ثم قمت بتخزين البيانات هكذا TempVars!xTestname = Testname.Value TempVars!xtcode = tcode.Value TempVars!xtxtsub = txtsub.Value ثم يمكن استدعاء هذه البيانات فى اى مكان هكذا =TempVars!xTestname =TempVars!xtcode =TempVars!xtxtsub

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

تمام ربنا يوفقك لكن فى نقطه حابب انبهك لها هناك بعض التسميات خاصه بالاكسيس لا يقبلها الاكسيس لانها تتعارض مع مسمياته الخاصه مثل انك تسمي حقل باسم Date او باسم Sub هى مسميات خاصه وممكن تسبب لكي مشاكل برمجيه مستقبلا ولتعم الفائدة هذه قائمة لبعض المسميات المرفوضه (المحظور استخدامها كمسميات منفصله) (التى قد تسبب لكي مشاكل) 1. ADD 2. ALL 3. ALPHANUMERIC 4. APPLICATION 5. BEGIN 6. BY 7. BYTE 8. CANCEL 9. CASCADE 10. COLUMN 11. CURRENCY 12. DATABASE 13. DATE 14. DATETIME 15. DESCRIPTION 16. DOCUMENT 17. DROP 18. END 19. ERROR 20. EXCLUSIVE 21. EXLUSIVE 22. FLOAT 23. GROUP 24. IDENTITY 25. IMAGE 26. LONG 27. MEDIUMBLOB 28. MEDIUMINT 29. MEDIUMTEXT 30. MEMO 31. NUMBER 32. OPERATION 33. OPTION 34. PASSWORD 35. PERCENT 36. RANK 37. REAL 38. RESTRICT 39. SHORT 40. SINGLE 41. SYSCOMPACT 42. TEXT 43. TIME 44. TIMESTAMP 45. UID 46. UNIQUE 47. UNSIGNED 48. UPDATE 49. VERSION 50. YESNO

عموما اتفضلى هذا الحل lab after.rar

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