nazanin_90
پنج شنبه 07 فروردین 1393, 20:19 عصر
سلام دوستان!
من برای ذخیره اطلاعات در فرم های باند(bound) از کد زیر استفاده می کنم اما نمیدانم در بعضی از دیتابیس ها چرا از خاصیت Dirty فرم ایراد گرفته میشود و در و مثل اینکه در دیتابیس این خاصیت وجود ندارد.
Dim msg As Integer
If IsSave = False Then
If Me.Dirty Then
msg = MsgBoxFa(" ÂíÇ ÊÛííÑÇÊí ßå ÇíÌÇÏ ßÑÏå ÇíÏ ÐÎíÑ å ÔæÏ¿" & vbCrLf & _
".Ó ÇÒ ÐÎíÑå ¡ÇØáÇÚÇÊ Èå åí æÌå ÈÇÒ ÑÏÇäÏå äÎæÇåÏ ÔÏ", vbYesNo, "...ÈÑäÇãå")
If msg = vbYes Then
IsSave = True
Else
Me.Undo
End If
End If
End If
با تشکر
من برای ذخیره اطلاعات در فرم های باند(bound) از کد زیر استفاده می کنم اما نمیدانم در بعضی از دیتابیس ها چرا از خاصیت Dirty فرم ایراد گرفته میشود و در و مثل اینکه در دیتابیس این خاصیت وجود ندارد.
Dim msg As Integer
If IsSave = False Then
If Me.Dirty Then
msg = MsgBoxFa(" ÂíÇ ÊÛííÑÇÊí ßå ÇíÌÇÏ ßÑÏå ÇíÏ ÐÎíÑ å ÔæÏ¿" & vbCrLf & _
".Ó ÇÒ ÐÎíÑå ¡ÇØáÇÚÇÊ Èå åí æÌå ÈÇÒ ÑÏÇäÏå äÎæÇåÏ ÔÏ", vbYesNo, "...ÈÑäÇãå")
If msg = vbYes Then
IsSave = True
Else
Me.Undo
End If
End If
End If
با تشکر