اذهب الي المحتوي
أوفيسنا

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


الردود الموصى بها

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

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

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

يا كرام ،،

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

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

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

رابط هذا التعليق
شارك

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

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

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

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

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

 

123.png

124.png

  • Like 1
رابط هذا التعليق
شارك

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

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

تم تعديل بواسطه king5star
  • Like 3
  • Thanks 1
رابط هذا التعليق
شارك

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

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

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

 

رابط هذا التعليق
شارك

في ٨‏/٥‏/٢٠٢١ 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

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

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

 

 

 

 

رابط هذا التعليق
شارك

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

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

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

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

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

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

الملف مرفق

 

الأرقام.accdb

  • Like 3
  • Thanks 1
رابط هذا التعليق
شارك

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

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

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

 

 

 

 

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

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

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

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

 

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

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 شكراً لمشاركة الخبرات :fff:

  • Like 3
رابط هذا التعليق
شارك

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

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

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

تميز

  • Like 1
  • Thanks 1
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information