jjafferr

وعليكم السلام بالاضافة الى رابط اخوب فادي، راجع الرابط التالي

اخوي ابوخليل نعم الثمار متنوعة وتعطيك نفس النتيجة ، ولكني افضّل الحل الذي استطيع التعديل عليه وبسهولة ، لذا: انا افضّل الحل في هذه المشاركة ، حيث تستطيع عمل التغيير المطلوب مستقبلا على استعلام التجميع query1 ، وتلقائيا استعلام التحديث query3 سيعمل ، وسيأخذ المستجد من query1 تلقائيا ، كونه استعلام فرعي اما اذا ادخلت جملة SQL استعلام التجميع مباشرة كاستعلام فرعي في استعلام التحديث ، واردت ان تعمل تغيير على جملة SQL استعلام التجميع ، فالخطوات كثيرة ، ومو شرط تضبط جعفر

تم اضافة رابط المشاركة الاخرى في الرابط اعلاه

مافي داعي تعمل معيارين على حقلين ، وانما اجعل الشرطين في استعلام واحد ، هكذا : UPDATE Table1 SET Table1.chek1 = 0 WHERE (((Table1.userID) In ( SELECT T2.user_ID FROM Table2 AS T2 GROUP BY T2.user_ID, T2.card_No HAVING (Sum([price1])-Sum([price2]))=0 AND Table1.userID=T2.user_ID AND Table1.cardNo=T2.Card_No)) );

اوووه وانا اعتمدت على على العموم ، هذا الاستعلام بعد اضافة pp=0 UPDATE Table1 SET Table1.chek1 = 0 WHERE (((Table1.userID) In (SELECT [user_ID] FROM Query1 as Q1 WHERE Table1.userID=Q1.user_ID AND Table1.cardNo=Q1.card_No AND Q1.pp=0))); 1623.Database2.accdb

تفضل الاستعلام UPDATE Table1 SET Table1.chek1 = 0 WHERE (((Table1.userID) In (SELECT [user_ID] FROM Query1 as Q1 WHERE Table1.userID=Q1.user_ID AND Table1.cardNo=Q1.card_No))); . وهنا وقعت في المحظور ايضا !! بياناتك كلها متشابهه ، فعلشان احصل على سجل واحد ، عملت تغيير لبيانات cardNo في الجدول Table1 وابقيت سجل واحد فيه قيمة الجدول Table2 1623.Database2.accdb.zip

لا ، هو السجل الاخير ، ثم عمل الصح في السجل الاول: واشوف انك تداركت الخطأ في النسخة الاخيرة 🙂

السلام عليكم اذا ممكن اشارك معاكم 🙂 الاستعلام الفرعي هو الجواب بدلا عن الجدول المؤقت. رجاء تجربة هذا الاستعلام: UPDATE Table1 SET Table1.chek1 = 0 WHERE (((Table1.userID) In (SELECT [user_ID] FROM Query1 as Q1 WHERE Table1.userID=Q1.user_ID AND Q1.pp=0))); . وقد قام بالتحديث (ولكن انتبه ن فقيمة p=0 موجودة فقط في السجل bb وهو غير موجود في الجدول Table1 ، لذا فلن تظهر لك اي نتيجة ، وهذا ما اشار اليه اخوي ابو جودي) ، وللتجربة ، غيّر قيمة P=0 في الاستعلام الفرعي الى p=15 وستترى النتيجة 1623.Database1.accdb.zip

1. للأسف ما توصلت الى طريقة لعمل جميع التغييرات في النموذج اسرع من تغييرها من الجدول مباشرة عن طريق استعلام. للعلم ، عند تقديمي لإقتراح ، فانا انظر لقاعدة البيانات وكأن بها على الاقل 10,000 سجل. 2. في انتظار مشاركتك

في هذا الموضوع ، اتضح جليا ان مقولتي صحيحة (للعلم ، اخونا العود @ابوخليل هو الذي صحح واخرج هذه الجملة بهذه الديباجة الجميلة ، شكرا لك 🙂 ) : ولا يهمك ، وهاي طريقة بحدث واحد فقط Private Sub y_n_BeforeUpdate(Cancel As Integer) '- اشارة الى سجلات النموذج With Me.RecordsetClone '- حذف الصح السابق .FindFirst "[y_n]=-1" .Edit !y_n = 0 .Update End With End Sub . ولا يزال قيد التجربة 🙂

