ahmedabuzena قام بنشر مايو 20, 2015 قام بنشر مايو 20, 2015 السلام عليكم فى المرفقات طريقة عمل نسخة تجريبية بالعد التنازلى للامانة منقول من منتدى اخر ولاكن اريد اضافة كود عند انتهاء العد التنازلى يتم تدمير البيانات لانى لا اريد العامل فى المحل يستغل البرنامج لمصلحتة فانا اعطيه كل شهر نسخة محدثة فانا لا اريدة ان يستغل النسخ القديمة مجرد عدد الدخول فى البرنامج ينتهى يتم تدمير البرنامج بالكامل شكرا على المساعدة New folder.zip
Elsayed Bn Gemy قام بنشر مايو 20, 2015 قام بنشر مايو 20, 2015 السلام عليكم فى المرفقات طريقة عمل نسخة تجريبية بالعد التنازلى للامانة منقول من منتدى اخر ولاكن اريد اضافة كود عند انتهاء العد التنازلى يتم تدمير البيانات لانى لا اريد العامل فى المحل يستغل البرنامج لمصلحتة فانا اعطيه كل شهر نسخة محدثة فانا لا اريدة ان يستغل النسخ القديمة مجرد عدد الدخول فى البرنامج ينتهى يتم تدمير البرنامج بالكامل شكرا على المساعدة ماذا تعنى بتدمير ؟؟ حذف البيانات فقط من الجداول ؟؟؟ ام ماذا تريد
jjafferr قام بنشر مايو 20, 2015 قام بنشر مايو 20, 2015 السلام عليكم عفوا اخي احمد ، اسمح لي بإبداء رايي: صحيح ان البرنامج قد يكون ملكا لك ، ولكن البيانات ليست ملكك ، فهي ملك الذي ادخلها ، واذا دمرتها/حذفتها فانك تعتدي على ملكية غيرك !! لو كنت مكانك ، لأقفلت البرنامج بعدم السماح للمستخدم بعمل اي شئ ، سوى تصدير بياناته الى الاكسل مثلا. جعفر 2
ahmedabuzena قام بنشر مايو 20, 2015 الكاتب قام بنشر مايو 20, 2015 السلام عليكم فى المرفقات طريقة عمل نسخة تجريبية بالعد التنازلى للامانة منقول من منتدى اخر ولاكن اريد اضافة كود عند انتهاء العد التنازلى يتم تدمير البيانات لانى لا اريد العامل فى المحل يستغل البرنامج لمصلحتة فانا اعطيه كل شهر نسخة محدثة فانا لا اريدة ان يستغل النسخ القديمة مجرد عدد الدخول فى البرنامج ينتهى يتم تدمير البرنامج بالكامل شكرا على المساعدة ماذا تعنى بتدمير ؟؟ حذف البيانات فقط من الجداول ؟؟؟ ام ماذا تريد مسح الجداول بحيث البرنامج لا يصلح ان يعمل مرة اخرى حفاظا على اسرار شغلى
Elsayed Bn Gemy قام بنشر مايو 20, 2015 قام بنشر مايو 20, 2015 ارجو يا اخى ان تراجع كلام اخينا الفاضل جعفر فانه رجل ذات راى سديد فينا عموما هذا هو المرفق حذف جداول فقط بعد استنفاذ مرات الدخول حذف الجداول نهائيا.rar
ahmedabuzena قام بنشر مايو 20, 2015 الكاتب قام بنشر مايو 20, 2015 السلام عليكم عفوا اخي احمد ، اسمح لي بإبداء رايي: صحيح ان البرنامج قد يكون ملكا لك ، ولكن البيانات ليست ملكك ، فهي ملك الذي ادخلها ، واذا دمرتها/حذفتها فانك تعتدي على ملكية غيرك !! لو كنت مكانك ، لأقفلت البرنامج بعدم السماح للمستخدم بعمل اي شئ ، سوى تصدير بياناته الى الاكسل مثلا. جعفر اخى الفاضل انا عندى محل واعطى للموظف عندى نسخة كل اول شهر فيها تحديث للاصناف الجديدة واسعارها مش عايز الموظف ياخد نسخة البرنامج ويستغلها ضدى مفيش داتا هو بيضفها فقط يستغل البرنامج لمعرفة الاسعار وكود الصنف لاكن لو سحب البرنامج على فلاشة بدون علمى لن تنفعة كثيرا لان مجرد عدد الدخول على البرنامج ينتهى كل الجداول تتمسح بالبيانات التى بداخلها فبذلك اقدر ان احافظ على اسرار شغلى وكما تعلم فى محترفين كتيير ممكن يستخرجوا البيانات بعد الفترة التجريبية فبمسحها اكون فى امان ارجو مساعدتى وشكرا 1
Elsayed Bn Gemy قام بنشر مايو 20, 2015 قام بنشر مايو 20, 2015 السلام عليكم عفوا اخي احمد ، اسمح لي بإبداء رايي: صحيح ان البرنامج قد يكون ملكا لك ، ولكن البيانات ليست ملكك ، فهي ملك الذي ادخلها ، واذا دمرتها/حذفتها فانك تعتدي على ملكية غيرك !! لو كنت مكانك ، لأقفلت البرنامج بعدم السماح للمستخدم بعمل اي شئ ، سوى تصدير بياناته الى الاكسل مثلا. جعفر وفقك الله وسدد خطاك
ahmedabuzena قام بنشر مايو 20, 2015 الكاتب قام بنشر مايو 20, 2015 ارجو يا اخى ان تراجع كلام اخينا الفاضل جعفر فانه رجل ذات راى سديد فينا عموما هذا هو المرفق حذف جداول فقط بعد استنفاذ مرات الدخول بارك الله فيك اخى والله ما اريدة لا ارغب فى ان اضر به احد ممكن اخى ان تشرح لى اين كتبت الكود وما هو لانى لم اصل اليه وشكرا على المساعدة
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
عبد الله قدور قام بنشر مايو 21, 2015 قام بنشر مايو 21, 2015 عندي فكرة افضل ضع للبرنامج دارة حماية وهكذا واترك ارة الحماية في مكان العمل وهكذا لو نسخ البرنامج الى فلاشة لا يعمل اطلاقا
عبد الله قدور قام بنشر مايو 21, 2015 قام بنشر مايو 21, 2015 اقصد دارة الحماية ممكن تكون فلاشة متصلة بالحاسب وجود الحماية هذا موجود عندي ان اردت ارفقته لك مساءا ملاحظة هذه الطريقة لا تتأثر بالفرمتة ان كان للفلاشة او الحاسب
ahmedabuzena قام بنشر مايو 21, 2015 الكاتب قام بنشر مايو 21, 2015 اقصد دارة الحماية ممكن تكون فلاشة متصلة بالحاسب وجود الحماية هذا موجود عندي ان اردت ارفقته لك مساءا ملاحظة هذه الطريقة لا تتأثر بالفرمتة ان كان للفلاشة او الحاسب مشكور اخى ارسلها لى واشرح لى كيف اتعامل معها كى اتحكم فيها جزاك الله كل خير
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
Elsayed Bn Gemy قام بنشر مايو 21, 2015 قام بنشر مايو 21, 2015 اخى الكريم ها تريد حذف البيانا ت ام حذف الكائن جدول ؟؟؟
Elsayed Bn Gemy قام بنشر مايو 21, 2015 قام بنشر مايو 21, 2015 اخى الكريم الكود يعمل وهذا مرفق للتجربة ضع انت الكود فى اى حدث وموضع تريده فانت ادرى منا ببرنامجك وشكر الله لك حذف جدول.rar
ahmedabuzena قام بنشر مايو 21, 2015 الكاتب قام بنشر مايو 21, 2015 اخى الكريم ها تريد حذف البيانا ت ام حذف الكائن جدول ؟؟؟ اخى الكريم هو انا لو حذفت الجدول مش بالتالى حيمسح البيانات التى بداخله فأنا أريد مسح الاثنين معا وجزاك الله كل خير على الاهتمام
Elsayed Bn Gemy قام بنشر مايو 21, 2015 قام بنشر مايو 21, 2015 او كما يقال اهل مكة ادرى بشعابها :smile:
ahmedabuzena قام بنشر مايو 21, 2015 الكاتب قام بنشر مايو 21, 2015 او كما يقال اهل مكة ادرى بشعابها :smile: اخى الكريم انا عارف انى تعبتك معايا ان معنديش خبرة بالاكواد والتعديل عليها مرفق نفس الملف الذى ارسلتة وباقى مرتين على العد التنازلى ويتم مسح الجداول انا جربت البرنامج بعد انتهاء العد التنازلى ما زلت اجد الجداول ببيناتى كما هى جرب بنفسك وقولى المشكلة فين وشكرا جزيلا على المساعدة ملحوظه user name: user1 password: 1 حذف الجداول نهائيا.zip حذف الجداول نهائيا.zip
ahmedabuzena قام بنشر مايو 21, 2015 الكاتب قام بنشر مايو 21, 2015 تفضل اخى الكريم اخى الكريم انا طبقت الكود على البرنامج مسح جدول العد فقط CNTR TABLE وترك باقى الجداول كما هى فهل هذا الكود عام لكل الجداول ام لجدول معين او حسب مكان الكود
Elsayed Bn Gemy قام بنشر مايو 21, 2015 قام بنشر مايو 21, 2015 اخى الكريم الكود يعمل معى بشكل ممتاز ويعمل مع كل الجداول الا فقط فى الحالة الاته اذا كنت انت فاتح نموذج الدخول مثلا ومصدر بيناته جدول فلا يمكن مسح هذا الجدول غير ذلك يمحو جميع الجداول
ahmedabuzena قام بنشر مايو 21, 2015 الكاتب قام بنشر مايو 21, 2015 اخى الكريم الكود يعمل معى بشكل ممتاز ويعمل مع كل الجداول الا فقط فى الحالة الاته اذا كنت انت فاتح نموذج الدخول مثلا ومصدر بيناته جدول فلا يمكن مسح هذا الجدول غير ذلك يمحو جميع الجداول والله يا اخى مش عارف فين المشكلة طيب ممكن أضيف كود يمسح جدول معين مثل جدول اسمة items main وهو مش مفتوح فى البداية الجدول المفتوح فى البداية هو جدول الباسورد يعنى المفروض يتمسح
Elsayed Bn Gemy قام بنشر مايو 21, 2015 قام بنشر مايو 21, 2015 انظر يا اخى يعمل بشكل ممتاز يمسح كل الجداول ما عدا جدول الباسورد لان النموزج الخاص به مفتوح صورة.rar
راعي الغنم قام بنشر مايو 21, 2015 قام بنشر مايو 21, 2015 افضل لك مسح البيانات او اغلاق البرنامج اما مسح الجدول واذا هو محترف وكان عارف ايش اسم الجدول فهو يقدر يستعيده...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.