jjafferr

وعليكم السلام لوسمحت ترفق برنامجك الذي فيه المشكلة ، لأني لم اصادف هذه المشكلة سابقا ، ولكن بالنظر الى برنامجك قد نصل الى السبب. جعفر

وعليكم السلام نعم ، وكما قال أخي sandanet ، فقارئ الباركود يرسل رقم الباركود وامر الانتقال الى حقل آخر (Enter او Carriage Return) ، وهذه ميزة لمعظم البرامج ، بحيث تستطيع ان تضع كود في حدث "بعد تحديث" الحقل الذي فيه الباركود فاذا اردت ارجاع المؤشر الى نفس حقل الباركود ، فاستعمل الكود التالي (انا استخدمت اسم اي كائن/حقل في النموذج باسم Next_Field) Private Sub BarCode_AfterUpdate() Me.Next_Field.SetFocus Me.BarCode.SetFocus End Sub جعفر

أخي الفاضل رجاء الالتزام بقوانين المنتدى: قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف جعفر

وعليكم السلام تو مو ذه ، مو قالو لك اشتغل بالبخور وفي راسي جني او شيخ ، يخبروني باللي ما خبرتني عنه وما اشوفه عندك اختيارين: 1. تصبر عليّ ليلة الجمعة انزل زيراني واعرف منهم ، وارد عليك ، 2. او ترفق لك مرفق جديد فيه المشكلة ، وتشرح لي وين المشكلة ، وكيف تريد الحل جعفر

وعليكم السلام اعمل التغيير التالي على استعلامك . بدل Current_User اكتب اسم حقل المستخدم اللي في النموذج ، وفي حدث "تحميل" النموذج اكتب : me.requery جعفر

وعليكم السلام أخي الفاضل ، للأسف الشديد ، وليس من العدالة انك لم تُظهر التقرير كاملا في الصورة اعلاه ، والصورة الكاملة (وحسب مرفقك) . اي شيء تريد ان تجمع من هذه التقارير الفرعية انت عملت تغيير في التقرير ، ثم تتوقع النتائج تكون نفسها سابقا وهذا رابط لجزئية اخرى من سؤالك ، وسبحان الله فيه الجمع كذلك لثلاثة تقارير فرعية ، والنتيجة كذلك ان الجمع صحيح: وكما قلت لك في الرابط اعلاه: استاذنا الفاضل ، دعني ارى ما تراه انت ، وعليه احاول ان اجاوب على سؤالك جعفر

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

تفضل 1. نفكك السنة والشهر واليوم (هذا بسبب وجود صفر في اليوم/الشهر ، والذي سنحوله الى 1) . 2. والنتيجة: . 3. الآن نضع المعادلات اعلاه في الامر DateSerial لتحويلها لصيغة تاريخ ، في استعلام تحديث: . 4. والنتيجة المطلوبة: . جعفر . 706.نموذج بيروت بيانات.accdb.zip

وعليكم السلام قد يفيدك الرابط التالي ، فانت تريد ان تعمل تصفية بإسم المستخدم ، والافضل انك تعمله من الاستعلام جعفر

وعليكم السلام شكرا لك أخي شوقي جعفر

وعليكم السلام هذا البرنامج يؤدي الكثير من الاشياء للأكسس ، ومنها طلبك: http://www.skrol29.com/us/vtools.php جعفر

ونعم تستطيع ان تجلب قيم استعلام الى استعلام آخر ، و أحد هذه الطرق هي: ان تفتح الاستعلام الآخر في وضع تصميم ، ثم تجلب الاستعلام Nataej_1_Cors2_E الى الاستعلام المفتوح ، ثم تربط الحقل Taslal2 بحقل مساوي له من الاستعلام الآخر ، بهذه الطريقة انت اخبرت الاستعلام ان المعيار في ربط الاستعلامين هي قيمة الحقل Taslal2 وما يقابلها من الاستعلام الآخر ، وتستطيع حينها ان تضع الحقل الذي تريده من الاستعلام Nataej_1_Cors2_E وسط الحقول الاخرى. العمل اسهل من هذا الشرح بكثير المعادلة التي اعطيتك ، ستكون لحقل واحد ، ولكن لجميع السجلات. واعتقد انه سيكون اسهل لو ترفق برنامجك وتشرح فيه الحقول ، وتعطينا صورة عن النتيجة التي تريدها جعفر

وعليكم السلام رجاء ترفق لنا هذه الجزئية من برنامجك علشان نراه ، وقبل ان ترفعه على الموقع يجب عليك ان تضغظه بواسطة winrar او winzip. جعفر

