عمر ضاحى

ما اسم الفورم ال عاوزه تعملي عليه التعديل (اسم فورم التحليل لانهم كثير 😅) عموما ممكن تجربي هذا السطر =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

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

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

البرنامج ليس اكسيس لكن القاعدة الخلفية اكسيس لذا ليس امامك غير ان لا تغير مسار البرنامج هذا اولا ثانيا بما ان البرنامج ليس اكسيس فلا يمكن لنا ان نعدل عليه

هل تريدها هكذا ؟ المرفق VACATIONS22.rar

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

معلش سؤال هي مشكلتك هذه ؟

ما عندي مشكلة لكن ادينى شوية علشان انا فى الدوام حاليا

ابدا والله تحت امرك مفيش تعب ولا حاجه هل هذا ما تريده VACATIONS.rar

طيب ممكن توضحلى انت عاوز النتيجة تظهر فين ؟ وايضا اسم التقرير

طبعا ينفع ولاني مش فاهم المفترض الرقم (النتيجة اين يتم وضعها ) فاطريت اجعلها فى رسالة لكن انت عدل على الكود ولنفترض ام الحقل الذي تريد اضافة النتيجة فيه اسمه X7 اذا انت هتضعها هكذا X7=CalcVac(D2, txtAge) txtAge هو حقل للعمر ممكن تستغني عن الحقل وتضع هذه المعادلة =DateDiff("yyyy";[DateOfBirth];Date()) الامر سهل ان شاء الله اذا تم حل مشكلتك اختر افضل اجابة 😁

اتفضلى على فرض ان اسم النموذج هو Test Sub RenameFields() Dim frm As Form Dim ctrl As Control Dim fieldCount As Integer fieldCount = 1 'السطر التالى اختياري الغرض منه لكي يعمل الكود دون مشاكل لابد ان يكون النموذج المطلوب العمل عليه فى وضع عرض التصميم DoCmd.OpenForm "TEST", acDesign Set frm = Forms("Test") For Each ctrl In frm.Controls If ctrl.ControlType = acTextBox And ctrl.Tag = "*" Then ctrl.Name = "officena" & Format(fieldCount, "00") fieldCount = fieldCount + 1 End If Next ctrl End Sub ملاحظه علشان يشتغل الكود صحيح لابد ان يكون النموذج المطلوب العمل عليه فى وضع عرض التصميم

جرب الحل هذا تم عمل مديول Function CalcVac(WorkDays As Double, EmpAge As Integer) WorkDays = WorkDays / 365 If EmpAge < 50 Then WorkDays = WorkDays * 21 Else WorkDays = WorkDays * 30 End If CalcVac = Format(WorkDays, "0.00") End Function ولحساب عمر الموظف =DateDiff("yyyy";[DateOfBirth];Date()) ولاستدعاء الدالة CalcVac(D2, txtAge) 'CalcVac("اسم حقل اجمالى ايام العمل", "اسم حقل عمر الموظف") وهذه هى النتيجة مرفق الملف VACATIONS-1.rar

طيب تمام فين النموذج ال فيه انت بتمنح الاجازة او بيحسب فيها الاجازة

جربي الملف ده lab0.rar

واضح انى ممكن اكون مش مركز وفى غلط انا واقع فيه فانا هستأذنك لغدا ان شاء الله لاني مش شايف قدامي وبصحة الساعه 4:30 الفجر ف باذن الله هعيد الكود كله من اول وجديد واعطيكى الحل النهائى ان شاء الله