سوال: کد ذخیره اطلاعات در صورت تغییر آن وبستن فرم چیه؟ [بایگانی]

saeed28541

سه شنبه 07 مهر 1394, 11:18 صبح

باسلام خدمت دوستان.
دنبال کدی میگردم که درصورت تغییر اطلاعات داخل فرم پیغام بده وبا تایید پیغام اطلاعات را ذخیره وفرم را ببنده.؟:متفکر:
خیلی دنبال این کد تو صفحاب اینترنت گشتم ولی تجمیع شده این دستورات را پیدا نکردم.
بتونید کمکم کنید ممنون میشم.

alirezabahrami

سه شنبه 07 مهر 1394, 12:23 عصر

باسلام خدمت دوستان.
دنبال کدی میگردم که درصورت تغییر اطلاعات داخل فرم پیغام بده وبا تایید پیغام اطلاعات را ذخیره وفرم را ببنده.؟:متفکر:
خیلی دنبال این کد تو صفحاب اینترنت گشتم ولی تجمیع شده این دستورات را پیدا نکردم.
بتونید کمکم کنید ممنون میشم.
سلام
از کد زیر در رویداد کلیک کمند باتن ذخیره یا رویداد Unload فرم استفاده کن !
البته فرم شما باید در حالت Bound باشد.

Dim msg As Integer
If IsSave = False Then
If Me.Dirty Then

msg = MsgBox("آیا مایل به ذخیره اطلاعات هستید ؟", vbYesNo + vbMsgBoxRight, "توجه")
If msg = vbYes Then
IsSave = True

Else
Me.Undo

End If
End If
End If

saeed28541

سه شنبه 07 مهر 1394, 12:52 عصر

ممنون از راهنمایی شما.
در کدی که زحمتش را کشیدید me.dirty تغییرات را در فرم برمیگردونه؟
وسوال بعدی اینکه حالت bound در فرم را که گفتید متوجه نشدم چطور باید تنظیم کنم.
درهر صورت اصل مشکلم در رویداد کمند باتن حل شد.
باز هم ممنون

صبا9841

سه شنبه 07 مهر 1394, 13:24 عصر

سلام- با اجازه alirezabahrami
تغییرات رو Me.Undo برمیگردونه اونم درصورتیکه کاربر نخواد ذخیره کنه. منظور از فرم باند یعنی به جدول(یا کوئری) وصل باشه.