jjafferr

1. نعم مافي مشكلة 2. بعمل لك موضوع خاص علشان يستفيد منه الجميع جعفر

أمس ما قدرت اوضع الكود بالطريقة الصحيحة ، لذا وبعد التجربة ، هذا الكود الصحيح (وقد عدّلت الكود في مشاركتي الاولى): Me.نص155 = DMax("Val([رقم العميل])", "البيانات") . والكود بظهوره الصحيح: جعفر

السلام عليكم أخي حربي في نموذج الرواتب / الاستقطاعات / مربع سرد الاستقطاعات ، وفي حدث الضغط على الزر enter ، اضف معادلة elseif التالية (المعادلة بالمقلوب هنا بسبب الكلمات العربية في الكود ، ولكن عند نسخها الى البرنامج ستصبح تمام ان شاء الله): If الاستقطاعات = 1 Then الاستقطاع_الشهري = Int((راتب_الاستقطاع + Nz(فرق_الراتب2)) * 0.1) نسبة_الاستقطاع = 10 مبلغ_الاستقطاع = الاستقطاع_الشهري ElseIf الاستقطاعات = 22 Then الاستقطاع_الشهري = Int(Me.الراتب_الاصلي * Me.الاستقطاعات.Column(5) / 100) نسبة_الاستقطاع = 3 مبلغ_الاستقطاع = الاستقطاع_الشهري لوسمحت تجرب النتائج ، لأني ماقدرت اشغل البرنامج وكان يطلع لي اخطاء!! بس المعادلة المفروض انها تكون صحيحة جعفر

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

وعليكم السلام أخي حسين اسهل طريقة ، انك تعمل جدول خاص بالارقام من 1-255 ، كما هو في الجدول tbl_IP (وعملت لك حقل رقم وحقل نص) ، ومن ثم تستخدم استعلام ، كالتالي: لاحظ الارقام المفقودة في الجدول الذي على اليمين : . والان خطوات الاستعلام: . . . . . . ونتيجة الاستعلام ، والذي به الارقام المفقودة: . جعفر 247.IP.mdb.zip

ولا يهمك جرب هالكود: 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

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