jjafferr

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

وعليكم السلام أخي ممكن تعطينا مثال على الاجابة الصحيحة ، من بياناتك جعفر

اذا انت ما تعرف ، واويلاه بما انك قلت "بمجرد فتح البرنامج" ، طيب في البرنامج الاصلي ، 1. هل هناك ماكرو بإسم autoexec ، اذا في ، رجاء ترفقه لي ، 2. وماذا اسم النموذج الاول اللي ينفتح (من خلال هذا النموذج سنرى في الكود اسم الاستعلام) ، وكذلك اريدك ترفقه جعفر

هلا والله

وعليكم السلام اقول ابوالشباب ، ياريت تخبرني اسم الاستعلام اللي يحدث 10% حق كل الموظفين جعفر

. في هذه الحالة ، يجب ان يكون الكود في الحدث تنسيق الجزء الصحيح من التقرير ، وهو ذيل التقرير ، لاحظ هذا الفيديو : . جعفر

وعليكم السلام انا قلت: . وانت اضفتها الى الحقل الخطأ ، الحقل استقطاعات_الموظف!!: . المفروض تكون هنا: جعفر

وعليكم السلام اذا كان اسم الحقل الذي تريد نسخ المعلومة التي فيه Text0 ، فيصبح الكود: Me.Text0.SetFocus DoCmd.RunCommand acCmdCopy والان تستطيع ان تلصق هذه القيمة في اي برنامج جعفر

المتغير مكتوب بعد الجملة: "code_items=" سواء للنص او الرقم او التاريخ ، او اذا القيمة مأخوذة من النموذج .... فيجب ان تعرف نوع الحقل PrinterID ، وعلى اساسة تختار اي كود مناسب له الامثلة كلها هناك جعفر

وعليكم السلام المشكلة ليست في اصدار الاوفيس ، وانما البرنامج كان معمول على اكسس 32بت ، وانت الان تستعمل اكسس 64بت ، راجع هذا الرابط لبعض المعلومات: http://www.officena.net/ib/topic/64036-هل-استخدم-اوفيس-32-بت-او-64-بت/ جعفر

وعليكم السلام هذا الرابط به الامثلة والطريقة التي تحتاج لها: http://www.officena.net/ib/topic/61469-امثلة-بسيطة-للدالة-dlookup/ جعفر

عفوا اخي سعيد قصده msgbox me.page جعفر

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 جعفر