حذف کلیه اطلاعات با یک کلیک

سلام دوستان عزیز چطور می شود در فایل پیوستی بازدن دکمه حذف همه اطلاعات یکدفعه پاک شود من مجبورم یکی ،یکی آنها را پاک کنم که کار دشواری است

سلام
خدمت شما

If Not Form.NewRecord Then

    If MsgBox("Delete all existing information?", vbYesNo, "Delete ") = vbYes Then

        DoCmd.RunCommand acCmdSelectAllRecords

        DoCmd.SetWarnings False

        DoCmd.RunCommand acCmdDeleteRecord

        DoCmd.SetWarnings True

    Else

        Cancel = True

    End If

Else

    MsgBox "No Information is Available for Deletion!"

End If

باسلام وتشکر ازمحبت شما آیا امکان حذف این اطلا عات ازجدول ها هم می شود ؟

این دستور اطلاعات موجود در همین فرم که نمایش داده میشه رو حذف میکنه!
منظورتون از اطلاعات جدول رو متوجه نشدم

سلام منظورم این است که همانطوریکه این دستور اطلاعات فرمی را که نمایش می دهد را حذف می کند بتواند اطلاعاتی مثل نام ونام خانوادگی و.....فیلد های جدول ها راهم پاک کند چون مرتب اسامی عوض می شوند

به فیلدها ارتباطی نداره!

هر رکوردی که در فرم مورد استفاده این کد، موجود باشه توسط این کد حذف میشه.

باسلام ازراهنمایی خوب وارزشمند شما تشکر:تشویق:

خواهش میکنم
کاری نبود، موفق باشین

نقل قول:

---

نوشته شده توسط Mehr@ban

خواهش میکنم
کاری نبود، موفق باشین

---

دوست عزیز سلام.من تو این مایه ها مشکل دارم ممنون میشم راهنمایی کنید.
این ارور میده: object required

نقل قول:

---

نوشته شده توسط datmas

دوست عزیز سلام.من تو این مایه ها مشکل دارم ممنون میشم راهنمایی کنید.
این ارور میده: object required

---

سلام
مواردی که باید انجام بدین به ترتیب

1. نام فرم sub-query رو به sub_query تغییر بدین - نکته سعی کنید در کدنویسی از انتخاب کارکتر - در نامگذاری کنترلرهای موجود و یا فیلدها جدا پرهیز کنید
2. کد موجود در رویداد وان کلیک باتن 4 رو به کد زیر اصلاح کنید:

Private Sub Command4_Click()

On Error GoTo Err_Command4_Click



If Form_sub_query.Text10 = 0 Then

    MsgBox "åí Ñ˜æÑÏí ÌåÊ ÈÇíÇäí íÇÝÊ äÔÏ", vbExclamation + vbMsgBoxRight, "ÊæÌå"

    DoCmd.CancelEvent

Else

    DoCmd.SetWarnings False

    DoCmd.OpenQuery "Query2"

    DoCmd.OpenQuery "Query2"

    Me.sub_query.Requery

    DoCmd.SetWarnings True

MsgBox "ÈÇíÇäí ÈÇ ãæÝÞíÊ ÇäÌÇã ÔÏ", vbInformation + vbMsgBoxRight, "ÈÇíÇäí"

End If



Exit_Command4_Click:

    Exit Sub



Err_Command4_Click:

    MsgBox Err.Description

    Resume Exit_Command4_Click

End Sub

سلام عزیز کد رو جایگزین کردم ولی باز هم نشد خودمم دیگه کلافه شدم نمیدونم دردش چیه.
ضمنا حتما باید فرم اسمش sub_query باشه اسم دیگه نمیشه؟ با اسمای دیگه امتحان کردم بازم نشد همون ارور میده

این فایل اصلیه که از همین سایت گرفتم.هر کاری کردم بجای فرم sub_query فرم دیگه مثل frm2 جایگزین کنم ارور میده. خیلی عجیبه انگار یه کد مخفی داره فقط فرم خودشو قبول داره.

صرفا برای نمونه!
فرمتون مد نظر تغییر نام داده شد و کماکان داره درست کار میکنه!

منظورم فرمی که خودم ساختم frm2 جایگزین کردم تو فرم اصلی نشد که نشد ولی فرمی که خودش ساخته حتی اسمشم عوض کنیم قبول میکنه.
باور کنید بیش از ۳ ساعت دارم فکر میکنم مشکل کجاست مو به مو فرم رو شبیه اصلی ساختم، اگه میدونی کمکم کن.ممنون

پیشنهاد میکنم یه فایل خام ایجاد کنید و مجددا فرم هاتون رو طراحی کنید

سلام. یه جایی رو اشتباه میکردم بالاخره تونستم حل کنم.ممنون
دوست عزیز ببخشید اینجا سوال میکنم ارزش ایحاد تایپیک دیگه نداره
چجوری میشه در فرم فیلد مورد نظر طبق خواسته sort بشه. مثلا به ترتیب رتبه یک-رتبه دو-رتبه سه و...