سلام دوستان عزیز چطور می شود در فایل پیوستی بازدن دکمه حذف همه اطلاعات یکدفعه پاک شود من مجبورم یکی ،یکی آنها را پاک کنم که کار دشواری است
سلام دوستان عزیز چطور می شود در فایل پیوستی بازدن دکمه حذف همه اطلاعات یکدفعه پاک شود من مجبورم یکی ،یکی آنها را پاک کنم که کار دشواری است
سلام
خدمت شما
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
باسلام وتشکر ازمحبت شما آیا امکان حذف این اطلا عات ازجدول ها هم می شود ؟
این دستور اطلاعات موجود در همین فرم که نمایش داده میشه رو حذف میکنه!
منظورتون از اطلاعات جدول رو متوجه نشدم
سلام منظورم این است که همانطوریکه این دستور اطلاعات فرمی را که نمایش می دهد را حذف می کند بتواند اطلاعاتی مثل نام ونام خانوادگی و.....فیلد های جدول ها راهم پاک کند چون مرتب اسامی عوض می شوند
به فیلدها ارتباطی نداره!
هر رکوردی که در فرم مورد استفاده این کد، موجود باشه توسط این کد حذف میشه.
باسلام ازراهنمایی خوب وارزشمند شما تشکر
خواهش میکنم
کاری نبود، موفق باشین
سلام
مواردی که باید انجام بدین به ترتیب
- نام فرم 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
سلام عزیز کد رو جایگزین کردم ولی باز هم نشد خودمم دیگه کلافه شدم نمیدونم دردش چیه.
ضمنا حتما باید فرم اسمش sub_query باشه اسم دیگه نمیشه؟ با اسمای دیگه امتحان کردم بازم نشد همون ارور میده
این فایل اصلیه که از همین سایت گرفتم.هر کاری کردم بجای فرم sub_query فرم دیگه مثل frm2 جایگزین کنم ارور میده. خیلی عجیبه انگار یه کد مخفی داره فقط فرم خودشو قبول داره.
صرفا برای نمونه!
فرمتون مد نظر تغییر نام داده شد و کماکان داره درست کار میکنه!
منظورم فرمی که خودم ساختم frm2 جایگزین کردم تو فرم اصلی نشد که نشد ولی فرمی که خودش ساخته حتی اسمشم عوض کنیم قبول میکنه.
باور کنید بیش از ۳ ساعت دارم فکر میکنم مشکل کجاست مو به مو فرم رو شبیه اصلی ساختم، اگه میدونی کمکم کن.ممنون
پیشنهاد میکنم یه فایل خام ایجاد کنید و مجددا فرم هاتون رو طراحی کنید
سلام. یه جایی رو اشتباه میکردم بالاخره تونستم حل کنم.ممنون
دوست عزیز ببخشید اینجا سوال میکنم ارزش ایحاد تایپیک دیگه نداره
چجوری میشه در فرم فیلد مورد نظر طبق خواسته sort بشه. مثلا به ترتیب رتبه یک-رتبه دو-رتبه سه و...