ابو جودي

شوف يا سيدى الفاضل السطر الاول ايقاف رسائل الاستعلام DoCmd.SetWarnings (False) كود فتح الاستعلام DoCmd.OpenQuery "اسم الاستعلام" إعادة الوضع الطبيعى مرة أخرى بتشغيل رسائل الاستعلام DoCmd.SetWarnings (True) بعدم وجود السطر الاخير لن تظهر رسائل الاستعلام مرة اخرى لهذه القاعدة الا بعد الاغلاق والفتح مرة اخرى

تدعى علينا لماذا يا اخى لا اله الا الله الم نقدم المساعدة بقدر المستطاع

DoCmd.SetWarnings (False) DoCmd.OpenQuery"U1" DoCmd.SetWarnings (True)

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

وانا ايضا لا ادرى استاذى الحبيب @عبد اللطيف سلوم الموضوع محتاج لقيل من الشرح بالتفصيل اولا متى تريد فتح النموذج الاخر -- المبلغ -- كما اخبرك استاذى الجليل ومعلمى القدير المبجل الاستاذ @AlwaZeeR هكذا يتم النقل بس لا ادري اين اضع الامر وبعد ان تنقل القيمة الا هناك ماذا بعد الشرط الذى يخص الاسم بالنموذج الاساسى فما هو الرابط الذى يربط بين قيم النموذجين ام انك مستقبلا تريد نقل الاسم والتكلفة ؟ ولاحظ انك سألت سؤالين فى موضوع واحد رجاء لتغليب المصلحة العامة على المصلحة الشخصية نحافظ على قواعد المشاركات سؤال واحد فقط وافتح للسؤال الثانى موضوع مستقل والا لن تجد الا القفل المتين على الموضوع ونجد على العنوان مغلق

عاوز التعديل على المرفق ده واللا على المرفق الرئيسى الاخر اللى منت تريد اظهار الامتداد به داهل الاستعلام وانتبه هنا نتعامل مع نموذج مفرد رئيسي اما هناك مع نموذج فرعى

طبعا تجد داخل الموديول ايضا اسطر لتحويل الارقام من انجليزية الى عربية ArbNmbr(myData) انظر الان مرة اخرى الى الاستعلام Query1 data(2).accdb

