Foksh

أهلاً مهندسنا الغالي .. بدايةً صدقاً ليس تعدياً ولكن كانت فكرتي ان يتم انشاء استعلام مبني على استعلام فرعي بحيث عند الفلترة على سبيل المثال في المرفق الذي وضعه أخونا غسان - ( مع إنه فارغ ولا بيانات ) وجزاك الله خيراً على طرحك للبيانات - يتم الترقيم حسب القيم الموجودة في الاستعلام النهائي . لذا في مديول بسيط نضع الكود التالي :- Dim Counter As Long Function GetSequentialNumber() As Long Counter = Counter + 1 GetSequentialNumber = Counter End Function وقمت بانشاء نموذج بسيط يحتوي مربع نص كمثال على الفلترة بالتاريخ في الحقل "تاريخ المباشرة" وزر لتنفيذ الأمر بأن يتم انشاء استعلام ( داخلي ) واستعلام مبني على الاستعلام الداخلي لعد السجلات وإدراج الترقيم التسلسلي في حقل جديد . في الزر ، وضعت هذا الكود ليقوم بالمهمة :- Dim db As DAO.Database Dim qdf As DAO.QueryDef Dim sql As String Dim userCriteria As String Dim whereClause As String If Not IsNull(Me.Txt_Date) And Trim(Me.Txt_Date) <> "" Then userCriteria = Trim(Me.Txt_Date) whereClause = "WHERE M.[تاريخ المباشرة] = '" & Format(dateValue(userCriteria), "dd-mm-yyyy") & "'" Else whereClause = "" End If sql = "SELECT (SELECT COUNT(*) FROM Table1 AS T " & _ "WHERE T.ID IN (SELECT ID FROM Table1 AS M " & _ whereClause & " ) AND T.ID <= M.ID) AS [رقم تسلسلي], " & _ "M.ID, M.[اسم الموظف], M.[اسم الدائرة], " & _ "M.[تاريخ المباشرة], M.[العنوان الوظيفي], " & _ "M.[الدرجة الوظيفية] " & _ "FROM Table1 AS M " & _ whereClause & ";" Set db = CurrentDb On Error Resume Next db.QueryDefs.Delete "Foksh" On Error GoTo 0 Set qdf = db.CreateQueryDef("Foksh") qdf.sql = sql qdf.Close DoCmd.OpenQuery "Foksh" حيث يتم انشاء استعلام داخلي ( مع أو بدون المعيار ) ، ثم يتم انشاء استعلام جديد Foksh ويتم فتحه ليتم ترقيم السجلات بتسلسل حسب عددها وليس حسب رقمها في الجدول . الملف المرفق : Ghassan - 1.accdb

المرفق في مشاركة المعلم @ابوخليل يعمل على إصدارين 2019 / 2010 وهنا النسخة محفوظة على 2010 مرة أخرى بدون ضغط 5تعديل بالنشاط.accdb

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

على حسب ما أعرف فإنه عند تحويل الملف الى Accde فإنه يأخذ تشفير إصدار نسخة آكسيس التي قامت بحفظ الملف بهذه الصيغة . وعليه فإنه ليس من السهل ان يقوم إصدار 64 بت بتحويل الملف الى Accde لإصدار 32 بت . أرجو تصحيح معلومتي إن كانت غير صائبة أو أنني قد سلكت اتجاه آخر في فهمي للحديث ورزقنا وإيكم الصحة والتوفيق والثبات على الدين

وعليكم السلام ورحمة الله وبركاته ,, وهذه مشاركة مع ومعلمي الحبيب @ابوخليل أيضاً . إذا أردت الحصول على ترقيم تسلسلي منتظم بغض النظر عن الفلاتر أو عوامل التصفية داخل الاستعلام سيتوجب عليك استخدام اسلوب الاستعلام المتداخل أو الفرعي ( استعلام داخل استعلام ) وهنا الحاجة لإرسالك ملف . هذا من وجهة نظري والله أعلم

هذه نسخة 32 بت بدون مديول إخفاء آكسيس . اعتذر منك أستاذي الجليل @ابوخليل

