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

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

اريد مساعده في مشكله 

و هي كيفية اضافة زر لفتح التقويم ومن ثم اختيار التاريخ 

انا اعلم انها من toolBox لكن لا يوجد لدي اداه التقويم

حتى اني لا استطيع الزياده في ادوات التول بوكس 

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

لقد تم عمل المطلووب اشكر الجميع على اهتمامه 

اشكركم جزيل الشكر 

هذا المنتدى نمن افيد ما يكون

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

كيف حال الاخوة الاعضاء و المشرفين 

اريد ان اعرف كيف اعمل فورم تاكيدي لعمل اكمر معين 

مثال عند كبس العميل لزر حذف تظهر له رساله " هل انت متاكد من حذف الفاتووره " 

اذا اختار "نعم" يطبق الامر و اذا اختار "لا" يختفي فورم الرسالة 

مع كامل تحياتي 

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

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

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

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

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

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

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

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

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

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

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 الخاص برقم الفتوره 

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

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

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

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

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

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

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

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

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

و الثاني 

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

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

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

16 ساعات مضت, ياسر خليل أبو البراء said:

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

أخي الكريم عبد الرحمن

أهلاً بك في المنتدى ونورت بين إخواني ..بس يا ريت اللي يبارك لك تعدل الصورة عشان دماغي اتلوحت

بالنسبة لسؤالك .. قم بتغيير الخاصية TabIndex بحيث تقوم بالترتيب الذي ترغبه حيث أول تكست بوكس سيكون صفر .. وحدد التالي وغير الخاصية إلى 1 ..ثم حدد التالي وغير الخاصية إلى 2 .. وأكمل ولا تكمل إنت

تقبل تحياتي

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

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

لقد تم حل المشكله بنجاح

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

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

اخواني الاعزاء هذي اول مشاركة لي ارجو ان يكون سوالي في المكان الخصص له 

اخواني انا الان عمل فورم وما بدوس زر Tab  في الكيبور بيتنقل من TextBox الى اخر ومن عنصر الى عنصر بشكل عشوائي وغير منظم 

لان ارقام العناصر غير مرتبه 

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

بدون تغير اماكن العناصر او الكائنات