PDA

View Full Version : حذف پیغامی که در زمان اجرای Update Query می دهد؟؟!!



سیامک سیامک
دوشنبه 29 بهمن 1386, 16:52 عصر
موقع اجرای هر Update Query اول یک پیغامی می ده که برای اجرای اون تأیید می گیره و بعد از اجرا هم یک پیغام می ده که چندتا رکورد به روز رسانی شده، حالا چطوری می شه:

1- این پیغام ها رو حذف کرد که موقع اجرای این نوع کوئری دیده نشند؟:عصبانی++:


2- پیغام ها رو با متن دلخواه قبل و بعد از کوئری آورد؟:متفکر::متفکر:

ممنون از کمکتون

smderfan
دوشنبه 29 بهمن 1386, 20:35 عصر
سلام
بصورت زیر عمل کنید

DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE * FROM TableName"
Me.Requery
DoCmd.SetWarnings True

fazl11
دوشنبه 29 بهمن 1386, 21:39 عصر
دوست عزیز
یه راه حل آسون اینه که در قسمت options تب edit/find تیک مارک Action queries را بر دار اگه بخوای هنگام delete کردن نیز پیغام نده می تونی تیک مارک مربوط را نیز بر داری
یا از دستور DoCmd.SetWarnings (warningsoff) استفاده کن

مهدی قربانی
سه شنبه 30 بهمن 1386, 07:44 صبح
سلام
می تونید اینطوری بنویسید :

Private Sub Command0_Click()
DoCmd.SetWarnings False
If MsgBox("آیا از انجام عملیات بروزرسانی مطمئن هستید ؟", vbYesNo + vbQuestion + vbMsgBoxRight,"توجه") = vbYes Then
DoCmd.OpenQuery "QueryName"
MsgBox "عملیات بروزرسانی با موفقیت انجام شد", vbInformation + vbMsgBoxRight, "بروزرسانی"
Else
MsgBox "عملیات بروزرسانی لغو گردید", vbInformation + vbMsgBoxRight, "انصراف"
End If
DoCmd.SetWarnings True
End Sub

PARSA_GIS
چهارشنبه 01 اسفند 1386, 14:30 عصر
سلام
یه راه ساده تر استفاده از ماکروست
بدینصورت که در دکمه دستوری که قراره کوری رو اجار کنه با استفاده از ماکرو Setwarning رو off کنید و با بسته شدن مثلا فرو در رویدادی مثل Close دوباره Warning رو on کنید