kanory

ممكن شرح مفصل لفهم الفكرة ...

تفضل ..................... الاخير (1).mdb

اكمل الباقي لكي تتعلم .................. مثال جمع.mdb

هل هذا هو المطلوب ... مثال جمع .mdb

مثال جمع الاعداد.mdb

للاسف ليس لدي طابعة الان ..... ولكن تأكد من اعدادات الطابعة والورق ؟؟

بالنسبة للشرح عملنا مربعات نص لكل واجب لتسجيل تاريخ تقديم الواجب باسماء ( wd1 - wd2 - wd3 - wd4 - wd5 ) وجعلناها مخفية حتى لاتظهر في النموذج ثم عملنا هذا الفانك في النموذج وهو محور العمل في التجميع .... Function CountFields1() Dim i, ii As Integer Set db = CurrentDb() Set rs = db.OpenRecordset("SELECT Mo.name, Mo.waj1, Mo.waj2, Mo.waj3, Mo.waj4, Mo.waj5, Mo.waj, Mo.mchro1, Mo.mchro2, Mo.mchro3, Mo.mchro FROM Mo;") rs.MoveFirst Do While Not rs.EOF i = 0 ii = 0 For Each Item In rs.Fields If InStr(1, "mchro1,mchro2,mchro3", Item.name) > 0 And Item.Value = True Then i = i + 1 ElseIf InStr(1, "waj1,waj2,waj3,waj4,waj5", Item.name) > 0 And Item.Value = True Then ii = ii + 1 End If Next Item rs.Edit rs!waj = ii rs!mchro = i rs.Update rs.MoveNext Loop End Function

هذا التقرير ليس مجزأ ............

ليس هناك داعي للاعتذار اخي الكريم هل انت تريد عمل الحفظ أم هذا اسهل لك في استخدام البرنامج ..... لاني عملتها بدون الحفظ ... اي تلقائي يتم الجمع بمجرد الاختيار فقط ... فهل انت تريد زر للحفظ ام ماذا ... انت من يحدد حتى نغير الطريقة ...

طيب هل هذه الحسبة مضبوطة .......

يبدو انك لم ترى ردي هنا

اذا عرفنا سبب تنفيذ امر مكتوب في مربع النص ..... ربما عرفنا طريقة التنفيذ ..... واذا امكن مثال للتنفيذ عليه ..

إذن حان الوقت لاضافة هذه الامثلة للمكتبة ..... شكرا لكم @ابو جودي @Moosak @AlwaZeeR وتقبلوا تحياتي لكم ....

لم اقصد هذا ولكن .... اردت اضافتها لدي ... وعندما قرأت هذه العبارة حذفتها ظنا مني انها غير قابلة للنشر والاستخدام الشخصي ههههههه بارك الله فيك مهندسنا ومروض الاكسس @ابو جودي وانا اعرف انك لم تقصد عدم الاضافة للمكتبة ( اي عدم استخدام تلك الاكواد ) ولكني حبيت امازحك قليلا .... 🌹

استبدل الشيفرة في الزر بهذا .... Dim currentText As Variant Dim newText As String newText = BuildNewText(infoa.Value, anfo2.Value, info3.Value) currentText = allinfo.Value If currentText <> "" Then allinfo.Value = currentText & ", " & newText Else allinfo.Value = newText End If infoa.Value = "" anfo2.Value = "" info3.Value = "" ثم الصق هذا الفانك في النموذج .... Private Function BuildNewText(ParamArray TextValues() As Variant) As String Dim i As Integer Dim textPart As Variant Dim result As String For i = LBound(TextValues) To UBound(TextValues) textPart = Trim(TextValues(i)) If textPart <> "" Then If result <> "" Then result = result & ", " End If result = result & textPart End If Next i BuildNewText = result End Function