كيف اجل قيمه افتراضيه تتغير تسلسليا ل الـ TextBox

[عبدالرحمن طلعت]

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

لدي سؤالان الول

اريد ان اجعل ل TextBox معين قيمه افتراضيه تتغير تسلسايا (تصاعدي)

مثال : TextBox لرقم الفاتوره

رقم اخر فاتوره وليكن 60

عند عمل فاتوره جديده يتحول الرقم في التيكست بوكس الخاص برقم الفاتورة من 60 الى 61 وهكذا 

هل يوجد كود لعمل مثل هذا 

و الثاني 

اريد كود لقفل الـ TextBox وعدم مقدره المستخدم للتعديل عليه 

وكود اخر لجعل الـ TextBox لا يقبل الارقام 

وتقبلو تحياتي (: 

[عبد العزيز البسكري]

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

تفضّل أخى الكريم بعض المحاولات ربما تفي بالغرض ..

1- كود التّرقيم التّلقائي بالتاكست بوكس :

Sub Tasselssol() 'tassalssol numerique
mm = 5     
Do Until Feuil1.Cells(mm, "a").Text = ""   
mm = mm + 1
Loop
TextBox1.Value = mm + 1 - 5
End Sub

Private Sub UserForm_Initialize()
Tasselssol
End Sub

على أساس رقم الصف بالشيت هو الصف الخامس (5) و العمود الأوّل (a) ..واسم الشيت Feuil1

ملاحظة : يجب كتابة و إضافة  عبارة " Tasselssol " بآخر سطر بالكود الذي سوف تستعمله  

- تعطيل الكتابة داخل التاكست بوكس .. يمكنك استعمال هذه الخاصّية :

3 - عدم قبول الأرقام بالتاكست بوكس .. بإمكانك استعمال هذا الكود :

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case 32 To 64, 91 To 96, 123 To 126
MsgBox ("إنتبه.. يجب كتابة الحروف فقط")
KeyAscii = 0
Exit Sub
End Select
End Sub

خالص تحيّاتي

[عبدالرحمن طلعت]

5 ساعات مضت, عبد العزيز البسكري said:

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

تفضّل أخى الكريم بعض المحاولات ربما تفي بالغرض ..

1- كود التّرقيم التّلقائي بالتاكست بوكس :

Sub Tasselssol() 'tassalssol numerique
mm = 5     
Do Until Feuil1.Cells(mm, "a").Text = ""   
mm = mm + 1
Loop
TextBox1.Value = mm + 1 - 5
End Sub

Private Sub UserForm_Initialize()
Tasselssol
End Sub

على أساس رقم الصف بالشيت هو الصف الخامس (5) و العمود الأوّل (a) ..واسم الشيت Feuil1

ملاحظة : يجب كتابة و إضافة  عبارة " Tasselssol " بآخر سطر بالكود الذي سوف تستعمله  

- تعطيل الكتابة داخل التاكست بوكس .. يمكنك استعمال هذه الخاصّية :

3 - عدم قبول الأرقام بالتاكست بوكس .. بإمكانك استعمال هذا الكود :

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case 32 To 64, 91 To 96, 123 To 126
MsgBox ("إنتبه.. يجب كتابة الحروف فقط")
KeyAscii = 0
Exit Sub
End Select
End Sub

خالص تحيّاتي

مشكوووور اخي 

عبد العزيز البسكري

على هذا الوقت الثمين و ذلك المجهود 

زبط معي كل شي

إلا اول كود لم افهمه هل اضع الكود في الزر الخاص ب عمل فتوره جديده ؟ ام اضع الكود في الـ TextBox الخاص برقم الفتوره 

وياريت اذا ما اثقلت عليك ان تعلمني كيف اجعل الكود الاخير لا يقبل الحروف 

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

 

[عبد العزيز البسكري]

العفو أخي الكريم

1 - كود جعل التاكست بوكس لا يقبل الحروف :

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If ChrW(KeyAscii) Like "[!0-9]" Then KeyAscii = 0
End Sub

2 - التّرقيم التّلقائي ..ستجد بالملف المرفق .. 2 أنواع من الأكواد بطريقة مبسطة .. إختر الكود الأول أو الكود الثاني

بالتّوفيق إن شاء الله

 

الترقيم التسلسلي بالفورم.rar

[عبدالرحمن طلعت]

9 ساعات مضت, عبد العزيز البسكري said:

العفو أخي الكريم

1 - كود جعل التاكست بوكس لا يقبل الحروف :

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If ChrW(KeyAscii) Like "[!0-9]" Then KeyAscii = 0
End Sub

2 - التّرقيم التّلقائي ..ستجد بالملف المرفق .. 2 أنواع من الأكواد بطريقة مبسطة .. إختر الكود الأول أو الكود الثاني

بالتّوفيق إن شاء الله

 

الترقيم التسلسلي بالفورم.rar

ماشاء الله تبارك الله عمل اكثر من رائع و محترف جدا اشكرك جزيل الشكر اخي

عبد العزيز البسكري

لقد تم عمل المطلوب اخي الفاضل ارجو ان يوفقك الله لكل خير اخي الغالي 

[ياسر خليل أبو البراء]

بارك الله فيك أخي الغالي عبد العزيز

حاول تطرح موضوعات تعليمية بشكل عام ليستفيد الجميع مما لديك من خبرات

تقبل وافر تقديري واحترامي

[عبدالرحمن طلعت]

في ٥‏/٥‏/٢٠١٦ at 01:37, ياسر خليل أبو البراء said:

بارك الله فيك أخي الغالي عبد العزيز

حاول تطرح موضوعات تعليمية بشكل عام ليستفيد الجميع مما لديك من خبرات

تقبل وافر تقديري واحترامي

كيف ذالك هل اطرحه في المنتدى العام ؟؟ 

لاني جديد في الموقع