كيف أجعل الحقل (رقم ) ويقبل السلاش أو باكسلاس

[أبو العقاب]

السلام عليكم

كما في السؤال 

كلف أجعل الحقل رقم 
وقبل الاضافات مثل /  أو - أو \

وجزاكم الله خيرا

[jjafferr]

وعليكم السلام 🙂

 

اذا كنت تريد "تنسيق" الرقم يكون 123/2021 ، فيمكن في اعدادات تنسيق الحقل في الجدول عمل: 000/0000 ، ولكن واقع الامر سيكون الرقم 1232021 في جميع تعاملاتك البرمجية 🙂

وتستطيع كذلك استعمال اعدادات قناع الادخال 🙂

 

جعفر

[أبو العقاب]

مشكور اخي الكريم

هو احيانا يكون الرقم 

1-2007

30-2023

144-2019

اذا كان الحقل رقم 

لا يمكن الادخال 

هل من طريقة لاتمام ذلك

[SEMO.Pa3x]

استخدم تقنية Regex

الباترن:

^\d+(\/\d+)*$

 

Option Compare Database
Option Explicit

Private Sub txt_number_AfterUpdate()
    If RegexMatch(txt_number, "^\d+(\/\d+)*$") = True Then
        MsgBox "عملية ناجحة"
    Else
        MsgBox "عملية خاطئة، الحقل يتضمن نصوص"
    End If
End Sub


' ----------------------------------------------------------------------'
' Return True if the given string value matches the given Regex pattern '
' ----------------------------------------------------------------------'
Public Function RegexMatch(value As Variant, pattern As String) As Boolean
    If IsNull(value) Then Exit Function
    ' Using a static, we avoid re-creating the same regex object for every call '
    Static regex As Object
    ' Initialise the Regex object '
    If regex Is Nothing Then
        Set regex = CreateObject("vbscript.regexp")
        With regex
            .Global = True
            .IgnoreCase = True
            .MultiLine = True
        End With
    End If
    ' Update the regex pattern if it has changed since last time we were called '
    If regex.pattern <> pattern Then regex.pattern = pattern
    ' Test the value against the pattern '
    RegexMatch = regex.test(value)
End Function

 

تم تعديل يونيو 9, 2021 بواسطه SEMO.Pa3x

[أبو العقاب]

بوركت
هذا الكود يوضع في حدث بعد التحديث للحقل؟؟

[SEMO.Pa3x]

2 ساعات مضت, أبو العقاب said:

بوركت
هذا الكود يوضع في حدث بعد التحديث للحقل؟؟

نعم

[jjafferr]

9 ساعات مضت, jjafferr said:

اذا كنت تريد "تنسيق" الرقم يكون 123/2021 ، فيمكن في اعدادات تنسيق الحقل في الجدول عمل: 000/0000 ، ولكن واقع الامر سيكون الرقم 1232021 في جميع تعاملاتك البرمجية 🙂

اذن يكفي

0-0000

 

جعفر

[أبو العقاب]

بعد اجراء اللازم
ظهرت هذه الرسالة

[jjafferr]

لعمل طريقتي :

.

ادخال البيانات يكون هكذا مثلا 12021 او 992021

 

والنتيجة :

.

لأنه تنسيق ، فالمستخدم يراه بالشرطة ، ولكن برمجيا لا يوجد به شرطة ، وحتى لما طلبت طول الحقل ، نرى ان طوله بعدد الارقام فقط 🙂

لاحظ لما تنقر على الرقم في الجدول ، يعطيك الرقم فقط :

 

جعفر