إعداد قاعدة_البيانات_وتجهيزها للعمل

هل من مشاعده بارك الله بكم

اخي الفاضل : امير

السلام عليكم ورحمة الله وبركاته

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

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

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

مالذي تريد عمله بالضبط حتى نستطيع مساعدتك 

بالتوفيق

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

جزاكم الخير خير الجزاء على ما تبزلوه من جهد

amir_adam87 كتب:

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

جزاكم الخير خير الجزاء على ما تبزلوه من جهد

الاخ العزيز

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

Dim db As DAO.Database
Dim Sql As String
Dim tdf As DAO.TableDef
Set db = CurrentDb
DoCmd.SetWarnings False

For Each tdf In db.TableDefs
 
    If Not (tdf.Name Like "MSys*" Or tdf.Name Like "~*") Then
        
        Sql = "Delete * From " & tdf.Name
        DoCmd.RunSQL Sql
    End If
Next
Set tdf = Nothing
Set db = Nothing

DoCmd.SetWarnings True

تحياتي

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

ولكن اخي

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

Dim dbs As Database
  Dim rst As Recordset
  Dim Table As TableDef
  Dim ErrCount As Long
    On Error Resume Next
   Set dbs = CurrentDb
  DoCmd.SetWarnings False
  Do
    ErrCount = 0
    For Each Table In dbs.TableDefs
      If Not Table.Name Like "MSys*" Then
        If Table.Connect = "" Then
          DoCmd.RunSQL "DELETE * FROM " & Table.Name & ";"
          Set rst = dbs.OpenRecordset(Table.Name, dbOpenSnapshot)
          If rst.RecordCount > 0 Then ErrCount = ErrCount + 1
        End If
      End If
    Next
  Loop Until ErrCount = 0
  DoCmd.SetWarnings True
  rst.Close
  Set dbs = Nothing
    MsgBox "ÔßÑÇ áß áÞÏ Êã ÈÇáÝÚá ÊÌåíÒ ÞÇÚÏÉ ÇáÈíÇäÇÊ ááÚãá ãÚ ãÄÓÓå ÌÏíÏå", vbInformation, "ãÑÇÞÈ ÇáäÙÇã"
    End If

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

مثل ماقالت الاخت زهرة مطلبك مش واضح من البداية كل مرة يبين شي! بخصوص الليبل عشان يتوافق مع الشريط التقديمي فقط اضف هذا السطر ولنفرض اسم الليبل هو tblLabel

tblLabel.Caption=tdf.Name

وليكن هذا السطر قبل جملة الحذف

DoCmd.RunSQL "DELETE * FROM " & Table.Name & ";"

تحياتي

amir_adam87 كتب:

اخواني واخواتي مشرفين واعضاء هذا المنتدى الجميل

لدي استفسار بسيط

وهوا  لدي قاعدة بيانات تحتوي على 579 جدول وهي تعمل والله الحمد بفضل الله ثم مساعدتكم لي بكفائه عليه جدا وهي تعمل لمجموعه غزل ونسيج تضم 5 مصانع  ولكن طلب مني تسويق هذا البرنامج ولكن هل اسوق هذا البرنامج بكافة البيانات ام سا احذف محتويات الـــ 579 جدول يدويا 

تم عمل شاشة بها زر امر  وشريطين ProgressBar وهي عند الضغط على زر الامر(أعداد قاعدة البيانات للعمل للمره الاولى) ياتي لي بكافة اسماء الجدوال التي يتم مسحها متقدما او مع الشريطين 

وبارك الله بكم

وهذا هوا المرافق المراد اضافة الاكواد او الوحده النمطية له

إعداد_وحذف_بيانات_قاعدة_البيانات_وتجهيزها_للعمل.rar

اخي واختي بارك الله بكم ولكن ما هوا الغير واضح في الموضوع 

 بارك الله بكم

انا لا را با لمشاركة اي شيء غامض 

اخي الفاضل : امير

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

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

ولكن قبل ان ارفع الملف وجدت مشاركتك انت والأخ  Creative Man تحاولون الوصول الى الحل ولذا فضلت عدم رفع الملف

والسبب بارك الله انك لا تحتاج كل هذه الإجراءات المعقده لأنك اساسا لن تستخدم هذا النموذج إلا مرة واحده فقط

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

ما اقصده بارك الله 

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

الشريط التقديمي فهذه اجراءات شكليه فقط لا غير

ولهذا فإن الأكواد التي لديكم في المشاركة كافية لحذف جميع البيانات من الجداول وبعدها قم بضغط وإصلاح قاعدة البيانات وضعها

في ملف SetUP ثم قم بتسويقها

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

الجداول فلا يمكنه اعادة البيانات لها وخاصة ان الجداول لديك 579 جدول .

بالتوفيق

اختي الفاضله بارك الله بك وعلى حسن تعاونك معنا وعلى حرصك الشديد على تامين البيانات سواء في جهاز العميل اما لدي فهي فعلا كانت غائبة عني اشكرك وبارك الله بك ولكن لدي استفسار اخير وهوا بخصووص الكود المتواج بالمشاركة رقم 6 وهي عند الضغط على زر حذف البيانات من الجداول تستغرق وقت طويل ولم تاتي لي رسالة تفيد بانهاء عملية الحذف وبعد ذلك اقوم انا باغلاق قاعدة البيانات  بزري  Alt+Ctrl  +Delete  بعد استغرق اكثر من نصف ساعه هنا هل الكود المتواجد بالمشاركه في اخطاء

الف مليون كلمة بارك الله بك ولن لوم اوفي بمساعدتك لي ولكل اعضاء هذا المنتدا ولكن جعله الله في ميزان حسناتك