ناقل

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

جرب المرفق هذا ما توصلت اليه ........ ولكن انتبه لالية العمل اولا :::: ادخال التركيبات ثانيا :::: الانتاج والتصنيع 1- اضافة 2- دبل كليل على كود المنتج لاختيار المنتج 3- ( عند الاختيار تظهر المواد الخام التي تدخل في تركيبها ) حتى الان لا يتم الخصم من مخزن المواد الخام 4- عند الضغط على اعتماد ( يتم الان الخصم من كميات المخزن مباشرة ولا يمكن التراجع ) ‏‏‏‏‏‏‏‏‏‏‏‏‏‏تصنيع.accdb

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

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

انا كاني سامع حد بينادي .... مين بيتكلم ...... انا اسمي موجود ..... انا هنا .... وانا حاضر يا بشمهندس

هناك كود في التقرير لرسم الخطوط ..... مثل هذا

اوفيس 16 32 بت .... يعمل الملف

طبق كما في الصورة ................ ولماذا لايكون التاريخ تلقائي حسب السنة الدراسية .... دون الحاجة لارتباطها بالنموذج ؟؟؟

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

جرب كده ..... ‏‏جديد - نسخة.accdb

تفضل ........................... Dim rs As DAO.Recordset Set rs = CurrentDb.OpenRecordset("SELECT TP1.ID, TP1.[اسم الموظف], TP1.[الدرجة الوظيفية], TP1.[العنوان الوظيفي] FROM TP1;", dbOpenSnapshot) With rs .MoveLast .MoveFirst Me.text1.AddItem "اسم الموظف" & ";" & "الدرجة" & ";" & "العنوان الوظيفي" For i = 1 To .RecordCount xfld = 0 Call Allfld(rs![العنوان الوظيفي]) If xfld = 0 Then Beep Me.text1.AddItem rs![اسم الموظف] & ";" & rs![الدرجة الوظيفية] & ";" & rs![العنوان الوظيفي] Else End If .MoveNext Next i End With

هل هذا ما تريد .... Test-11.accdb

اختلاف تنسيق التاريخ .... انظر لنفس تاريخ التشغيل4

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

تم الاستيراد ........................ تم مسح المرفقات لأن بها مواد حساسة .....................

اخي الكريم جرب تشغيل الجدول المرتبط بالاكسل كما في الصورة هل يعمل معك ؟؟؟؟؟؟

استبدل عبارة sql الموجود في الاستعلام بهذا UPDATE [2024 misr pharma expenses] INNER JOIN CASH_OUT_ACCOUNT_EXPENSES_DETAILS_MPC ON [2024 misr pharma expenses].auto_number_excel = CASH_OUT_ACCOUNT_EXPENSES_DETAILS_MPC.excel_access_id SET CASH_OUT_ACCOUNT_EXPENSES_DETAILS_MPC.[cash usd out] = [2024 misr pharma expenses].[cash usd out x];

غير اسماء الملفات المصدرة مثلا Reports1 - Reports2 - Reports3 - Reports4 هنا

هل استبدلت هذا day_date باسم مربع النص الذي به التاريخ ؟؟؟؟؟؟؟؟؟؟؟؟؟

انظر التطبيق لدي .....................

ضع مرفق مبسط للتطبيق عليه

في مربع النص ( مصدر عنصر التحكم ) .... بالتوفيق ..

استخدم هذا الفانك بدون الحاجة لتغيير اعدادات الويندوز ............. Public Function dyNm(txtDate As Date) Dim tx As String Select Case Weekday(txtDate) Case 1: tx = "الأحد" Case 2: tx = "الإثنين" Case 3: tx = "الثلاثاء" Case 4: tx = "الأربعاء" Case 5: tx = "الخميس" Case 6: tx = "الجمعة" Case 7: tx = "السبت" End Select dyNm = tx End Function استدعيه بهذه الطريقة .......... =dyNm([day_date])

تفضل جرب .... New Microsoft Access Database (10).accdb

وعليكم السلام ورحمة الله هل الالوان كثيرة في التنسيق الشرطي .... لماذا لا تعملها بالاكواد ؟؟؟؟