آموزش Excel

[مهندس بیاتسرپرست]

مهندس بیات

جلوگیری از ثبت عدد در فیلد از نوع short Text

جلوگیری از ثبت عدد در فیلد از نوع short Text : در هنگام برنامه نویسی در محیط نرم افزار اکسس اگر لازم باشد تا مانع از ورود و ثبت اطلاعات عددی در فیلدی که جنس Short Text در هنگام تعریف جدول ایجاد شده است می توان از کدهای زیر استفاده کرد.

برای انجام این کار ابتدا یک ماژول در محیط VBA ایجاد کنید و کدهای زیر را در درون آن قرار دهید:

 

Visual Basic

Public Function TextOnly(ByVal strText As String) As Boolean 'www.mrplanner.ir Dim intCounter As Integer For intCounter = 1 To Len(strText) If IsNumeric(Mid(strText, intCounter, 1)) Then TextOnly = False Exit Function End If Next intCounter TextOnly = True End Function

1 2 3 4 5 6 7 8 9 10 11

Public Function TextOnly(ByVal strText As String) As Boolean 'www.mrplanner.ir     Dim intCounter As Integer     For intCounter = 1 To Len(strText)         If IsNumeric(Mid(strText, intCounter, 1)) Then             TextOnly = False             Exit Function         End If     Next intCounter     TextOnly = True End Function

در مرحله دوم بایستی در رویداد Before Update فرم متصل به جدولی که فیلد از جنس Short Text در درون آن قرار گرفته است ، کدهای زیر را وارد کنید:

Private Sub Form_BeforeUpdate(Cancel As Integer) 'نام فيلد مورد نظر با fieldName جايگذين کنيد ' www.mrplanner.ir If Len(Me.nam & vbNullString) = 0 Then Exit Sub Else If Not TextOnly(Me.nam) Then MsgBox "امکان ورود مقدار عددي در اين فيلد وجود ندارد ", _ vbExclamation, "ورود داده نامعتبر" Cancel = True End If End If End Sub

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Private Sub Form_BeforeUpdate(Cancel As Integer)   'نام فيلد مورد نظر با fieldName جايگذين کنيد   ' www.mrplanner.ir        If Len(Me.nam & vbNullString) = 0 Then         Exit Sub     Else         If Not TextOnly(Me.nam) Then    MsgBox "امکان ورود مقدار عددي در اين فيلد وجود ندارد ", _             vbExclamation, "ورود داده نامعتبر"             Cancel = True         End If     End If   End Sub

---

برای دانلود فایل نمونه این آموزش اینجا کلیک کنید