ذخیره تغییرات


فرض نمایید که درون برنامه ای که توسط اکسس طراحی نموده اید فرمی  حاوی چند تکس باکس اطلاعاتی را برای  کاربر  به نمایش می گذارد حال اگر کاربر بطور خواسته و یا ناخواسته تغییراتی را در محتوای اطلاعات یک یا چند تکس باکس  اعمال نماید  طبق تعریفی که میکنیم اکسس قبل از رفتن به رکورد بعدی طی پیغامی به کاربر اعلام می کند که اطلاعات یک یا چند تکس باکس تغییر یافته آیا باید این تغییرات جدید جایگزین اطلاعات قبلی شوند یا از  ذخیره این تغییرات صرفنظر شود .

برای آشنایی با روش انجام این کار در ادامه مطلب همراه من باشید .

1. ابتدا جدولی برای ذخیره اطلاعات با مشخصات زیر طراحی و آن را به نام  tbl-personel  ذخیره نمایید .



ایجاد جدول

2.از سربرگ Creat  بر روی گزینه  Form کلیک نمایید تا فرمی از جدول شما تهیه و در اختیار شما قرار گیرد .
چیدمان فرم را به سلیقه خود تغییر دهید تا شکیل تر گردد.
ایجاد فرم



3. یک command button  را به محیط فرم اضافه نموده عملکرد آن را از طریق پنجره ویزارد باز شده بصورت Go to next record انتخاب نمایید و هر نام و عنوانی که مدنظر دارید را به آن اختصاص دهید.
ویزارد فرم


4 .در نمای Design  فرم خود همزمان کلیدهای ALT+F11  را فشار داده تا وارد محیط کد نویسی شوید  .

5. کد های زیر را کپی نموده و آنها را در محیط ماژول خود وارد نمایید .

Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim msg As String

On Error GoTo Form_BeforeUpdate_Err

  If Me.Dirty And Not Me.NewRecord Then
     msg = "اطلاعات برخی از فیلدها تغییر یافت " & vbCr & vbCr & "این تغییرات ذخیره شوند .....؟"
     If MsgBox(msg, vbYesNo + vbDefaultButton2 + vbQuestion, "اعمال تغییرات") = vbNo Then
         Me.Undo
     End If
  End If

Form_BeforeUpdate_Exit:
Exit Sub

Form_BeforeUpdate_Err:
MsgBox Err & " : " & Err.Description, , "Form_BeforeUpdate()"
Resume Form_BeforeUpdate_Exit:
End Sub

6.حال فرم خود را اجرا نمایید هرفیلدی را که برای بار اول ذخیره نموده اید را اگر بخواهید تغییری در آن اعمال کنید این پیغام نمایش داده می شود و در صورت تایید شما این تغییرات جایگزین مقادیر اولیه می شوند ودر غیر این صورت این تغییرات جدید ثبت نمی شوند.

فایل نمونه را می توانید از لینک زیر دانلود نمایید .

 دانلود نمونه






طبقه بندی: آموزش ACCESS،
برچسب ها:فرم اکسس، ذخیره تغییرات،
تاریخ : سه شنبه 7 آذر 1396 | 10:22 ب.ظ | نویسنده : امید شهری | نظرات()
.: Weblog Themes By Bia2skin :.