برچسب ها: Access
این پست شامل 0 پاسخ ، و دارای 1 کاربر است ، و آخرین بار توسط مهندس بیات در 1 سال، 7 ماه پیش بروز شده است.
هشدار پر کردن فیلد
-
مهندس بیات 2019-08-06 در 11:21 ق.ظ #7849
هشدار پر کردن فیلد
هشدار پر کردن فیلد : هنگامی که یک جدول در اکسس طراحی می کنیم و خواص برخی از فیلدهای آن را از نظر الزام برای پر کردن توسط کاربر یعنی خاصیت Requierd را روی Yes قرار می دهیم ، در زمان ورود اطلاعات در فرم اگر آن فیلد یا فیلدهای مشخص خالی بمانند پیامی مبنی بر عدم تکمیل اطلاعات صادر می گردد. با استفاده از کدهای VBA زیر می توان پیام فارسی در این خصوص صادر کرد. برای استفاده از این کدها کافی است آن را در رویداد On Error فرم کپی کنید. در کدهای نوشته شده فرض بر این قرار دارد که جدولی داریم که در آن دو فیل با نام های NationalId و tel وجود دارد که خاصیت Requierd را روی Yse قرار داده ایم. شما می توانید با این الگو فیلدهای مورد نظر خود را که در جدول تعریف کرده اید به کدها اضافه نمائید.
Visual Basic123456789101112131415161718192021222324252627282930313233343536Private Sub Form_Error(DataErr As Integer, Response As Integer)'If an error occurs because of missing data in a required field'display our own custom error messageConst conErrRequiredData = 3314Const conErrNotSavedData = 2169If DataErr = conErrRequiredData ThenMsgBox ("درج اطلاعات در اين فيلد الزامي است")If IsNull(Me.NationalId) ThenMe.NationalId.SetFocusMe.NationalId.BackColor = vbYellowElseIf IsNull(Me.tel) ThenMe.tel.SetFocusMe.tel.BackColor = vbYellowEnd IfResponse = acDataErrContinueElseIf DataErr = conErrNotSavedData ThenMsgBox ("داده ذخيره نشد")Response = acDataErrContinueElse'Display a standard error messageResponse = acDataErrDisplayEnd IfEnd SubPrivate Sub NationalId_AfterUpdate()Me.NationalId.BackColor = vbWhiteEnd SubPrivate Sub tel_AfterUpdate()Me.tel.BackColor = vbWhiteEnd Sub
انجمن ‘آموزش های کوتاه اکسس’ برای جستار ها و پاسخ ها جدید بسته است.