كمحاولة لما فهمته ,, انشئ استعلام جديد دون تحديد جداول ، وفي SQL ألصق الكود التالي :- SELECT [المتغيرات الشهرية].[رقم العامل], [المتغيرات الشهرية].[عدد الايام الفعلية], [المتغيرات الشهرية ساب].[عدد الايام الفعلية] AS عدد_الأيام_الفعلية_ساب, [المتغيرات الشهرية].الاضافي, [المتغيرات الشهرية ساب].الاضافي AS الاضافي_ساب, [المتغيرات الشهرية].[أيام الراحات للمهندس], [المتغيرات الشهرية ساب].[أيام الراحات للمهندس] AS أيام_الراحات_للمهندس_ساب, [المتغيرات الشهرية].[راحات الورادي المستح], [المتغيرات الشهرية ساب].[راحات الورادي المستح] AS راحات_الورادي_المستح_ساب, [المتغيرات الشهرية].[وردية 12 ساعه], [المتغيرات الشهرية ساب].[وردية 12 ساعه] AS وردية_12_ساعة_ساب, [المتغيرات الشهرية].[وردية 12 ساعة متعاقب], [المتغيرات الشهرية ساب].[وردية 12 ساعة متعاقب] AS وردية_12_ساعة_متعاقب_ساب, [المتغيرات الشهرية].الوجبات, [المتغيرات الشهرية ساب].الوجبات AS الوجبات_ساب, [المتغيرات الشهرية].[اجازات سنوية مدفوعة], [المتغيرات الشهرية ساب].[اجازات سنوية مدفوعة] AS اجازات_سنوية_مدفوعة_ساب, [المتغيرات الشهرية].[عدد ايام الغياب], [المتغيرات الشهرية ساب].[عدد ايام الغياب] AS عدد_أيام_الغياب_ساب FROM [المتغيرات الشهرية] INNER JOIN [المتغيرات الشهرية ساب] ON [المتغيرات الشهرية].[رقم العامل] = [المتغيرات الشهرية ساب].[رقم العامل] WHERE ((([المتغيرات الشهرية].[عدد الايام الفعلية])<>[المتغيرات الشهرية ساب].[عدد الايام الفعلية])) OR ((([المتغيرات الشهرية].الاضافي)<>[المتغيرات الشهرية ساب].[الاضافي])) OR ((([المتغيرات الشهرية].[أيام الراحات للمهندس])<>[المتغيرات الشهرية ساب].[أيام الراحات للمهندس])) OR ((([المتغيرات الشهرية].[راحات الورادي المستح])<>[المتغيرات الشهرية ساب].[راحات الورادي المستح])) OR ((([المتغيرات الشهرية].[وردية 12 ساعه])<>[المتغيرات الشهرية ساب].[وردية 12 ساعه])) OR ((([المتغيرات الشهرية].[وردية 12 ساعة متعاقب])<>[المتغيرات الشهرية ساب].[وردية 12 ساعة متعاقب])) OR ((([المتغيرات الشهرية].الوجبات)<>[المتغيرات الشهرية ساب].[الوجبات])) OR ((([المتغيرات الشهرية].[اجازات سنوية مدفوعة])<>[المتغيرات الشهرية ساب].[اجازات سنوية مدفوعة])) OR ((([المتغيرات الشهرية].[عدد ايام الغياب])<>[المتغيرات الشهرية ساب].[عدد ايام الغياب]));

لدي نسختين آكسيس في جهازي ، نسخة 2010 إصدار 32X و نسخة 2019 إصدار 64X ، وقمت بحفظ النسخة 32X من الأوفيس 32 . وكذلك الأمر في نسخة الـ 64X تم حفظها من نسخة الأوفيس 64 . لا أعلم ما المشكلة أو أين تكون ، ولكن على العموم أتمنى من أحد الإخوة من يملك إصدار 32 أن يفوم بالتجربة وإفادتي بالنتيجة . لأ لسه ، النسخة دي بس 4 مراحل يا معلم وصلت في تجهيز المراحل لغاية 14 .. ولسه الطريق قدامي محتاج شوية وقت

قمت بنسخ الصور من المشاركة السابقة ، وغفلت عن تجديد الرابط .. اعتذر منك تم تعديل الرابط 32x

تم تعديل الملف للنسخة 32 ، بناءً على ملاحظة معلمنا الفاضل @ابوخليل

