پیغام جهت ذخیره اطلاعات

[s_samira_21]

من در On Close فرمم تعریف کرده م که یک مسیج باکس نشون بده که بپرسه می خواهید اطلاعات را ذخیره کنید؟ اگر کاربر بله را بزند اطلاعات ذخیره میشه در غیر این صورت ذخیره نمیشه
مشکل اینجاست که می خوام این مسیج باکس فقط زمانی نشون داده بشه که حداقل یکی از تکست باکس ها تغییر کرده باشه
چکار کنم؟؟؟
از اکسس 2007 استفاده میکنم و با VBA

[hasanr]

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


Private Sub Form_BeforeUpdate(Cancel As Integer)
On Error GoTo Err_BeforeUpdate
If Me.Dirty Then
If MsgBox(" Aya mikhahid tagirat ra zakhire konid?", vbYesNo) = vbNo Then
Me.Undo
End If
End If
Exit_BeforeUpdate:
Exit Sub
Err_BeforeUpdate:
MsgBox Err.Number & " " & Err.Description
Resume Exit_BeforeUpdate
End Sub

[s_samira_21]

چشم حتما!!!

خیلی ممنون این کار کرد
ولی یه مشکلی هست. و اون اینکه من میخوام موقع بستن فرم این پیغام بیاد. در حالی که با این کد حتی وقتی کلید ذخیره رو هم می زنم بازم این پیغام میاد!!!!
وقتی ذخیره رو میزنم میخوام بدون هیچ سوالی ذخیره کنه.

[hasanr]

کدهای بالا در رویداد BeforeUpdate نوشته شده
Private Sub Form_BeforeUpdate(Cancel As Integer)
. . .
End Sub


شما همین کدها رو در رویداد بسته شدن فرم بنویس

Private Sub Form_Close()
. . .
End Sub

[s_samira_21]

این کار رو کردم ولی موقع بسته شدن فرم هیچ اتفاقی نمی افته!!!

[michkadol]

در رویداد dirty دستورات بالا رو بنویسید

[hasanr]

کدها درستند و dirty بودن فرم هم در داخل کدها بررسی شده
اگر ممکنه نمونه بزارین