وعليكم السلام اذا عندك 10 سجلات مثلا ، فكيف ستأخذ قيمة من السجل رقم 4 مثلا؟ المعيار سيكون وسيلتك لتصفية هذا السجل ، او معيارين مثل ID=4 او fName='جعفر' المعادلة هذه نستخدمها عادة لأخذ قيمة من جدول ، ولكننا نستطيع استخدامها لأخذ قيمة من استعلام كذلك ، كما هو الوضع في حالتك جعفر

وعليكم السلام احد الطرق: dlookup("[Taslal2]","Nataej_1_Cors2_E", ....هنا يأتي المعيار....) جعفر

لا يوجد شرح للموضوع ، والشرح التالي لا يدل على المطلوب رجاء فتح موضوع آخر به معلومات كافية ، حتى يستطيع الاعضاء فهم الموضوع ، وبالتالي الاجابة عليه. يُغلق. جعفر

وعليكم السلام الكود اللي توصلنا اليه يستخدم حقلين فقط كمعيار: [رقم الفاتورة] و [اسم العميل] ، تو مو دخّل التاريخ في الموضوع!! جعفر

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

انا الذي اراه من برنامجك هو: . والنتيجة . جعفر

وعليكم السلام نعم ، تستطيعين ان تحذفين المرجع ، ثم بدلا عن الربط المسبق Early Bounding: Dim AccApp as Excel.Application تستخدمين الربط المتأخر Late Bounding: Dim AccApp as object . وهذا ينطبق على اي متغير للأكسس في الكود ، ولكن الكود قد يحتاج الى تعديل بعض الاحيان ، وبعض الاحيان لا يمكن العمل بدون الربط المسبق ، جعفر

وعليكم السلام اخي محمد واهلا وسهلا بك في المنتدى كما شرح اخواي أوس Sandanet وشفان ان قوانين المنتدى لا تسمح بأكثر من سؤال في كل موضوع ، وبما انهم قد اعطوك الحلول ، فسأقوم بترك الموضوع كما هو ، ولكن رجاء قراءة شروط المنتدى قبل ان تقوم بوضع سؤال آخر شكرا اخي @sandanet واخي @Shivan Rekany ، واستسمحكم على التعديل في مشاركتكم جعفر

وعليكم السلام لوسمحت توضح المطلوب بتفصيل اكثر لوسمحت!! عندك 3 تقارير فرعية ، في كل تقرير فرعي مجموع الرصيد ، فاذا كنت تريد تجمع مجموع التقارير الثلاث ، فالمعادلة ستكون Private Sub تفصيل_Format(Cancel As Integer, FormatCount As Integer) Me.Sum_raseedafter = Me.rpt_2!Sum_raseedafter_rpt2 + Me.rpt_3!Sum_raseedafter_rpt3 + Me.rpt_4!Sum_raseedafter_rpt4 End Sub ولكني ارى انك تسأل عن نفس الشيء الذي سألته هنا: جعفر 680.1.الاجازات - Copy.accdb.zip

في عدة طرق ، بس الاسهل ، مع الحدث بعد تحديث n1 ، مع الضغط على زر البحث: Private Sub أمر176_Click() Me.n1 = Me.n1 - 1 Call n1_AfterUpdate Call أمر20_Click End Sub Private Sub أمر183_Click() Me.n1 = Me.n1 + 1 Call n1_AfterUpdate Call أمر20_Click End Sub جعفر

السلام عليكم الحمدلله انك استطعت الوصول الى حل بالنسبة الى السجل السابق والسجل التالي ، تستطيع استعمال هذا الكود Private Sub cmd_Previous_Click() On Error GoTo err_cmd_Previous_Click DoCmd.GoToRecord , , acPrevious Exit Sub err_cmd_Previous_Click: If Err.Number = 2105 Then MsgBox "هذا هو الســجل الأخير", vbInformation + vbOKOnly, "تنبيه" Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub Private Sub أمر176_Click() On Error GoTo err_أمر176_Click ' Me.Refresh ' ' With Recordset ' If .AbsolutePosition = .RecordCount - 1 Then ' MsgBox "هذا هو الســجل الأخير", vbInformation + vbOKOnly, "تنبيه" ' Else ' DoCmd.GoToRecord , , acNext ' End If ' End With DoCmd.GoToRecord , , acNext Exit Sub err_أمر176_Click: If Err.Number = 2105 Then MsgBox "هذا هو الســجل الأخير", vbInformation + vbOKOnly, "تنبيه" Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub . جعفر