ما شاء الله أستاذ @عمر ضاحى ،، سابق بأفكاره .. اسمح لي بمشاركة فكرتي البسيطة معك .. بالنسبة لي اعلنت عن 3 متغيرات في النموذج ( للرقم والإسم والوظيفة ) Dim sortAscending As Boolean Dim sortByNameAscending As Boolean Dim sortByJobTitleAscending As Boolean وفي حدث عند النقر لكل مربع نص اعتمدت على مصدر سجلات النموذج من الجدول كما يلي :- Private Sub الأسم_Click() If sortByNameAscending Then Me.RecordSource = "SELECT tbl_Teacher.Nr, tbl_Teacher.Name_T, tbl_Teacher.School_Work, tbl_Teacher.OnlyYou FROM tbl_Teacher ORDER BY tbl_Teacher.Name_T DESC;" sortByNameAscending = False Else Me.RecordSource = "SELECT tbl_Teacher.Nr, tbl_Teacher.Name_T, tbl_Teacher.School_Work, tbl_Teacher.OnlyYou FROM tbl_Teacher ORDER BY tbl_Teacher.Name_T ASC;" sortByNameAscending = True End If Me.Requery End Sub Private Sub الوظيفة_Click() If sortByJobTitleAscending Then Me.RecordSource = "SELECT tbl_Teacher.Nr, tbl_Teacher.Name_T, tbl_Teacher.School_Work, tbl_Teacher.OnlyYou FROM tbl_Teacher ORDER BY tbl_Teacher.School_Work DESC;" sortByJobTitleAscending = False Else Me.RecordSource = "SELECT tbl_Teacher.Nr, tbl_Teacher.Name_T, tbl_Teacher.School_Work, tbl_Teacher.OnlyYou FROM tbl_Teacher ORDER BY tbl_Teacher.School_Work ASC;" sortByJobTitleAscending = True End If Me.Requery End Sub Private Sub رقم_Click() If sortAscending Then Me.RecordSource = "SELECT tbl_Teacher.Nr, tbl_Teacher.Name_T, tbl_Teacher.School_Work, tbl_Teacher.OnlyYou FROM tbl_Teacher ORDER BY tbl_Teacher.Nr DESC;" sortAscending = False Else Me.RecordSource = "SELECT tbl_Teacher.Nr, tbl_Teacher.Name_T, tbl_Teacher.School_Work, tbl_Teacher.OnlyYou FROM tbl_Teacher ORDER BY tbl_Teacher.Nr ASC;" sortAscending = True End If Me.Requery End Sub db1.mdb

تفضل ، هل المطلوب كهذه النتيجة في الصورة ؟؟ مقارنة بيانات.accdb

أخي الكريم @alloui79 ، أهلا وسهلا بك معنا في منتدانا .. ونتمنى أن تجد ما تبحث عنه من معلومة وفائدة . بدايةً نرجوا منك أن تشاركنا في تطبيق قواعد المنتدى بأن :- يكون المطلوب له شرح كافي و وافي و واضح . يتم ارفاق ملف بسيط يساعد في حصولك على حل ، وذلك لتلافي الإجابات التي قد تكون من خيال المساهم في رده غير تلك التي تريدها انت . حاول وتجنب استخدام المسميات باللغة العربية للحقول والعناصر والنماذج والجداول ، والرموز الغريبة والأرقام فقط ، أيضاً المسافات ، والأسماء المحجوزة لآكسيس مثل ( Name , Date , To , Form ) ... إلخ في مشروعك . بانتظارك لإرفاق ملف ليتم ايجاد حل لمشكلتك

هذه الجملة نفت الموضوع وأعطت له جواب قطعي

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

النموذج يفتح بهذا الشكل

وضح هذه النقطة اذا سمحت ..

أختنا الكريمة صفاء ، أول حاجة محدش هنا ضدك أو ضد أي حد صدقيني ,, والأهم في الموضوع انك لاحظتي اختلاف وقلة الردود في مواضيعك بسبب اسلوبك اللي يخلي أي واحد بحاول يساعد ما يكررهاش تاني لأنه بيتوه في اللي انتي عايزاه . وفكرة انك قايلالي فدي بحد ذاتها مش صحيحة لأني في رسائل الخاص ما بينك وبيني انا لمحت لك وقلت لك بالإقتباس الجملة دي :- مش محتاج أزبط نفسي قدام أي حد من كلامي ده ، ولكن انتي عندك اسلوب تخلي اللي حواليكي ينفر من انه حتى يقرأ مشاركتك . والكلام ممكن مش بس يكون موجه ليكي تحديداً صدقيني . في ناس عددها قليل هنا عندها اسلوب تخليك تتجنب تشارك في مواضيعها . انا بعتذر من نفسي على الكلام ده لكن ، شكراً ليكي على انك فكرتيني باللي انتي قلتيه ( قصدي اللي انا قلته )

