اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر

اخى الكريم انا عمرى ما انسى طلبك بس كل الحكاية انى كنت طول النهار بره البيت يوم  اجازتى وكدا

 

عموما انا لسه منزل المرفق 

 

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

 

عموما جارى تجهيز المرفق وشكرا لك

قام بنشر

وهذا شرح الكود

Dim db, Xdb As Database
02
    Dim rel As Relation
03
    
04
    'نحتاج اسناد متغيرين واحد لحذف الارتباط
05
    Set Xdb = CurrentDb()
06
    'والاخر لحذف الجداول بعد حذف الارتباط
07
    Set db = CurrentDb()
08
    'حلقة التكرار للجداول المرتبطه
09
    For Each rel In db.Relations
10
    'حذف العلاقه بين الجدولين
11
    Xdb.Relations.delete rel.Name 'اسم الجدولين المرتبطين
12
    MsgBox " تم حذف العلاقه بين الجدول " & rel.Table & " و الجدول " & rel.ForeignTable
13
    ' حذف الجدول المرتبه الاول الرئيسي
14
    DoCmd.deleteObject acTable, rel.Table
15
    MsgBox " تم حذف الجدول " & rel.Table
16
    'حذف الجدول الثاني الجانبي المرتبط بالاول
17
    DoCmd.deleteObject acTable, rel.ForeignTable
18
    MsgBox " تم حذف الجدول " & rel.ForeignTable
19
    
20
    
21
    Next
22
    Set db = Nothing
23
    Set Xdb = Nothing
قام بنشر

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

فكرة رائعة ...دارة حماية خير من تدمير البرنامج حسب تعبير السائل فلو أن كل منا دمر برنامجاً....النتيجة لا برامج

قام بنشر

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

فكرة رائعة ...دارة حماية خير من تدمير البرنامج حسب تعبير السائل فلو أن كل منا دمر برنامجاً....النتيجة لا برامج

انا معك في ذلك

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

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

  • Like 1
قام بنشر

انا لى راى يا استاذ ahmedabuzena

انت حددت عدد فتحات للقاعده بتاعتك 

طيب لو النور قطع راحت واحده من العدد ولو الجهاز هنج وقفل وفتح القاعده راحت واحده ولو قفل الجهاز وفتحه كذلك راحت واحده
لو القاعده اتقفلت واتفتحت بالغلط راحت واحده برضو 
اعتقد لو تم من خلال التاريخ وتحديد عدد ايام افضل من عدد فتحات للقاعده 
صح واللا كلامى غلط ؟!

 

  • Like 1
قام بنشر

تفضل يا اخى مرفقك

اخى الكريم مارد جزاك الله كل خير تم الحل والحمد لله شكرا على تعبك ومجهودك الذى بذلته لحل مشكلتى 

قام بنشر

انا لى راى يا استاذ ahmedabuzena

انت حددت عدد فتحات للقاعده بتاعتك 

طيب لو النور قطع راحت واحده من العدد ولو الجهاز هنج وقفل وفتح القاعده راحت واحده ولو قفل الجهاز وفتحه كذلك راحت واحده

لو القاعده اتقفلت واتفتحت بالغلط راحت واحده برضو 

اعتقد لو تم من خلال التاريخ وتحديد عدد ايام افضل من عدد فتحات للقاعده 

صح واللا كلامى غلط ؟!

 

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

قام بنشر

 

 

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

فكرة رائعة ...دارة حماية خير من تدمير البرنامج حسب تعبير السائل فلو أن كل منا دمر برنامجاً....النتيجة لا برامج

انا معك في ذلك

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

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

 

اخى الكريم شكرا على الاهتمام فى حل مشكلتى اما بالنسبة لنقل البيانات الى اكسيل فانا بحول البرنامج الى mcde ثم اغير الامتداد الى mcdr لاخفاء جميع الجداول والعامل ملهوش فى البرمجة فمن هذى الناحية انا فى امان شكرا مرة اخرى على الاهتمام

قام بنشر

انا لى راى يا استاذ ahmedabuzena

انت حددت عدد فتحات للقاعده بتاعتك 

طيب لو النور قطع راحت واحده من العدد ولو الجهاز هنج وقفل وفتح القاعده راحت واحده ولو قفل الجهاز وفتحه كذلك راحت واحده

لو القاعده اتقفلت واتفتحت بالغلط راحت واحده برضو 

اعتقد لو تم من خلال التاريخ وتحديد عدد ايام افضل من عدد فتحات للقاعده 

صح واللا كلامى غلط ؟!

 

 

 

 

انا بقى عندى فكرة احسن بالنسبة للموضوع دا

 

صلى على النبى

 

احنا هنعمل للبرنامج رقم يعنى مثلا دى النسخة رقم v1.2.mared

دا مثلا

طبعا شفت الجدول اللى عملته على الاستضافة

هنعمل فيه حقل لنفس رقم البرنامج

وهنعمل ربط

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

لو حبيت فى يوم اوقف البرنامج عند اى حد

هغير الرقم اللى فى جدول سيكوال  وهديلو امر انه ميفتحش طالما الرقم مش متساوى

 

بس دا طبعا له عيب واحد انه لازم يكون عنده انترنت هههههههههههههههههه

  • Like 1
قام بنشر

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information