احسنت اخوي ابو عارف بس ياريت تحل الخطأ: اختار صح في آخر سجل ، ثم روح لأول سجل واعمل صح ، بتحصل على خطأ. يحتاج لها مزاج 🙂

اهلا بالشايب الخبير 🙂 ولحل هذ النقطة ، هذا الكود على حدث تحميل النموذج سيحل المشكلة (نحن قمنا باختيار سجل واحد سابقا ، فالبحث يتم لسجل واحد فقط) Private Sub Form_Load() '- Find the Checked y_n field Me.y_n.SetFocus DoCmd.FindRecord "-1", , , , , , True Me.myID = Me.id End Sub . اما النقطة الثانية ، فالمفروض ان يتم تغيير البيانات من النموذج فقط ، وإلا ، فيجب تحدبث الجدول (سيكون اسرع من تحديث آلاف السجلات في النموذج)

السلام عليكم اجابات الشباب كانت تغير القيم في الجدول ، بينما احاول جاهدا التقليل من زيارات الجدول ، بسبب الشبكة والتقليل من الضغط على الجداول ، فيكون عملي على النموذج فقط 🙂 طريقة العمل: في النموذج اعمل حقل مخفي اسمه myID ، ثم نعمل حدثين على الحقل y_n : قبل التحديث: يتأكد انك اخترت صح ، وانك على سجل غير السجل السابق ، فعليه ، يغير قيمة الصح من السجل السابق (ID السجل موجود في myID) ، الى 0 بعد التحديث: نعطي رقم ID السجل للحقل myID Private Sub y_n_BeforeUpdate(Cancel As Integer) If Me.y_n = -1 And Me.id <> Me.myID Then '- y_n checked, and Record ID <> myID With Me.RecordsetClone .FindFirst "[ID]=" & Me.myID .Edit !y_n = 0 .Update End With End If End Sub Private Sub y_n_AfterUpdate() Me.myID = Me.id End Sub . 1622.aa.accdb.zip

السلام عليكم ابو احمد افتقدناك في منتدى الاكسس ، وفاز بك منتدى الاكسل. طرح جديد ومميز ، كالعادة ، شكرا على المشاركة. جعفر

وعليكم السلام 🙂 تم مناقشة الموضوع في الرابط التالي ، ولا يوجد جديد من يوم الموضوع الى اليوم 🙂 وهذا هو الملخص: يمكن الحصول عليها ، وهناك العديد من البرامج اللي تعمل هذا الشيء ، لكن هذه برامج عامة تستخدم الطرق التقليدية في محاولات مقارنة كلمة السر ، والطرق الشهيرة هي: Dictionary Attack Brute-Force Attack Xieve Attack Known Password/Part Attack Previous Passwords Attack وكل نوع من هذه البرامج يشتغل بطريقة تختلف عن الأخرى ، ولكنها جميعا تحاول بزيادة/تغيير حرف/رقم/إشارة على الرقم/الكلمة اللي تم تجربتها ، وانا اعتقد بأن جميع الشباب اللي شاركوا في هذا الموضوع وحاولوا استخراج كلمة السر ، استخدموا احد البرامج التي تستعمل الطرق اعلاه ، والدليل ان طريقة أخونا شفان اخذت اكثر من 21 ساعة من المحاولات ، وكذلك في اعتقادي بأنهم لم يتمكنوا من معرفة كلمة السر ، لأن أخونا سلمان كان مستخدم حروف عربية في كلمة السر ، بينما معظم برامج مقارنة كلمة السر لا تحتوي على حروف عربية او ان كلمة السر كانت اطول من 14 رقم وحرف: والسبب اني اكرر تسميتهم "برامج مقارنة" كلمة السر ، وذلك لأنها لا تستخرج كلمة السر مشفرة او بدون تشفير ، وإنما هي تحاول معرفة كلمة السر جعفر . . وهذه الطريقة الاكثر امانا لحفظ كلمة السر : . جعفر

وعليكم السلام بما ان الاكسل عبارة عن اسطر واعمدة ، و بعض كائنات تقرير الاكسس لا يرتبط بعمود و سطر ، لهذا السبب لن يظهر تقرير الاكسس بنفس تنسيقه في الاكسل !! الافضل تصدير استعلام الاكسس الى اكسل. ولكن ، لتصدير تقرير الاكسس الى اكسل ، استعمل الكود التالي: docmd.OutputTo acOutputReport,"Report1",acformatxls,"D:\myFile.xls",false

