كل الانشطه

أخى Hegazee سلمت يداك و جزاكم الله خيرا على هذا العمل الجميل تقبل تحياتى

تفضل مجزر دواجن معدل.2.xlsx

الحمد للة توصلت للكود الاصلى الذى كتبة لى احد الخبراء الافاضل بالمنتدى وقمت بعرضة عليكم لمن يريد الاستفادة منة Sub DuplicateRecords() On Error Resume Next Dim DB As DAO.Database Dim RS As DAO.Recordset Dim newPCode As Long Dim TodayDate As Date Dim JO_Insert_Lab As String Dim JO_Insert_Result As String ' فتح قاعدة البيانات الحالية Set DB = CurrentDb() TodayDate = Format(Date, "mm/dd/yyyy") ' تنسيق التاريخ بالشكل الصحيح ' جلب آخر PCode من جدول Tbl_Lab_All لتجنب التكرار Set RS = DB.OpenRecordset("SELECT MAX(PCode) AS MaxPCode FROM Tbl_Lab_All") If Not RS.EOF Then newPCode = RS!MaxPCode + 1 Else newPCode = 1 ' في حالة عدم وجود سجلات End If RS.close ' استبدال المرجع بالصيغة الصحيحة Dim currentPCode As Long currentPCode = Forms!Laboratory!Lab_Request.Form!PCode ' إدراج السجل الجديد في Tbl_Lab_All JO_Insert_Lab = "INSERT INTO Tbl_Lab_All (DDate, PCode,Code_kind, Pname, Name_Month, C_Year, age,DMY, Doctor,Code_Month, Mon_Year) " & _ "SELECT #" & TodayDate & "#, " & newPCode & ", Code_kind,Pname, Name_Month, C_Year, age,DMY, Doctor,Code_Month, Mon_Year " & _ "FROM Tbl_Lab_All WHERE PCode = " & currentPCode DB.Execute JO_Insert_Lab ' إدراج السجل الجديد في Tbl_Lab_Results JO_Insert_Result = "INSERT INTO Tbl_Lab_Results (PCode, OK) " & _ "SELECT " & newPCode & ", OK " & _ "FROM Tbl_Lab_Results WHERE PCode IN (SELECT PCode FROM Tbl_Lab_All WHERE PCode = " & currentPCode & ")" DB.Execute JO_Insert_Result Me.Requery Me.FilterOn = False DoCmd.GoToRecord , , acLast Me.Esal.SetFocus Me.Esal.Locked = False ' MsgBox " تم تكرار السجل بنجاح مع تحديث كود المريض و تاريخ اليوم ", vbInformation ' Me.FilterOn = False ' DoCmd.GoToRecord , , acLast End Sub Private Sub Duplicate_Click() Select Case MsgBox(" " & " هـل . . . . . تـريـد تكـرار بيــانات الســجل " & vbNewLine & vbCrLf & _ " الخـاص بــ " & PNAME & vbNewLine & vbCrLf & vbCrLf & _ "Yes = كــرر الســجل No = لا تكــرر السجــل ", vbQuestion + vbMsgBoxRight + vbYesNo, JO_Title) Case vbYes DuplicateRecords Case vbNo DoCmd.CancelEvent End Select End Sub

أخى الكريم / hegazee فى البداية اشكرك على اهتمامك و ردك و اسئلتك التى من خلالها تود المساعدة ثانيا : سعر الجنحة يقل عن سعر البورصة 5 جنية سعر الصدور = سعر البورصة *2.4 (ثابت) سعر الشيش = يقل عن سعر الصدور ب 8 جنية ( ثابت) و مرفق لسيادتكم قائمة بحساب كل صنف على حدى ملحوظة : سعر البورصة ليس هو سعر الكيلو الحى و لكن سعر البوصة يتم من خلالة احتساب كافة اسعار اجزاء الدجاج من شيش و فيلية و جناح و غيرها صدور سعر البورصة * 2.4 شيش يقل 8 جنية عن سعر الصدور وراك سعر البورصة + 10 جنية دبوس سعر البورصة + 13 جنية كبدة سعر البورصة +10 جنية جناح يقل 5 جنية عن سعر البورصة و جزاكم الله خيرا على المساعدة

