البحث في الموقع
Showing results for tags 'code'.
تم العثور علي 7 نتائج
-
.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 أكثر)
-
السلام عليكم و كل عام و أنتم بخير لدى حقل لرقم الفصل وحقل مجموع الطالب فى السنة السابقة أرغب فى ملء هذا الحقل حسب النمط التالى بالتتابع حيث يتم ترتيب مجموع التلاميذ تنازليأ و النمط هو مثلا 5 فصول 1_2_3_4_5 2_3_4_5_1 3_4_5_1_2 4_5_1_2_3 5_1_2_3_4 وهكذا بحيث تتحقق أكبر نسبة من التوازن بين مجموع المجاميع فى الفصول كيف يمكن كتابة كود لحلقة تكرار تحقق النمط السابق وفقكم الله
-
السلام عليكم و رحمة الله هذا كود يقوم 1- حساب عدد حصص كل معلم وتسجيلها فى مربع نص اسمه sthu88 2 - حساب مجموع كل الحصص و تدوينها فى مربع نص اسمه total وذلك بالتنقل عبر حقول الاستعلام Q_all و حساب الحصص و ذلك باستخدام رقم الحقل فى dao وقد قمت بعمل دوارتين لهذا الغرض و قد اضطررت لتكرار جزء من الدوارة الأولى و استخدامه فى الدوارة الثانية Private Sub تفصيل_Format(Cancel As Integer, FormatCount As Integer) Dim db As Database Dim rs As DAO.Recordset Dim i As Integer Dim ii As Integer Dim tt As Integer Set db = CurrentDb Set rs = db.OpenRecordset(Me.RecordSource) rs.MoveFirst Do Until rs.EOF For i = 3 To 47 If rs(i) <> "" Then ii = ii + 1 End If Next i tt = tt + ii rs.MoveNext ii = 0 Loop rs.MoveFirst rs.FindFirst ("[tt_tname]=" & [tt_tname]) For i = 3 To 47 If rs(i) <> "" Then ii = ii + 1 End If Next i Me.sthu88 = ii Me.total = tt rs.Close Set rs = Nothing db.Close Set db = Nothing End Sub الجزء المكرر هو هذا الذى يحسب عدد حصص كل مدرس For i = 3 To 47 If rs(i) <> "" Then ii = ii + 1 End If Next i Me.sthu88 = ii هل يمكن ضم الدوارتين معا كما كنت أحاول سابقا لكنى لم أنجح شكرا لكم مقدما الملف مرفق و التقرير rpt_alls newTab113.rar
-
كود توزيع الفصول
-
Version 1.0.0
400 تنزيل
السلام عليكم هذا ملف يشتمل على كود يوزع الفصول على حسب الأعدااد التى تحددها لكل صف و يمللأ كمبوبوكس بالنتيجة مساهمة بسيطة فى شهر الصيام الباب مفتوح للتعديل و النقد وفقكم الله يحتاجه من يقومون بوضع الجداول -
اعرض الملف كود توزيع الفصول أوتوماتيكيا السلام عليكم هذا ملف يشتمل على كود يوزع الفصول على حسب الأعدااد التى تحددها لكل صف و يمللأ كمبوبوكس بالنتيجة مساهمة بسيطة فى شهر الصيام الباب مفتوح للتعديل و النقد وفقكم الله يحتاجه من يقومون بوضع الجداول صاحب الملف عبد الفتاح كيرة تمت الاضافه 13 يون, 2017 الاقسام قسم الأكسيس
-
السلام عليكم أعضاء أوفيسنا الكرام أقدم لكم الفيديو السابع من فديوهات شرح أكسيس و يشرح هذا الفيديو طريقة البحث باستخدام شرطين وقتا ممتعا ملف الشرح مرفق أرجو من الإخوة الضغط على السهم الأبيض أعلى الفيديو و عمل مشاركة كما أكرر طلبى المعتاد من الأخ أبى خليل بضم الفيديو إلى الموضوع المثبت كالعادة وفقكم الله كيف تبحث بشرطين فى حقل قاعدة بيانات أكسيس.rar