البحث في الموقع
Showing results for tags 'درس مميز'.
تم العثور علي 2 نتائج
-
.thumb.gif.27c4a79ce23abc61b721f833e6899131.gif)
السلام عليكم ورحمة والله تعالى وبركاته طيب ببساطه انظر للسلسلة النصية الاتية "Moh8202281012343434" ونريد التعديل عليها لتظهر بهذا الشكل "Moh-820-228-101-234-343-4" او بهذا الشكل "Moh,820,228,101,234,343,4" او بهذا الشكل Moh820/228101/234343/4 يتم عمل ذلك من خلال الكود الاتى Function ReFormat(ByVal strText As String, Optional strSymbol As String = "-", Optional intCountDigits As Integer = 3) Dim i As Long ReFormat = "" For i = 0 To Len(strText) - 1 Step intCountDigits If i = 0 Then ReFormat = Mid(strText, i + 1, intCountDigits) Else ReFormat = ReFormat & strSymbol & Mid(strText, i + 1, intCountDigits) End If Next i End Function syntax code ReFormat(string ,Symbol, Count Digits) Result By default syntax used ReFormat(string) Symbol >-->> - Count Digits >-->> 3 اذا من خلال استدعاء الكود عن طريق البنية المفضلة الاتية: ReFormat(string) تحصل على اضافة العلامة - بعد كل 3 مواضع فى السلسلة النصية اما اذا اردت التعديل فى شكل الرمز وعدد المواضع يمكنك استخدام الكود الاتى : ReFormat(string ,Symbol, Count Digits) مثلا لو اردت استخدام الرمز $ بدلا من الرمز - وتريد وضع الرمز فى السلسلة النصية بعد كل خمس مواضع يكون الكود كالأتى: ReFormat(string ,"$", 5)- 3 replies
-
- 1
-
-
- شخابيط
- شخابيط وافكار
- (و22 أكثر)
-
درس مميز سلسلة مهارات في أكسس | 03 | رسائل إرشادية متحركة
Moosak قام بنشرموضوع في قسم الأكسيس Access
السلام عليكم ورحمة الله وبركاته .. أواصل معكم دروس مهارات في برنامج أكسس . ومع فكرة جديدة ومتميزة .. 😉 كيفية عمل رسائل إرشادية متحركة .. متابعة ممتعة أتمناها لكم 🌹 ولتحميل ملف التطبيق من هنا : درس رسائل إرشادية.accdb
- 7 replies
-
- 8
-
-
-
- رسائل إرشادية
- رسائل توضيحية
- (و3 أكثر)