موضوع شيق، ربما المشكلة ليست في الدوال، وتخميني أنك تحتاجين عمل Requery للنموذج الفرعي و ربما للرئيسي بعد كل عملية إضافة. أنا من فترة بعيد عن الأكسس، لو ترفعين مثال ستسهل عملية التجارب والمحاولات. الموضوع ليس بالصعب إن شاء الله. هل الحقل رقمي أم نصي؟ وإذا كان نصي هل لنا أن نعرف تنسيقه؟

من رخصة الاستاذ منتصر وهذه مشاركة اخرى قد تستفيد منها اخي الكريم 444.accdb

شكرا لك @ابوخليل انت الحلا كله

استاذ @2saad اذا كان هو طلبك لا تنسى الضغط على تمت الاجابة .

هذه الجزئية مرهونة بإرفاقك الملف أخي الكريم 😉 . فالحلول كثيرة ولكنها تعتمد على بنيتك للجداول ونظامك بشكل عام ، وليس ما نفرضه عليك بمقترحاتنا 💐 .

اشكر الجميع على الاهتمام والسعي لايجاد الحل .. لكن وعكس المفهوم لا يوجد طريق يؤدي الى روما 😒 اولا :ـ الغاية من ادرج اخر رقم للوارد في حقل اخر هي لمساعدة مدخل البيانات لمعرفة اخر رقم وباعتباره استغنى عن النظام الورقي 😎 ثانيا :ـ لا مشكلة في قيمة اخر صادر لانه ببساطه ماخوذ من حقل في النموذج الرئيسي .. المشكلة هي بحد ذاتها القيمة المراد تحقيقها تقع في نموذج فرعي .. توجد حلول طويله وملتويه وتتطلب جهد واعتقد انني سوف الجأ اليها واتمنى ان اوفق .. ونوافيكم بالطريقة .. الا اذا قرر احد عباقرة المنتدى لحسم الموضوع .. شكرا جزيلا لجهودكم

شكرا يا عسل العسل ليس قليل الدسم ... العسل كله حلا

تفضل الملف بعد التعديل HB1.accdb

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

السلام عليكم ارجو من الاخوة الافاضل مساعدتي : كيف اعمل نموذج بحث بين تاريخين (من تاريخ) الى (تاريخ) HB1.accdb

ها م وعاجل ... وجب التنويه الى استبدال الاصدار السابق باصدار جديد ماهو الجديد في الاصدار 1.01 مشكلة لم انتبه اليها وقت كتابة الكود المشكلة : tblSequences بيخزن الـ Key بالبادئة بس بدون تمييز الجدول اذن فى حال وجود اكثر من جدول ولسبب ما سوف نستخدم نفس البادئة سوف يتشاركون جميعا الاستمرار بنفس التسلسل تم حل المشكلة بشكل جذرى فى ذلك الاصدار الجديد الان مستحيل ان تتم عملية مشاركة الاستمرار لتسلسل الارقام عند استخدام نفس البادئة مع اكثر من جدول

اعرض الملف توليد أرقام تلقائية مخصصة (ترقيم تلقائي احترافي) : Auto Increment توليد أرقام مستندات تلقائية مثل أرقام الفواتير والطلبات والسندات (ترقيم تلقائي احترافي) أربع أنماط للترقيم Yearly → INV-2026-000001 : التصفير واعادة الترقيم عند بدء العام الجديد Monthly → INV-2026-04-000001 : التصفير واعادة الترقيم عند بدء الشهر الجديد Daily → INV-2026-04-05-000001 : التصفير واعادة الترقيم عند بدء اليوم الجديد Sequential→ INV-000001 : ترقيم لا نهائى بدون اعادة بدء الترقيم مستمر بلا توقف المزايا : إنشاء تلقائي لجدول التسلسل : tblSequences وظيفته تخزين تسلسل الأرقام الفريد لكل مفتاح (Key) استرداد ذكي عند حذف جدول التسلسل : tblSequences عن طريق الخطأ تم تصميم الكود بحكمة ليعيد إنشاءه تلقائيا ويستأنف الترقيم من آخر رقم موجود في جدول البيانات الأصلي - أى لا انقطاع ولا تكرار أبدا التحكم الأمثل لإضافة بادئة مخصصة أى أنه يمكن عمل أكثر من عملية ترقيم لنفس الحقل حسب النوع, الفرع , المحافظة مثلا .... Cairo-2026-000018 Alex-2026-000001 التحكم فى شكل تنسيق الترقيم للأرقام بطول سلسلة مخصصة من 1 الى 10 مثل : 000001 أو 0000000001 أو حتى آمن في بيئة الشبكة المتعددة المستخدمين: عدم تكرار أي رقم حتى لو فتح عشرة مستخدمين نفس النموذج في نفس اللحظة مع عمل معالجة خاصة لمنع تعارض الطلبات المتزامنة مع حد أقصى للمحاولات لمنع التوقف التام تحت الضغط الشديد صاحب الملف عسل قليل الدسم تمت الاضافه 04/05/26 الاقسام قسم الأكسيس  

