jjafferr

وهذه محاولتي: Dim x() As String x = Split(Me!name, " ") First_Letter = Left(Me!name, 1) Me.d = 0 For i = LBound(x) To UBound(x) If First_Letter = Left(x(i), 1) Then Me.d = Me.d + 1 End If Next i جعفر

وعليكم السلام أخوي حربي ان شاء الله اليوم انزل المرفق وانظر في الموضوع ، ومعذرة على التأخير جعفر

. اما التقرير ، فنعم فهدية مسقط التقارير المفروض انها تؤدي الغرض : http://www.officena.net/ib/topic/59415-هدية-مسقط-التقارير/ جعفر

السلام عليكم اذا عندك مجموعة استعلامات ، تحديث/الحاق/حذف ، وكل استعلام يعتمد على نتيجة الاستعلام الذي قبله ، فاليك ما فهمته من الكثير من المواقع على الانترنت: 1. إما ان تستخدم كود VBA بواسطة وحدة نمطية كما قال الاستاذ علي ، هكذا: . 2. واما اذا اردت ان تستعمل الماكرو ، فهناك شئ جدا مهم يجب ان تعرفه ، وهو ان الماكرو سينفّذ جميع الاوامر / الاستعلامات دفعة واحدة ، ولن يطبقها بالتسلسل الذي تريد ، بحيث ان الاستعلامات الاخرى ستبدأ بالعمل قبل ان ينتهي عمل الاستعلام الذي قبله (وخصوصا اذا كان الاستعلام بطيئا) فاذا اردت استعمال الماكرو لهذا الامر ، فالطريقة الصحيحة هي ان تغلق كل استعلام قبل البدء بإستعمال الاستعلام الذي يليه ، هكذا: SetWarnings (No) OpenQuery (Query,"اسم الاستعلام رقم 1", DataSheet, Edit) CloseWindow (Query,"اسم الاستعلام رقم 1", No) OpenQuery (Query,"اسم الاستعلام رقم 2", DataSheet, Edit) CloseWindow (Query,"اسم الاستعلام رقم 2", No) OpenQuery (Query,"اسم الاستعلام رقم 3", DataSheet, Edit) CloseWindow (Query,"اسم الاستعلام رقم 3", No) OpenQuery (Query,"اسم الاستعلام رقم 4", DataSheet, Edit) CloseWindow (Query,"اسم الاستعلام رقم 4", No) SetWarnings (Yes) جعفر

انا اعتذر منك أخي رضا ، فبريدي الخاص كان منتدى بحد ذاته ، فقاطعت الرسائل ، فأثر على الاخضر واليابس جعفر

حياك الله أخوي رضا الله شاكر لك سؤالك عني ، هذا من طيبك واحسانك جعفر

السلام عليكم جرب تلغي الوقت والـ On Timer و الـ interval والامور الاخرى المرتبطة فيه جعفر

حياك الله الان عندك جدول واحد للجهدين 11 و 33 ك واط ، وللتفريق بينهم ، استعملي الاستعلام جعفر

وعليكم السلام شوف الرابط هذا ، وفي نهايته شرح أخونا العود ابوخليل كذلك: http://www.officena.net/ib/topic/61853-فلتر-التاريخ-نصف-سنوى/#comment-401042 جعفر

رحم الله والديك أخوي ابوخليل على هذه المعلومة ، انا ما كنت اعرفها ولكن هل نستطيع تخزين الصور وقرأتها من المجلد وهو مخفي؟ جعفر

السلام عليكم أختي انا عملت تغيير على البرنامج بأكمله ، فرجاء تجربته الان جعفر 238.Faults2.accdb.zip

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

مافي داعي ترفق البرنامج . هذا معناه ان النموذج الفرعي لا يحتوي على التاريخ الموجود في النموذج الرئيسي ، فالنموذج الفرعي يتم تصفيته حسب تاريخ النموذج الرئيسي ، وطبيعي ان لا ترى سجلات في النموذج الفرعي جعفر

