ابو جودي

طيب من فضلكم ممكن تجربة القاعدة الاتية 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 وفق صلاحيات محدده لكل مجموعة مستخدمين

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

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

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

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

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

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

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

اولا اعتقد حضرتك لم تنتبه لتفعيل KeyPreview = True للنموذج الفرعى من التبويب الخاص بوضع الاحداث كما يمكنكم وضع هذا الكود بدلا منها ات اردتم Private Sub Form_Load() Me.KeyPreview = True End Sub

هنا تم سرد الموضوع وشرح سريع للفكرة والية استخدام الاكواد

السلام عليكم ورحمة الله تعالى وبركاته اولا وقبل اى شئ لم يتم ترتيب اسماء اساتذتى الكرام الذين تم كتابة اسمائهم لسبب محدد فالترتيب لا يعنى اى شئ اطلاقا فجميعهم النجوم اللامعة بمن نقتضى منهم فى هذا الصرح نهتدى ان شاء الله كما خو الحال مع باقى الاساتذة الذين لم اكتب اسمهم فلا يعنى ذلك اى شئ كلهم فى مرتبة واحدة وكلهم معلمينا الافاضل لا غنى لنا عنهم عذا فقط مجرد مثال اسرد اليكم الشـرح سريعا لفكرتى قبل البدء قد يتفق معى من يتفق ويختلف من يختلف لذلك انتظر ارائكم ان شاء الله فيشيد بهذه الطريقه من يشيد و يعترض من يعترض فنخرج ان شاء الله بأطيب النتائج هنا ان شاء الله اتعامل مع جدول باسم tblMainData والذى يختوى على الحقول A,B,C ونموذج باسم يضم الحقول على الترتيب txtA , txtB, txtC هذا الكود حتى اهئ النموذج للتعامل مع اختصار المفاتيح من الكيبورد Private Sub Form_Load() Me.KeyPreview = True End Sub وهذا الجزء حتى اسند القيم التى احتاج لنسخها الى متغيرات وكتبته هكذا ليسهل استدعاءه وقت الحاجة Private Sub SpecialCopy() 'الاعلان عن المتغيرات Dim VarFildeA As Variant Dim VarFildeB As Variant Dim VarFildeC As Variant 'اسناد قيم مربعات النص الى المتغيرات VarFildeA = txtA VarFildeB = txtB VarFildeC = txtC DoCmd.GoToRecord , , acNewRec 'سجل جديد 'نسخ قيم المتغيرات الى مربعات النص في السجل الجديد txtA = VarFildeA txtB = VarFildeB txtC = VarFildeC 'تفريغ المتغيرات VarFildeA = Empty VarFildeB = Empty VarFildeC = Empty End Sub وهذا الجزء لاسناذ القيم من المتغيرات الى مربعات النص للسجل الجديد وكتبته هكذا ليسهل استدعاءه وقت الحاجة Private Sub DoCopy() DoCmd.RefreshRecord If DCount("[ID]", "tblMainData") = 0 Then DoCmd.RefreshRecord Exit Sub ElseIf DCount("[ID]", "tblMainData") >= 1 Then If NewRecord Then DoCmd.GoToRecord , , acLast Call SpecialCopy Else Call SpecialCopy End If End If End Sub طبعا هنا اتأكد اولا ان كان هذا السجل الاول فى الجدول ام لا قبل ان تتم عملية اسناد القيم التى اريدها واهيرا استدعاء الكود من هلال زر امر لتنفيذ عملية نسه السجل الاأهير وقت الحاجة Private Sub BtnDuplicate_Click() Call DoCopy End Sub وهذا الجزء كما يقولون عنه الـ Hot Key استدعاء الكود من خلال زر من الكيبورد عن الضغط عليه Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 117 Then ' استبدل هذا الرقم برقم المفتاح بالاعلى كما يحلو لك Call DoCopy KeyCode = 0 Exit Sub End If End Sub تنويه ببعض الحيل ان اردنا نقوم بنسخ سجل محدد ان اردنا سجل بعينه تبعا لشرط او شروط محدده حسب ما تقتضى الحاجة واخيـــرا المرفق Duplicate Last Record.mdb

