jjafferr

ولا يهمك جرب هالكود: Private Sub Form_Current() On Error GoTo err_Form_Current Dim rst As DAO.Recordset mySQL = "SELECT Val([رقم العميل]) AS R FROM البيانات ORDER BY Val([رقم العميل]) DESC" Set rst = CurrentDb.OpenRecordset(mySQL) rst.MoveLast: rst.MoveFirst Me.نص155 = rst!r rst.Close: Set rst = Nothing Exit Sub err_Form_Current: If Err.Number = 3021 Then 'ignor, No Records Me.نص155 = 0 Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub جعفر

تفضل . . وهذا ما كانت رسالة الخطأ تقول: جعفر

السلام عليكم أخي كرار تذكر لما قلت لك: وهو: Error GoTo err_cmd_Combine_Click وانت استخدمت نفس الكود للزر الآخر كذلك!! رجاء تعديل حدث الزر الآخر من err_cmd_Combine_Click الى err_cmd_Combine_Click2 ويوجد في مكانين في الحدث جعفر

نعم سترى هذا الحدث ، لأنك في حقل جديد الكود التالي سيحسب لك عدد السجلات الموجودة في الجدول ، يعني اذا كان رقم العميل متسلسل ، فالطريقة هذه تعطيك آخر رقم موجود (طبعا لأن ارقامك متكررة الآن ، فالرقم اللي بيطلع لك هو 5 ) Me.نص155 = DCount("*", "البيانات") جعفر

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

السلام عليكم شباب المشكلة ان رقم العميل في الجدول عبارة عن نص وليس رقم ، لذلك يجب ان نستخدم الامر Val في الكود حتى يغير النص الى رقم ، ثم نستخدم الدالة DMax جرب هذا الكود: Private Sub Form_Current() Me.نص155 = DMax("Val([رقم العميل])", "البيانات") End Sub . طبعا النتيجة ستكون 3 ، لأن أكبر رقم موجود في رقم العميل هو 3 جعفر

وهذه محاولتي: 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 جعفر

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