Jump to content
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


Recommended Posts

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

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

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

يا كرام ،،

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

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

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

Link to post
Share on other sites
1 ساعه مضت, حامل المسك said:

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

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

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

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

 

123.png

124.png

  • Like 1
Link to post
Share on other sites
Posted (edited)

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

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

Edited by king5star
  • Like 3
  • Thanks 1
Link to post
Share on other sites
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

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

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

 

Link to post
Share on other sites
في ٨‏/٥‏/٢٠٢١ 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

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

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

 

 

 

 

Link to post
Share on other sites

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

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

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

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

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

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

الملف مرفق

 

الأرقام.accdb

  • Like 3
  • Thanks 1
Link to post
Share on other sites
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
Link to post
Share on other sites
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
Link to post
Share on other sites

Join the conversation

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

Guest
Reply to this topic...

×   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.

  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...

Important Information