أنا آىسف أخي الكريم علي التأخير وشكرا جزيلا وبارك الله فيك وأكثر الله من أمثالك

. لم تكتب سعر الأجنحة في البورصة و كتبت السعر 55 جنيه و بس ثانيا أنت ربطت سعرالشيش بسعر الصدور و معنى ذلك أنه في حالة عدم وجود صدور في القائمة فلنيتم تحديد سعر الشيش الصدور: سعر البورصة × 2.4 هذا المضاعف (2.4) — من أين جاء؟ هل هو ثابت دائماً أم يتغير؟ شيش: سعر البورصة × 2.4 − 8 نفس السؤال على المضاعف، وهل الـ 8 جنيه ثابتة؟ وراك، دبوس، كبدة: سعر البورصة + مبلغ ثابت هذه المعادلات تبدو ناقصة — منطقياً كيف يكون سعر البيع = سعر البورصة + 10 أو 13 جنيه فقط؟ عادةً في الدواجن يكون السؤال الجوهري: هل سعر البورصة المُدخل هو سعر الكيلو الحي؟ وهل المطلوب تحويله لسعر الكيلو المجزر لكل صنف؟ لأن منطقياً: وراك وكبدة ودبوس لا يُباع بسعر البورصة + 10 جنيه فقط، بل لها نسبة تحويل خاصة بها. ممكن توضح لي كيف تحسب السعر يدوياً لأي صنف غير الصدور هل هناك مضاعف للتحويل من وزن حي إلى وزن صافي مثل الصدور.؟

؟؟؟؟؟؟

لن ابرر شئ ولن ارد على اى شئ من كلامك الغير منطقى لا احب الجدال ولا الوقع اسيرا فى شباك المجادلين ... يبدو اننا سوف نصطدم هنا بالهواة المجادلين ....... كان الله فى العون

شكراً لك ، ولكني لا أثق بالذكاء الإصطناعي ومقترحاته 😇 .

بعد تجربة أكثر من برنامج محاسبي، وقعت على برنامج الأستاذ وفعلاً غير طريقة شغلي بالكامل. لو بتدور على برنامج الاستاذ أفضل برنامج محاسبة للشركات الصغيرة أو محتاج برنامج محاسبة سحابي تقدر تشتغل منه من أي مكان، الأستاذ هو الخيار الأمثل. وما يقتصر على المحاسبة فقط، فهو أيضاً أفضل برنامج محاسبة للمخازن اللي يحتاج تتبع دقيق للمخزون والحركات، وكذلك أفضل برنامج محاسبة للمقاولات اللي تحتاج إدارة مشاريع ومتابعة تكاليف بدقة. من أبرز مميزاته: إنشاء فاتورة إلكترونية وفاتورة ضريبية في ثوانٍ مع كامل متطلبات الفوترة الإلكترونية من هيئة الزكاة والدخل، بما فيها الـ QR Code والختم التشفيري. إضافة إلى ذلك، إدارة المخازن ومتابعة المشاريع والمقاولات كلها في نظام واحد. والأهم ان برنامج الاستاذ ارخص برنامج محاسبي معتمد من هيئة الزكاة والدخل في السعودية ، مما يجعله فعلاً أفضل برنامج محاسبة في السعودية للشركات الصغيرة والمتوسطة اللي تبحث عن برنامج شامل بسعر مناسب. جربوا النسخة المجانية ولن تندموا.

السلام عليكم اخوانى الكرام احتاج عمل دالة If فى عمود السعر تعمل بناء على عمود سعر البورصة و جزاكم الله خيرا مجزر دواجن.xlsx

تمام ... فعلا هو المطلوب وبارك الله فيك