كيف احدد عدد الحروف المدخله لمربع التحرير والسرد في النموذج
بحيث لا تتجاوز على سبيل المثال 30 حرف او رقم
كيف احدد عدد الحروف المدخله لمربع التحرير والسرد في النموذج
بحيث لا تتجاوز على سبيل المثال 30 حرف او رقم
إلهي انت رجائي في كل شدة وأنت لي في كل أمر نزل بي ثقة وعدة
كم من هم يضعف فيه الفؤاد وتقل فيه الحيلة ويشمت به العدو ويخذل فيه الصديق
انزلته بك وشكوته إليك رغبة مني إليك عما سواك فكشفته وفرجته فأنت ولي كل نعمة ومنتهى كل رغبة
يامن اسمه دواء وذكره شفاء وطاعته غنى ارحم من رأس ماله الرجاء وسلاحه البكاء
ياسابق النعم يادافع النغم يا نور المستوحشين في الظلم يا عالماً لايعلم صل على محمد وآله وافعل بي ما انت اهله
رفع
إلهي انت رجائي في كل شدة وأنت لي في كل أمر نزل بي ثقة وعدة
كم من هم يضعف فيه الفؤاد وتقل فيه الحيلة ويشمت به العدو ويخذل فيه الصديق
انزلته بك وشكوته إليك رغبة مني إليك عما سواك فكشفته وفرجته فأنت ولي كل نعمة ومنتهى كل رغبة
يامن اسمه دواء وذكره شفاء وطاعته غنى ارحم من رأس ماله الرجاء وسلاحه البكاء
ياسابق النعم يادافع النغم يا نور المستوحشين في الظلم يا عالماً لايعلم صل على محمد وآله وافعل بي ما انت اهله
kaser906 كتب:كيف احدد عدد الحروف المدخله لمربع التحرير والسرد في النموذج
بحيث لا تتجاوز على سبيل المثال 30 حرف او رقم
اخي الفاضل
السلام عليكم ورحمة الله وبركاته
ضع في حدث قبل التحديث لمربع التحرير والسرد الخاص بك الكود التالي
If Len(Me.ComboBox) > 30 Then MsgBox "عذرا أخي الكريم ... لا يمكن كتابة اكثر من 30 حرف او رقم هنا " Me.ComboBox= Left(Me.ComboBox, 30) End If
ComboBox= اسم مربع التحرير والسرد الخاص بك
بالتوفيق
zahrah كتب:اخي الفاضل
السلام عليكم ورحمة الله وبركاته
ضع في حدث قبل التحديث لمربع التحرير والسرد الخاص بك الكود التالي
If Len(Me.ComboBox) > 30 Then MsgBox "عذرا أخي الكريم ... لا يمكن كتابة اكثر من 30 حرف او رقم هنا " Me.ComboBox= Left(Me.ComboBox, 30) End IfComboBox= اسم مربع التحرير والسرد الخاص بك
بالتوفيق
استاذة
الكود لم يأتي بأي نتيجة بعد اخال النص يتم تحديث البيانات
وكأن الكود غير موجود
إلهي انت رجائي في كل شدة وأنت لي في كل أمر نزل بي ثقة وعدة
كم من هم يضعف فيه الفؤاد وتقل فيه الحيلة ويشمت به العدو ويخذل فيه الصديق
انزلته بك وشكوته إليك رغبة مني إليك عما سواك فكشفته وفرجته فأنت ولي كل نعمة ومنتهى كل رغبة
يامن اسمه دواء وذكره شفاء وطاعته غنى ارحم من رأس ماله الرجاء وسلاحه البكاء
ياسابق النعم يادافع النغم يا نور المستوحشين في الظلم يا عالماً لايعلم صل على محمد وآله وافعل بي ما انت اهله
خلاص استاذة شكرا لقد وجدت حل أخر يفي بالغرض
بقي عندي استفسار
بالنسبة لهذا الكود الذي وضعته يقوم بمسح كامل النص
Me.ComboBox= Left(Me.ComboBox, 30)
هل يمكن جعله يمسح الأحرف الزائده في النص فقط
تقبلي تحياتي
إلهي انت رجائي في كل شدة وأنت لي في كل أمر نزل بي ثقة وعدة
كم من هم يضعف فيه الفؤاد وتقل فيه الحيلة ويشمت به العدو ويخذل فيه الصديق
انزلته بك وشكوته إليك رغبة مني إليك عما سواك فكشفته وفرجته فأنت ولي كل نعمة ومنتهى كل رغبة
يامن اسمه دواء وذكره شفاء وطاعته غنى ارحم من رأس ماله الرجاء وسلاحه البكاء
ياسابق النعم يادافع النغم يا نور المستوحشين في الظلم يا عالماً لايعلم صل على محمد وآله وافعل بي ما انت اهله