وعليكم السلام هل النموذج الرئيسي مرتبط بالنموذج الفرعي بحقل التاريخ؟ جعفر

وعليكم السلام تستطيع ان تصغّر الحقول في الجداول ، بالاضافة ، تستطيع ان تجعل بعض الحقول بشكل عمودي بدل الشكل الافقي العادي ، وهذا سيوفر الكثير من المساحة ، واذا فشل كل شئ ، فيمكنك ان تُصدّر البيانات الى اكسل ، وهناك تستطيع ان تُغيّر حجم الصفحة او % (للأسف الاكسس لا يعمل هذا) وتطبعه من الاكسل جعفر

يستاهلوا الشباب

وعليكم السلام هذه الرسالة معناها انه لا يوجد لديك اوفيس 2010 ، فاذا كان اصدار الافيس لديك غير 2010 ، اليك الرابط الذي فيه تحديثات حزم الاوفيس: http://pcsupport.about.com/od/keepingupwithupdates/a/office-service-pack.htm جعفر

السلام عليكم أختي انا الآن اعمل على برنامجك جعفر

1 و 2 نعم ، اما 3 ، فلا ، والبرنامج اصلا لن يسمح لكن بذلك جعفر

يا حبيبي ، لوسمحت لا تدخلني في امورك الخاصة مع أخي محمد انا فقط ردّيت على الجزء السهل اللي انا عرفته جعفر

السلام عليكم . . . . والنتيجة: جعفر

حياك الله

تفضل ، والعد التنازلي للنوم = 10 دقائق من الان Public Sub Calculate_Diff() '1 'الخدمة الفعلية 'D1 ealier, D2 later Dim D1, D2 As Date D1 = Me.date_recrut D2 = #12/31/2015# 'leave if No date entered If Len(D1 & "") = 0 Then Exit Sub 'don't check get values unless D2 is populated If Len(D2 & "") = 0 Then Exit Sub Call YMDDif3(D1, D2, Y, M, D) '**change 1 'if D >= 30, then make it 1 month If D >= 30 Then D = D - 30 M = M + 1 End If If M >= 12 Then M = M - 12 Y = Y + 1 End If '**1 Me.Année2 = Y Me.Mois2 = M Me.Jours2 = D '2 'أقدمية الجنوب 'Convert Years, Months, Days to southern 'Convert Years to sMonth sM = Y * 4 'Convert every 6 months to sMonths sM2 = Int(M / 6) * 2 'Convert Remaining months to sDays sD = (M - Int(M / 6) * 6) * 10 'Convert Days to sDays sD2 = Int(D / 10) * 3 'Add the sM, sD 'add the sMonths sM = sM + sM2 'add the sDays sD = sD + sD2 'Finalizing 'Convert sD more than 30days to sM sM3 = Int(sD / 30) '# Final sD sD3 = sD - Int(sD / 30) * 30 'add the extra months from sD to sM sM3 = sM + sM3 '# Final sY sY3 = Int(sM3 / 12) '# Final sM sM3 = sM3 - Int(sM3 / 12) * 12 '**change 2 'No more than 6 years If sY3 >= 6 Then Me.Année1 = 6 Me.Mois1 = 0 Me.Jours1 = 0 Else Me.Année1 = sY3 Me.Mois1 = sM3 Me.Jours1 = sD3 End If '**2 '3 'المجموع 'add the Years, Months, Days '**change3 If sY3 >= 6 Then sY3 = 0 sM3 = 0 sD3 = 0 End If '**3 sY4 = sY3 + Y sM4 = sM3 + M sD4 = sD3 + D 'Convert more than 30days to Months sM5 = Int(sD4 / 30) '# Final Days sD5 = sD4 - Int(sD4 / 30) * 30 'add the extra months from the Days sM5 = sM4 + sM5 '# Final Years sY5 = Int(sM5 / 12) + sY4 '# Final Months sM5 = sM5 - Int(sM5 / 12) * 12 Me.Année4 = sY5 Me.Mois4 = sM5 Me.Jours4 = sD5 End Sub جعفر