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

[majid44]

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

[Mehr@ban]

سلام
خدمت شما

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

[majid44]

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

[Mehr@ban]

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

[majid44]

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

[Mehr@ban]

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

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

[majid44]

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

[Mehr@ban]

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

[datmas]

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

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

[Mehr@ban]

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

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

نام فرم sub-query رو به sub_query تغییر بدین - نکته سعی کنید در کدنویسی از انتخاب کارکتر - در نامگذاری کنترلرهای موجود و یا فیلدها جدا پرهیز کنید
کد موجود در رویداد وان کلیک باتن 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

[datmas]

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

[datmas]

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

[Mehr@ban]

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

[datmas]

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

[Mehr@ban]

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

[datmas]

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