اتفضل استاذى العزيز واخى الحبيب استاذ @REDA.M.A اتمنى على الله تعالى ان يكون هذا طلبك انظر الى الكود المستخدم على مربع التحرير والسرد كود التصنيف كان هذا كودك قديما Private Sub كود_التصنيف_AfterUpdate() If Me.NewRecord Then Me.رقم_امر_الصرف = Me.Parent!نص57 End Sub والان وحسب فهمى اتمنى على الله ان يكون فى محله صار التعديل للكود بهذا الشكل Private Sub كود_التصنيف_AfterUpdate() If [Form_نموذج تجميع].البـــــاقي >= Me.الصافى Then Else If MsgBox("الصافى المنصرف اكبـــر هل تريد الاستمرار", vbYesNo, "CHECK") = vbNo Then DoCmd.CancelEvent Me.Undo Else If Me.NewRecord Then Me.رقم_امر_الصرف = Me.Parent!نص57 End If End If End Sub للتعديل.accdb

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

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

لا احب التعامل مع الـ SendKeys

هل بحثت بالمنتدى قبل وضع سؤالك اتفضل

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

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

اعانى من مشاكل فى الاتصال بالانترنت لذلك اعذرنى سوف اجيبك نظريا 1- قم بعمل موديول جديد 2- ضع هذ الكود داخل الموديول Rem اول يوم فى الشهر Public Function FirstDateOfMonth(MyDate) FirstDateOfMonth = CDate("1/" & DatePart("m", MyDate) & "/" & DatePart("yyyy", MyDate)) End Function Rem اخر يوم فى الشهر Public Function LastDateOfMonth(FirstDateOfMonth) LastDateOfMonth = DateAdd("d", -1, DateAdd("m", 1, FirstDateOfMonth)) End Function فى النموذج الان لنفترض انك وعلى حسب سؤالك يوجد 2 مربع نص لنقترض ان الاول اسمــــه txtStart ولنفترض ان الثانى اسمه txtEnd على حسب سؤالك او على حسب فهمى انت تريد عند وضع اى تاريخ بالمربع الاول txtStart مهما كان يتم ارجاعه الى اول يوم لهذا الشهر والمربع الثانى txtEnd اخر يوم لنفس الشهر الذى قام بإدخاله المستخدم فى مربع النص الأول txtStart قم بعمل كود عند التحديث للمربع الاول بهذا الكود Private Sub txtStart_AfterUpdate() [txtStart] = FirstDateOfMonth([txtStart]) txtEnd = LastDateOfMonth([txtStart]) End Sub وان شاء الله تجد كل شئ تمام طبعا ممكن عمل الكود على النموذج مباشرة ولكن احبذه هكذا لسهولة استدعاءه فى اى وقت ومن اى مكان ولاى تاريخ واخبرنى النتيجة التى توصلت اليها لو تكرمت بعد التطبيق

العفو منكم استاذى الجليل ومعلمى القدير استاذ @jjafferr بل انتم اساتذتى العظماء وما انا الا اقل طالب علم اتلهف دائنا لما تقدمون بشغف ولهفة

قمت باغلاق الشيفت ولاعادته عند فتح البرنامج بعد ان يفتح طريقة اظهار الملفات

لم افعل اى شئ سوى اضافة Usys فى بداية اسم كل الكئنات التى لم ارد لها ان تظهر يعنى مثلا انا استخدم اسم tblRadio للجدول واضفت اليه فى البداية Usys فأصبح UsystblRadio وكذلك مع باقى الكائنات ولذلك الاكسس اعتبرهم جميها ضمن النظام لذلك حتى لو دخلت على اعدادت الاكسس لاظهار الكائنات المخفية لن يتم اظهارهم لابد من اظهار كائنات النظام فقط بذلك يتم اظهار كل شئ