هل يمكن أن يكون تنسيق الحقل النصي 0000

[حامل المسك]

السلام عليكم ورحمة الله وبركاته،،

وتقبل الله منكم صالح الأعمال،،

وحعلكم في ختام هذا الشهر من المقبولين، وممن قام ليلة القدر إيمانا واحتسابا،،

يا كرام ،،

لدي حقل نصي هل بالإمكان أن يكون تنسيق الأرقام 0000 بحيث إذا كتبت 1 يُكتب بهذه الصورة 0001، لأنه في حال كتابة 0001 يتغير إلى 1 وأنا أحتاج الأصفار على اليسار

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

ولا غنى عن توجيهكم أساتذتنا الكرام،،

[أبو عبدالله الحلوانى]

1 ساعه مضت, حامل المسك said:

لدي حقل نصي هل بالإمكان أن يكون تنسيق الأرقام 0000 بحيث إذا كتبت 1 يُكتب بهذه الصورة 0001،

ان كان الامر قاصر علي التنسيق فقط فانظر هذه الصورة .

اما ان كنت تريد الرقم المدخل لا يتجاوز الأربع خانات يعني أقصي رقم يمكن كتابته في الحقل هو 9999 فيمكنك التعديل علي قناع الادخال بهذا الشكل 

ويمكنك الاستفادة من كلا الخاصيتين معا ولا حرج

 

[حامل المسك]

سلمت يا غالي ،، 

لكن لا يظهر الرقم بهذه الصورة 0001 ..

لاحظ المثال

الأرقام.accdb

[king5star]

15 ساعات مضت, حامل المسك said:

سلمت يا غالي ،، 

لكن لا يظهر الرقم بهذه الصورة 0001 ..

لاحظ المثال

الأرقام.accdb 512 kB · 11 downloads

الأرقام.accdb

 

[king5star]

ومن الممكن استخدام الوحدة النمطية الاتيه فقمت بتصميمها لاجلك ! 

Public Function ZeroComplete(ZCount As Integer, NumValue As String) As String
    

'  ___    _          ___            _  __               _             ___   _ _
' |   \  (_)  ___   | _ )  _  _    | |/ /  __ _   _ _  (_)  _ __     | __| | | | |_    ___   ___  ___  ___   _ _    _ _
' | |) | | | (_-<   | _ \ | || |   | ' <  / _` | | '_| | | | '  \    | _|  | | | ' \  / _ \ (_-< (_-< / -_) | ' \  | || |
' |___/  |_| /__/   |___/  \_, |   |_|\_\ \__,_| |_|   |_| |_|_|_|   |___| |_| |_||_| \___/ /__/ /__/ \___| |_||_|  \_, |
'                          |__/                                                                                     |__/
'    _     ___    __    _   ___   ____   ____   ___   ____   ____   _   ___ _
'  _| |_  |_  )  /  \  / | |_  ) |__  | |__  | ( _ ) |__  | |__  | / | | __| / |
' |_   _|  / /  | () | | |  / /    / /    / /  / _ \   / /    / /  | | |__ \ | |
'   |_|   /___|  \__/  |_| /___|  /_/    /_/   \___/  /_/    /_/   |_| |___/ |_|
'
'ZCount =عدد الاصفار المطلوبة
'NumValue = النص المراد استكمالة باصفار
'ZeroComplete = القيمة الاخيرة بعد التعديل
'
'
    
    
    Dim L_NumValue As Integer, Sub_Count As Integer
    
    L_NumValue = Len(NumValue)
    Sub_Count = ZCount - L_NumValue
    
    If Sub_Count < 0 Then
        MsgBox "ان طول عدد الاصفار المراد تكميلها أصغر من حجم الرقم برجاء التأكد من طول الرمز ."
    Else
        ZeroComplete = String(Sub_Count, "0") & NumValue
    End If

End Function

ولاستدعائها قم بالاتي :

Private Sub txt1_AfterUpdate()
	txt1 = ZeroComplete(5, Me.txt1)
End Sub

***** ملحوظة اخيره يجب ان يكون نوع الحقل نصي او text

تم تعديل مايو 8, 2021 بواسطه king5star

[حامل المسك]

20 ساعات مضت, king5star said:

ومن الممكن استخدام الوحدة النمطية الاتيه فقمت بتصميمها لاجلك ! 

Public Function ZeroComplete(ZCount As Integer, NumValue As String) As String
    

'  ___    _          ___            _  __               _             ___   _ _
' |   \  (_)  ___   | _ )  _  _    | |/ /  __ _   _ _  (_)  _ __     | __| | | | |_    ___   ___  ___  ___   _ _    _ _
' | |) | | | (_-<   | _ \ | || |   | ' <  / _` | | '_| | | | '  \    | _|  | | | ' \  / _ \ (_-< (_-< / -_) | ' \  | || |
' |___/  |_| /__/   |___/  \_, |   |_|\_\ \__,_| |_|   |_| |_|_|_|   |___| |_| |_||_| \___/ /__/ /__/ \___| |_||_|  \_, |
'                          |__/                                                                                     |__/
'    _     ___    __    _   ___   ____   ____   ___   ____   ____   _   ___ _
'  _| |_  |_  )  /  \  / | |_  ) |__  | |__  | ( _ ) |__  | |__  | / | | __| / |
' |_   _|  / /  | () | | |  / /    / /    / /  / _ \   / /    / /  | | |__ \ | |
'   |_|   /___|  \__/  |_| /___|  /_/    /_/   \___/  /_/    /_/   |_| |___/ |_|
'
'ZCount =عدد الاصفار المطلوبة
'NumValue = النص المراد استكمالة باصفار
'ZeroComplete = القيمة الاخيرة بعد التعديل
'
'
    
    
    Dim L_NumValue As Integer, Sub_Count As Integer
    
    L_NumValue = Len(NumValue)
    Sub_Count = ZCount - L_NumValue
    
    If Sub_Count < 0 Then
        MsgBox "ان طول عدد الاصفار المراد تكميلها أصغر من حجم الرقم برجاء التأكد من طول الرمز ."
    Else
        ZeroComplete = String(Sub_Count, "0") & NumValue
    End If

