ahmedabuzena قام بنشر مايو 20, 2015 مشاركة قام بنشر مايو 20, 2015 السلام عليكم فى المرفقات طريقة عمل نسخة تجريبية بالعد التنازلى للامانة منقول من منتدى اخر ولاكن اريد اضافة كود عند انتهاء العد التنازلى يتم تدمير البيانات لانى لا اريد العامل فى المحل يستغل البرنامج لمصلحتة فانا اعطيه كل شهر نسخة محدثة فانا لا اريدة ان يستغل النسخ القديمة مجرد عدد الدخول فى البرنامج ينتهى يتم تدمير البرنامج بالكامل شكرا على المساعدة New folder.zip رابط هذا التعليق شارك More sharing options...
Elsayed Bn Gemy قام بنشر مايو 20, 2015 مشاركة قام بنشر مايو 20, 2015 السلام عليكم فى المرفقات طريقة عمل نسخة تجريبية بالعد التنازلى للامانة منقول من منتدى اخر ولاكن اريد اضافة كود عند انتهاء العد التنازلى يتم تدمير البيانات لانى لا اريد العامل فى المحل يستغل البرنامج لمصلحتة فانا اعطيه كل شهر نسخة محدثة فانا لا اريدة ان يستغل النسخ القديمة مجرد عدد الدخول فى البرنامج ينتهى يتم تدمير البرنامج بالكامل شكرا على المساعدة ماذا تعنى بتدمير ؟؟ حذف البيانات فقط من الجداول ؟؟؟ ام ماذا تريد رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر مايو 20, 2015 مشاركة قام بنشر مايو 20, 2015 السلام عليكم عفوا اخي احمد ، اسمح لي بإبداء رايي: صحيح ان البرنامج قد يكون ملكا لك ، ولكن البيانات ليست ملكك ، فهي ملك الذي ادخلها ، واذا دمرتها/حذفتها فانك تعتدي على ملكية غيرك !! لو كنت مكانك ، لأقفلت البرنامج بعدم السماح للمستخدم بعمل اي شئ ، سوى تصدير بياناته الى الاكسل مثلا. جعفر 2 رابط هذا التعليق شارك More sharing options...
ahmedabuzena قام بنشر مايو 20, 2015 الكاتب مشاركة قام بنشر مايو 20, 2015 السلام عليكم فى المرفقات طريقة عمل نسخة تجريبية بالعد التنازلى للامانة منقول من منتدى اخر ولاكن اريد اضافة كود عند انتهاء العد التنازلى يتم تدمير البيانات لانى لا اريد العامل فى المحل يستغل البرنامج لمصلحتة فانا اعطيه كل شهر نسخة محدثة فانا لا اريدة ان يستغل النسخ القديمة مجرد عدد الدخول فى البرنامج ينتهى يتم تدمير البرنامج بالكامل شكرا على المساعدة ماذا تعنى بتدمير ؟؟ حذف البيانات فقط من الجداول ؟؟؟ ام ماذا تريد مسح الجداول بحيث البرنامج لا يصلح ان يعمل مرة اخرى حفاظا على اسرار شغلى رابط هذا التعليق شارك More sharing options...
Elsayed Bn Gemy قام بنشر مايو 20, 2015 مشاركة قام بنشر مايو 20, 2015 ارجو يا اخى ان تراجع كلام اخينا الفاضل جعفر فانه رجل ذات راى سديد فينا عموما هذا هو المرفق حذف جداول فقط بعد استنفاذ مرات الدخول حذف الجداول نهائيا.rar رابط هذا التعليق شارك More sharing options...
ahmedabuzena قام بنشر مايو 20, 2015 الكاتب مشاركة قام بنشر مايو 20, 2015 السلام عليكم عفوا اخي احمد ، اسمح لي بإبداء رايي: صحيح ان البرنامج قد يكون ملكا لك ، ولكن البيانات ليست ملكك ، فهي ملك الذي ادخلها ، واذا دمرتها/حذفتها فانك تعتدي على ملكية غيرك !! لو كنت مكانك ، لأقفلت البرنامج بعدم السماح للمستخدم بعمل اي شئ ، سوى تصدير بياناته الى الاكسل مثلا. جعفر اخى الفاضل انا عندى محل واعطى للموظف عندى نسخة كل اول شهر فيها تحديث للاصناف الجديدة واسعارها مش عايز الموظف ياخد نسخة البرنامج ويستغلها ضدى مفيش داتا هو بيضفها فقط يستغل البرنامج لمعرفة الاسعار وكود الصنف لاكن لو سحب البرنامج على فلاشة بدون علمى لن تنفعة كثيرا لان مجرد عدد الدخول على البرنامج ينتهى كل الجداول تتمسح بالبيانات التى بداخلها فبذلك اقدر ان احافظ على اسرار شغلى وكما تعلم فى محترفين كتيير ممكن يستخرجوا البيانات بعد الفترة التجريبية فبمسحها اكون فى امان ارجو مساعدتى وشكرا 1 رابط هذا التعليق شارك More sharing options...
Elsayed Bn Gemy قام بنشر مايو 20, 2015 مشاركة قام بنشر مايو 20, 2015 السلام عليكم عفوا اخي احمد ، اسمح لي بإبداء رايي: صحيح ان البرنامج قد يكون ملكا لك ، ولكن البيانات ليست ملكك ، فهي ملك الذي ادخلها ، واذا دمرتها/حذفتها فانك تعتدي على ملكية غيرك !! لو كنت مكانك ، لأقفلت البرنامج بعدم السماح للمستخدم بعمل اي شئ ، سوى تصدير بياناته الى الاكسل مثلا. جعفر وفقك الله وسدد خطاك رابط هذا التعليق شارك More sharing options...
ahmedabuzena قام بنشر مايو 20, 2015 الكاتب مشاركة قام بنشر مايو 20, 2015 ارجو يا اخى ان تراجع كلام اخينا الفاضل جعفر فانه رجل ذات راى سديد فينا عموما هذا هو المرفق حذف جداول فقط بعد استنفاذ مرات الدخول بارك الله فيك اخى والله ما اريدة لا ارغب فى ان اضر به احد ممكن اخى ان تشرح لى اين كتبت الكود وما هو لانى لم اصل اليه وشكرا على المساعدة رابط هذا التعليق شارك More sharing options...
Elsayed Bn Gemy قام بنشر مايو 20, 2015 مشاركة قام بنشر مايو 20, 2015 لك ما تريد يا اخى هذا حقك ولكن نحن فقط نطمئن فى حدث الحالى Private Sub Form_Current() If Me.R <= 0 Then Me.LB1.Visible = True '........................... Dim db Dim obj As AccessObject, dbs As Object Dim tdf As TableDef Set dbs = Application.CurrentData Set db = CurrentDb For Each obj In dbs.AllTables Set tdf = db.TableDefs(obj.Name) If Left(tdf.Name, 4) <> "msys" And tdf.Attributes <> 1073741824 Then DoCmd.DeleteObject acTable, obj.Name End If Next For Each obj In dbs.AllQueries DoCmd.DeleteObject acTable, obj.Name Next obj Set tdf = Nothing db.Close '...................................... End If refresh End Sub رابط هذا التعليق شارك More sharing options...
عبد الله قدور قام بنشر مايو 21, 2015 مشاركة قام بنشر مايو 21, 2015 عندي فكرة افضل ضع للبرنامج دارة حماية وهكذا واترك ارة الحماية في مكان العمل وهكذا لو نسخ البرنامج الى فلاشة لا يعمل اطلاقا رابط هذا التعليق شارك More sharing options...
عبد الله قدور قام بنشر مايو 21, 2015 مشاركة قام بنشر مايو 21, 2015 اقصد دارة الحماية ممكن تكون فلاشة متصلة بالحاسب وجود الحماية هذا موجود عندي ان اردت ارفقته لك مساءا ملاحظة هذه الطريقة لا تتأثر بالفرمتة ان كان للفلاشة او الحاسب رابط هذا التعليق شارك More sharing options...
ahmedabuzena قام بنشر مايو 21, 2015 الكاتب مشاركة قام بنشر مايو 21, 2015 اقصد دارة الحماية ممكن تكون فلاشة متصلة بالحاسب وجود الحماية هذا موجود عندي ان اردت ارفقته لك مساءا ملاحظة هذه الطريقة لا تتأثر بالفرمتة ان كان للفلاشة او الحاسب مشكور اخى ارسلها لى واشرح لى كيف اتعامل معها كى اتحكم فيها جزاك الله كل خير رابط هذا التعليق شارك More sharing options...
yms12 قام بنشر مايو 21, 2015 مشاركة قام بنشر مايو 21, 2015 فكرة الاخ عبدالله ممتازة وتحل المشكله رابط هذا التعليق شارك More sharing options...
ahmedabuzena قام بنشر مايو 21, 2015 الكاتب مشاركة قام بنشر مايو 21, 2015 لك ما تريد يا اخى هذا حقك ولكن نحن فقط نطمئن اخى الكريم انا جربت الكود على نفس المثال ولاكن لم يعمل ما زالت الجداول موجودة والبيانات بداخلها أين الخطأ بارك الله فيك فى حدث الحالى Private Sub Form_Current() If Me.R <= 0 Then Me.LB1.Visible = True '........................... Dim db Dim obj As AccessObject, dbs As Object Dim tdf As TableDef Set dbs = Application.CurrentData Set db = CurrentDb For Each obj In dbs.AllTables Set tdf = db.TableDefs(obj.Name) If Left(tdf.Name, 4) <> "msys" And tdf.Attributes <> 1073741824 Then DoCmd.DeleteObject acTable, obj.Name End If Next For Each obj In dbs.AllQueries DoCmd.DeleteObject acTable, obj.Name Next obj Set tdf = Nothing db.Close '...................................... End If refresh End Sub رابط هذا التعليق شارك More sharing options...
Elsayed Bn Gemy قام بنشر مايو 21, 2015 مشاركة قام بنشر مايو 21, 2015 اخى الكريم ها تريد حذف البيانا ت ام حذف الكائن جدول ؟؟؟ رابط هذا التعليق شارك More sharing options...
Elsayed Bn Gemy قام بنشر مايو 21, 2015 مشاركة قام بنشر مايو 21, 2015 اخى الكريم الكود يعمل وهذا مرفق للتجربة ضع انت الكود فى اى حدث وموضع تريده فانت ادرى منا ببرنامجك وشكر الله لك حذف جدول.rar رابط هذا التعليق شارك More sharing options...
ahmedabuzena قام بنشر مايو 21, 2015 الكاتب مشاركة قام بنشر مايو 21, 2015 اخى الكريم ها تريد حذف البيانا ت ام حذف الكائن جدول ؟؟؟ اخى الكريم هو انا لو حذفت الجدول مش بالتالى حيمسح البيانات التى بداخله فأنا أريد مسح الاثنين معا وجزاك الله كل خير على الاهتمام رابط هذا التعليق شارك More sharing options...
Elsayed Bn Gemy قام بنشر مايو 21, 2015 مشاركة قام بنشر مايو 21, 2015 او كما يقال اهل مكة ادرى بشعابها :smile: رابط هذا التعليق شارك More sharing options...
ahmedabuzena قام بنشر مايو 21, 2015 الكاتب مشاركة قام بنشر مايو 21, 2015 او كما يقال اهل مكة ادرى بشعابها :smile: اخى الكريم انا عارف انى تعبتك معايا ان معنديش خبرة بالاكواد والتعديل عليها مرفق نفس الملف الذى ارسلتة وباقى مرتين على العد التنازلى ويتم مسح الجداول انا جربت البرنامج بعد انتهاء العد التنازلى ما زلت اجد الجداول ببيناتى كما هى جرب بنفسك وقولى المشكلة فين وشكرا جزيلا على المساعدة ملحوظه user name: user1 password: 1 حذف الجداول نهائيا.zip حذف الجداول نهائيا.zip رابط هذا التعليق شارك More sharing options...
Elsayed Bn Gemy قام بنشر مايو 21, 2015 مشاركة قام بنشر مايو 21, 2015 تفضل اخى الكريم حذف الجداول نهائيا.rar رابط هذا التعليق شارك More sharing options...
ahmedabuzena قام بنشر مايو 21, 2015 الكاتب مشاركة قام بنشر مايو 21, 2015 تفضل اخى الكريم اخى الكريم انا طبقت الكود على البرنامج مسح جدول العد فقط CNTR TABLE وترك باقى الجداول كما هى فهل هذا الكود عام لكل الجداول ام لجدول معين او حسب مكان الكود رابط هذا التعليق شارك More sharing options...
Elsayed Bn Gemy قام بنشر مايو 21, 2015 مشاركة قام بنشر مايو 21, 2015 اخى الكريم الكود يعمل معى بشكل ممتاز ويعمل مع كل الجداول الا فقط فى الحالة الاته اذا كنت انت فاتح نموذج الدخول مثلا ومصدر بيناته جدول فلا يمكن مسح هذا الجدول غير ذلك يمحو جميع الجداول رابط هذا التعليق شارك More sharing options...
ahmedabuzena قام بنشر مايو 21, 2015 الكاتب مشاركة قام بنشر مايو 21, 2015 اخى الكريم الكود يعمل معى بشكل ممتاز ويعمل مع كل الجداول الا فقط فى الحالة الاته اذا كنت انت فاتح نموذج الدخول مثلا ومصدر بيناته جدول فلا يمكن مسح هذا الجدول غير ذلك يمحو جميع الجداول والله يا اخى مش عارف فين المشكلة طيب ممكن أضيف كود يمسح جدول معين مثل جدول اسمة items main وهو مش مفتوح فى البداية الجدول المفتوح فى البداية هو جدول الباسورد يعنى المفروض يتمسح رابط هذا التعليق شارك More sharing options...
Elsayed Bn Gemy قام بنشر مايو 21, 2015 مشاركة قام بنشر مايو 21, 2015 انظر يا اخى يعمل بشكل ممتاز يمسح كل الجداول ما عدا جدول الباسورد لان النموزج الخاص به مفتوح صورة.rar رابط هذا التعليق شارك More sharing options...
راعي الغنم قام بنشر مايو 21, 2015 مشاركة قام بنشر مايو 21, 2015 افضل لك مسح البيانات او اغلاق البرنامج اما مسح الجدول واذا هو محترف وكان عارف ايش اسم الجدول فهو يقدر يستعيده... رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.