بسم الله ما شاء الله ,, اللي عجبني في الفكرة انه ورقة اكسيل في اكسيس زي ما هي في الملف . أبداع ما بعده ابداع معلمنا الفاضل وأستاذنا الكبير قبل القهوة والتحلاية يبغالها منسف علشان تعرف تركز أستاذ موسى

من وجهة نظري ، يتم عادةً وضع الجداول فقط في الـ Back End ، بينما يتم الاحتفاظ بجميع الاستعلامات والنماذج والتقارير ووحدات الماكرو ، ووحدات VBA في الـ Front End ، وذلك للسبب التالي :- 1. سهولة الصيانة والتحديث : عندما تكون الاستعلامات في الـ Front End ، يمكن إجراء التحديثات أو التعديلات بدون التأثير على البيانات الفعلية في الـ Back End . وعادة يتم توزيع نسخة من الـ Front End على كل مستخدم ، وهذا يسهل إجراء التحديثات لكل مستخدم على حدة دون التأثير على قاعدة البيانات الرئيسية . 2. فيما يتعلق بالمقارنة مع أنظمة أخرى مثل SQL Server : في أنظمة قواعد البيانات الأكبر مثل SQL Server و MySQL و Oracle ، يتم عادةً الاحتفاظ بجميع البيانات وأغلب العمليات على مستوى قاعدة البيانات (مثل الاستعلامات ، والإجراءات المخزنة "Stored Procedures"، والتريجرات) في الـ Back End . ومن ثم تتصل التطبيقات الأمامية (مثل التطبيقات المكتوبة بلغة C# أو واجهات المستخدم الأخرى) بقاعدة البيانات للقيام بعمليات الإدخال والإخراج من خلال هذه الاستعلامات أو الإجراءات . وطبعاً هذا الموضوع مختلف عن آكسيس . هذا اللي اعرفه يا صديقي

بداية ، من خلال الجداول اللي ارفقتها في الملف ، قم بإنشاء استعلام جديد والصق كود الـ SQL فيه ، وراقب النتيجة ان كانت صحيحة أم لا . ولا حاجة لأرفاقي الملف في هذه المشاركة SELECT [ادخال الكتب].bookID AS [رقم الكتاب], [ادخال الكتب].Store AS [العدد الموجود في المستودع], Nz(Sum([المبيعات].salquantity),0) AS [إجمالي المبيعات], [ادخال الكتب].Store-Nz(Sum([المبيعات].salquantity),0) AS [عدد الكتب المتبقية], [ادخال الكتب].bookID, [ادخال الكتب].bonName FROM [ادخال الكتب] LEFT JOIN المبيعات ON [ادخال الكتب].bookID = المبيعات.bookID GROUP BY [ادخال الكتب].Store, [ادخال الكتب].bookID, [ادخال الكتب].bonName, [ادخال الكتب].bookID ORDER BY [ادخال الكتب].bookID;

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

للأسف يا مهندسنا الغالي ، هي عندها برنامج وعلى ما يبدو إنه غير مجاني أو أنها لا تملك صلاحيات كاملة فيه أو أي سبب آخر ؛ وعايزة تعمل برنامج يشبهه بالضبط . والدليل في عبارتها في نفس المنتدى الذي أشرت إليه .. لا تعليق

وعليكم السلام ورحمة الله وبركاته ،، بسم الله ما شاء الله 😅 انا من الموبايل بتابع و وصلت 8 طلبات في موضوع واحد. وعلى ما يبدو انت محتاج برنامج كامل . أنصحك بالتسلسل طلب طلب وفي موضوع مستقل لكل طلب حتى تحصل على طلبك 😇 .

من باب التأكد ، هل ما تقوم به هو نسخ الكود من ملف الخل الذي شاركك به الأستاذ @عمر ضاحى لملفك ومشروعك الأصلي ؟؟ اذا كان نعم فتأكد من المكتبات التي في الملف المرفق وبين مشروعك ❗