End Function

ولاستدعائها قم بالاتي :

Private Sub txt1_AfterUpdate()
	txt1 = ZeroComplete(5, Me.txt1)
End Sub

***** ملحوظة اخيره يجب ان يكون نوع الحقل نصي او text

ما شاء الله تبارك الله إبدااااع إبداااع أستاذنا كريم،، ولك من اسمك نصيب،،

بارك الله لك في أهلك ومالك وولدك وأسعدك دنيا وآخرة،،

 

[abouelhassan]

في ٨‏/٥‏/٢٠٢١ at 17:05, king5star said:

ومن الممكن استخدام الوحدة النمطية الاتيه فقمت بتصميمها لاجلك ! 

Public Function ZeroComplete(ZCount As Integer, NumValue As String) As String
    

'  ___    _          ___            _  __               _             ___   _ _
' |   \  (_)  ___   | _ )  _  _    | |/ /  __ _   _ _  (_)  _ __     | __| | | | |_    ___   ___  ___  ___   _ _    _ _
' | |) | | | (_-<   | _ \ | || |   | ' <  / _` | | '_| | | | '  \    | _|  | | | ' \  / _ \ (_-< (_-< / -_) | ' \  | || |
' |___/  |_| /__/   |___/  \_, |   |_|\_\ \__,_| |_|   |_| |_|_|_|   |___| |_| |_||_| \___/ /__/ /__/ \___| |_||_|  \_, |
'                          |__/                                                                                     |__/
'    _     ___    __    _   ___   ____   ____   ___   ____   ____   _   ___ _
'  _| |_  |_  )  /  \  / | |_  ) |__  | |__  | ( _ ) |__  | |__  | / | | __| / |
' |_   _|  / /  | () | | |  / /    / /    / /  / _ \   / /    / /  | | |__ \ | |
'   |_|   /___|  \__/  |_| /___|  /_/    /_/   \___/  /_/    /_/   |_| |___/ |_|
'
'ZCount =عدد الاصفار المطلوبة
'NumValue = النص المراد استكمالة باصفار
'ZeroComplete = القيمة الاخيرة بعد التعديل
'
'
    
    
    Dim L_NumValue As Integer, Sub_Count As Integer
    
    L_NumValue = Len(NumValue)
    Sub_Count = ZCount - L_NumValue
    
    If Sub_Count < 0 Then
        MsgBox "ان طول عدد الاصفار المراد تكميلها أصغر من حجم الرقم برجاء التأكد من طول الرمز ."
    Else
        ZeroComplete = String(Sub_Count, "0") & NumValue
    End If

End Function

ولاستدعائها قم بالاتي :

Private Sub txt1_AfterUpdate()
	txt1 = ZeroComplete(5, Me.txt1)
End Sub

***** ملحوظة اخيره يجب ان يكون نوع الحقل نصي او text

بارك الله فيك اخي الكريم استاذ كريم هل لى بسؤال فى نفس النطاق بعد اذن اخى حامل المسك  انا لدى حقل رقمى مرتبط بكود لايمكننى تحويله إلى نصى بس احتاج ربطه بكود إمكانية كتابة كلمة بجوار الرقم دون تغير التنسيق من رقمى لنصى هل هذا ممكن

مع خالص الشكر والتقدير والاحترام

 

 

 

 

[kha9009lid]

مشاركة مع اخي @king5star واستاذي القدير @أبو عبدالله الحلوانى

الفكرة باختصار لاداعي لتغيير تنسيق الحقل الى 0000

وايضا لاداعي لوضع قناع ادخال للحقل ( اكثر خاصية اتجنبها )

وبالتالي نتحكم بمدخلات الحقل وتنسيقها عن طريق كود بسيط في حدث بعد التحديث لحقل رقم

If Not IsNumeric([رقم]) Or Len([رقم]) > 4 Then
MsgBox "هذا الحقل رقمي فقط وبعدد 4 ارقم"
Me.رقم = ""
Else
Me.رقم = Format([رقم], "0000")
End If

اذا اردنا ارقام اكثر نغير رقم 4 الى اي رقم اكبر وكذلك نضع اصفار في السطر الخامس بنفس عدد الرقم في السطر الاول

الملف مرفق

 

الأرقام.accdb

[king5star]

6 ساعات مضت, abouelhassan said:

بارك الله فيك اخي الكريم استاذ كريم هل لى بسؤال فى نفس النطاق بعد اذن اخى حامل المسك  انا لدى حقل رقمى مرتبط بكود لايمكننى تحويله إلى نصى بس احتاج ربطه بكود إمكانية كتابة كلمة بجوار الرقم دون تغير التنسيق من رقمى لنصى هل هذا ممكن

مع خالص الشكر والتقدير والاحترام

 

 

 

 

وبارك عليك اخي 
اما السؤال فلا يمكن وضع نصوص او كلمات او احرف او رموز داخل حقل نصي ولكن ممكن انشاء وحدة نمطيه تحدث البيانات المرتبطة وتغير حقل الربط لاى شئ تريدة بشرط يكون مفهرس

10 ساعات مضت, حامل المسك said:

ما شاء الله تبارك الله إبدااااع إبداااع أستاذنا كريم،، ولك من اسمك نصيب،،

بارك الله لك في أهلك ومالك وولدك وأسعدك دنيا وآخرة،،

 

وبارك الله فيك اخى ووفقك الله دائماً الى ما تحت وترضي  .

4 ساعات مضت, kha9009lid said:

مشاركة مع اخي @king5star واستاذي القدير @أبو عبدالله الحلوانى

الفكرة باختصار لاداعي لتغيير تنسيق الحقل الى 0000

وايضا لاداعي لوضع قناع ادخال للحقل ( اكثر خاصية اتجنبها )

وبالتالي نتحكم بمدخلات الحقل وتنسيقها عن طريق كود بسيط في حدث بعد التحديث لحقل رقم

If Not IsNumeric([رقم]) Or Len([رقم]) > 4 Then
MsgBox "هذا الحقل رقمي فقط وبعدد 4 ارقم"
Me.رقم = ""
Else
Me.رقم = Format([رقم], "0000")
End If

اذا اردنا ارقام اكثر نغير رقم 4 الى اي رقم اكبر وكذلك نضع اصفار في السطر الخامس بنفس عدد الرقم في السطر الاول

الملف مرفق

 

الأرقام.accdb 560 kB · 7 downloads

كود ممتاز اخى @kha9009lid شكراً لمشاركة الخبرات 

[حامل المسك]

5 ساعات مضت, kha9009lid said:

مشاركة مع اخي @king5star واستاذي القدير @أبو عبدالله الحلوانى

الفكرة باختصار لاداعي لتغيير تنسيق الحقل الى 0000

وايضا لاداعي لوضع قناع ادخال للحقل ( اكثر خاصية اتجنبها )

وبالتالي نتحكم بمدخلات الحقل وتنسيقها عن طريق كود بسيط في حدث بعد التحديث لحقل رقم

If Not IsNumeric([رقم]) Or Len([رقم]) > 4 Then
MsgBox "هذا الحقل رقمي فقط وبعدد 4 ارقم"
Me.رقم = ""
Else
Me.رقم = Format([رقم], "0000")
End If

اذا اردنا ارقام اكثر نغير رقم 4 الى اي رقم اكبر وكذلك نضع اصفار في السطر الخامس بنفس عدد الرقم في السطر الاول

الملف مرفق

 

الأرقام.accdb 560 kB · 8 downloads

الله الله الله ...

أسأل الله في هذه الساعات المباركات أن يوفقكم ويسعدكم سعادة لا شقاء بعدها أبدا،،،

تميز