اخى الحبيب ان شاء الله الموضوع بسيط جدا بدايةً الكود يبدأ من الموديل '-------------------------- ' لتحويل الأرقام الى الإنجليزية Public Function RstNmbr(myData As String) 'As Integer myData = Replace(myData, ChrW(1632), ChrW(48)) myData = Replace(myData, ChrW(1633), ChrW(49)) myData = Replace(myData, ChrW(1634), ChrW(50)) myData = Replace(myData, ChrW(1635), ChrW(51)) myData = Replace(myData, ChrW(1636), ChrW(52)) myData = Replace(myData, ChrW(1637), ChrW(53)) myData = Replace(myData, ChrW(1638), ChrW(54)) myData = Replace(myData, ChrW(1639), ChrW(55)) myData = Replace(myData, ChrW(1640), ChrW(56)) myData = Replace(myData, ChrW(1641), ChrW(57)) RstNmbr = myData End Function '-------------------------- RstNmbr اسم المتغير العام الرئيسى الذى سنستدعيه لاحقا فى باقى القاعدة حسب وجهة النظر myData والموجود بين الاقواس هو المتغير الفرعى الذى يعتمد عليه المتغير الرئيسي وهو الذى سوف يساوى البيانات التى نريد معالجتها والتى هنا تمثل الارقام العربية وهذا الجزء من الكود هو دالة الاستبدال Replace(myData, ChrW(1632), ChrW(48) ولان الارقام تتكون من 0 الى 9 تم كتابة السطر هذا عشر مرات لكل رقم وهنا نخبره فى السطر الاول اذا وجدت ChrW(1632) اى الرقم صفر بالعربية قم باستبداله الى صفر بالانجليزية والذى يساوى ChrW(48) ومدلول هذه الداله ChrW() تستخدم لارجاع الارقام التى ستكتب داخل القوسين الى الترميز العالمى unicode لذلك ما يتم كتابته من خلال هذا الترميز لا علاقة له لا بالخطوط داخل الويندوز ولا بلغة الحاسب الالى حتى وستجد هذا السطر داخل القاعدة فى رأس الموديول https://www.ssec.wisc.edu/~tomw/java/unicode.html وهو الموقع الذى يحتوى على كل الرموز والحروف القى عليه نظرة وبهذا شرحنا الكود تفصيلا المستخدم فى الموديول باقى الان كيف نتعامل معه فى باقى كائنات القاعدة انظر الى الاستعلام Query1 فى وضع التصميم لان الحقل الذى بيه الارقام بالعربيه اسمه cod يتم استدعاء الكود كالاتى RstNmbr([cod]) طيب بما انك تريد تحويل الارقام داخل الجدول انظر الى استعلام التحديث باسم qryRstNmbr هنا فقط طلبت منه تحويل القيم فى الحقل cod الى القيم بعد تمريرها للكود بالموديل بس خلاص

اتفضل data(1).accdb

طيب خلينى اسأل سؤال على طريقتى انا الاكسس بمجرد فتح النموذج يقوم بعمل فحص لــ RECORD-LEVEL LOCKING تمام وبناء عليه يتم تغيير الايقونة الا الان كل شئ تمام ما هو الامر الذى يظهر فى هذا الوقت حالة RECORD-LEVEL LOCKING

امممممممممم وكيف يتم التعامل مع هذا الكود متى نقوم بعمل CALL له وكيف

وبما انك اكتشفت هذه النقطة والتى نسيت ذكرها هذا التعديل عند النقر المذدوج على اى حقل فى السجل يتم نسخ قيمة هذا السجل فى سجل جديد وبما اننى هنا بصدد عرض مجرد فكرة لم اتخذ التدابير اللازمة التى قد تختلف من فكر المصمم من شخص الى اخر يعنى ان ارد احد الاخوة فى هذه الجزئية التى تخص النقر المذدوج انها ممكن بالخطأ تنسخ قيم كل حقول السجل الى سجل جديد ممكن عمل رسالة تنبيه عند النقر المذدوج انت بصدد اضافة سجل جديد من واقع بياانات هذا السجل وبالموافقة على الرسالة يتم النسخ والا يتم التجاهل و احباط العملية Duplicate Last Record (2).mdb

بس للتوضيح انا بالكود او بالاستعلام فى طال الحالتين نعتمد على الاستعلام ولكن بغض النظر عن كونط تريد نسخ بيانات من عدد 11207 سجل وفى كل سجل 8 حقول تقريبا انت تمرر بيانات جدول الحركات والذى يساوى عدد 14267 سجل الى استعلام اعمار1 والذى يقوم بعمل SUM لبعض الحقول يمكن ان نتغاضى عما سبق ولكن لاحظ الاتى الدائن: Nz([مجموع المرتجعات],0)+Nz([مجموع الخصم],0)+Nz([مجموع الدفعات],0 يجب ان تتم هذه العملية الحسابية اولا قبل نسخ قيمة الحقل وكذلك x1: Nz(DSum("المدين","اعمار2","[اسم العميل]='" & [اسم العميل] & "' وكذلك x2: Nz(DSum("الدائن","اعمار2","[اسم العميل]='" & [اسم العميل] & "'"),0) وايضا الباقى: IIf([x1]-[x2]<=0,0,IIf([x1]-[x2]>=[المدين],[المدين],[x1]-[x2])) واخيرا ايام التاخير: DateDiff("d",[التاريخ],Date()) ياله من كم هائل من المعادلات الحسابية المعقدة والتى تتم لكل حقل على حده سم اضف ما قد تغاضينا عنه سالفا الموضوع ليس بتقصير من الاكسس فى الاستعلامات بينما هو كم التعقيدات وكم عدد السجلات التى لابد من معالجتها انظر لترى ما يحدث فى المرفق التالى قمت بعمل كود يقوم بعمل لوب داخل الاستعلام لنسخ قيمة كل حقل منفرده الى الحقل الذى يقابلها فى الجدول وحاولت اظهار ما يتم معالجته اصناء العمل على النموذج انظر InsertTest.accdb

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

هل هذا يعمل معك سيدى ستخبرنى لاحقا واعرف بظهور رسالة تفيد انك لا تملك صلاحيات تشغيل هذا الملف ولن يفتح اصلا users lvl group By Access.zip والاستاذ @عبد اللطيف سلوم لو تكرمت فضلا وكرما اخبرنى انت ايضا بعد تجربتك ومحاولة فتح الملف بنفس الرسالة هذه المرة انت كذلك

يا اخى انا كتبت لك الكود صح وانت ادرى ببرنامج انت عامل اصلا حدث عند النقر على المنصرف عامة اتفضل للتعديل.accdb

طيب من فضلكم ممكن تجربة القاعدة الاتية test.rar استاذ @عبد اللطيف سلوم انتظر ردك بعد التجربة

من فضلك حسب بياناتك لو ذهبت الى هذا المسار C:\Program Files (x86)\Microsoft Office\root\Office16 على جهاز الكمبويتر تبعك لوجدت ملفات الاوفيس هنا ومن ضمنها الملف MSACCESS.EXE وهذا ما يهمنى ممكن تتأكد وتبلغنى النتيجة من فضلك

طيب تمام لو انه قام بانشاءه لابد من وضعه فى مسار محدد ويتم استدعاءه من خلال الدهول الى محرر الاكودا فى الجزء Immediate ووضع الكود DoCmd.RunCommand acCmdWorkgroupAdministrator ليقوم بعمل استعراض الملفات للذهاب اليه للارتباط بالقاعدة والا لن تفتح القاعدة اصلا ----------------------- ومؤخرا فى عملى اصبحت استخدم الربط هذا من خلال الشوركت حتى لا اضطر الى الدخول لمحرر الاكواد بعمل شورت كت للقاعدة ووضع هذا السطر فى الــ Target "C:\Program Files (x86)\Microsoft Office\root\Office16\MSACCESS.EXE" "D:\xxx\zz.mdb" /WRKGRP "C:\Secur\Secured.mdw" ولكن هنا لابد من معرفة اصدار نواة كل من الويندوز و الاوفيس ومكان االاوفيس على الجهاز بعد اعداده "C:\Program Files (x86)\Microsoft Office\root\Office16\MSACCESS.EXE" "C:\Program Files\Microsoft Office\Office14\MSACCESS.EXE" ---- الجزء الثانى مكان قاعدة البيانات واسمها D:\xxx\zz.mdb الجزء الثالث مسار ملف السيكيورتى جروب "C:\Secur\Secured.mdw" لو اختلف اى معامل من الثلاث لن تفتح القاعدة اصلا عند العميل تحت امرك جارى عمل مثال حالا من اجل عينيك يا استاذى الكريم و اخى الحبيب تدلل بس بالاول ليعمل عندك كم نواة الوندوز والاوفيس لديك 64 او 32 كل على حده وما هو اصدار الاوفيس ؟؟ انا مثلا عندى لا يعنينى اصدار الويندوز فقط نواته اما الاوفيس لابد لى من معرفة اصدار الاوقيس ونواة الاوفيس انا مثلا ويندوز 64 بيت و اوفيس 2019 نواة 32 بيت اعطنى تلك البيانات استاذ عبد @عبد اللطيف سلوم

الست تقصد يا استاذى الملف ذات الامتداد mdw الذى يحدد صلاحيات دخول المستخدمين من خلال معالج اوفيس ليحدد من يستطيع الفتح فى وضع التصميم ومن له حق القراءة والتهديل او القراءة فقط او الحذف او التعديل على كل كائنات القاعدة باسمها اما جداول او استعلامات او نماذج Microsoft Access Workgroup Information File اعتمادات تسجيل الدخول التي تمكن المستخدمين من الوصول إلى قاعدة بيانات محددة تابعة لـ Access وفق صلاحيات محدده لكل مجموعة مستخدمين

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

الله اعلى اعلى واعلم ولكن نما الى علمى ان هناك برامج مدفوعة ترجعها مرة اخرى

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

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

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