مع ان الموضوع مو واضح 100% بالنسبة الى نسخ الاكسس المتأثرة ، ولكن الظاهر ان النسخ القديمة لن تتأثر ، وانما هو الحال للنسخة 2024 وما بعدها ، ولكني سأخذ الحيطة من الان ، لأن المستخدم بعد سنة او سنتين سيكون قد انتقل الى النسخة 2024 او ما بعدها.

السلام عليكم 🙂 اهلا وسهلا بك بيننا مرة اخرى 🙂 اليك هذا التحذير من مايكروسوفت: . منذ 2017 وانا استخدم هذا الخط في برامجي وبدون مشاكل: . الى ان تصل الى هذا السطر: . وطريقة التنصيب موجودة في نهاية المقالة 🙂

السلام عليكم 🙂 تلقائياً ، مايكروسوفت ستوقف عمل كائنات ActiveX في جميع برامج الاوفيس ، ابتدأ من الاوفيس 2024 اصدار شهر 10 ، وكذلك في برنامج MS365 ابتدأ من 4/2025 : https://petri.com/microsoft-changelog/m365-changelog-updated-activex-will-be-disabled-by-default-in-microsoft-office-2024-sep-6-2024/ نعم يستطيع المستخدم ان يعيد عمل كائن ActiveX عن طريق مجلد الامان او الريجستري. هذا سيشمل: . انا كمبرمج مسؤول عن برنامجي عند المستخدم ، فلذلك ، يالله بسرعة عدلوا على برامجكم قبل ان تتوقف عن العمل فجأة جعفر

كفيت ووفيت 🙂

وعليكم السلام 🙂 بإختصار ، الاكسس يعمل كل عمله على حاسبة المستخدم. الاستعلام يستورد البيانات المطلوبة من الجداول (سواء جداول محليه او على الشبكة او في السحاب) ، ويقوم بتحليلها محليا. لهذا السبب ، وحسب تصميم برنامجك (فهرست الحقول في الجداول ، وهي الحقول التي نستخدمها في الفرز او التصفية او ربطها بجدول آخر) ، 1. ممكن الاستعلام يستورد سجلات قليلة وبسرعة لحقل مفهرس (فالحقول المفهرسة لها مكان يشبه الجداول ، والتي ينظر فيها الاستعلام اولا) ، لأنه يعرف مكان هذه السجلات بحسب الحقل المفهرس ، 2. او اذا لم يكن هناك حقل مفرس ، يضطر الى استيراد الجدول كاملا لقراءته محليا ، ويعطيك نتائج الاستعلام ، وهذه الطريقة تأخذ وقت اطول. قواعد البيانات الاخرى مثل SQL Server ، والتي يجب ان تكون على سيرفر به مواصفات عالية ، تقوم بعمل كل شيء على السيرفر وتعطي النتيجة جاهزة لواجهة البرنامج والذي عادة يكون المتصفح (الواجهة) . اما اذا استعملت الاكسس كواجهة ، مع SQL Server كخلفية ، فيمكنك عمل الاثنين ، استعلامات في الواجهة (والتي ستكون بطيئة ، لأنها تستورد البيانات من السيرفر ، إلا اذا كان الاستعلام لبيانات قليلة او مفهرسة) ، او يمكنك عمل استعلامات في SQL Server (والتي تسمى Views او Stored Procedure) . كنت اعتقد كلامي كان بإختصار 😁 جعفر

في الواقع ما تعمقت كثيرا في مثالي ، وشكرا على الملاحظة 🙂 ومثل ما قلت ، دائما نتطلع لأفكار جديدة 🙂

المعذرة اخوي @Ahmos ، الظاهر سياق كلماتي اعطت مفهوم غير مقصود ، فانا اعتذر منك. ما كان كلامي عن الفكرة ، وانما عن طول وطريقة اكواد AI . وبالعكس ، ومثل ما تفضلت ، عمل موضوع خاص لفكرة ولو تم التعامل معاها بطريقة ثانية ، هي في اصلها فكرة ممتازة ، وهكذا بدأت انا في ردي السابق. واتطلع لمزيد من الافكار اللي تساعد المبرمج. جعفر

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

@hanan_ms متابع 🙂