ابو البشر

ممكن نعم او تحت حدث الضغط على زر مثلا حسب احتياجك

انظر الصورة واستخدم هذا بدل الموجود لديك """""" MsgBox "هذه البيانات غير موجود يرجى اعادة ادخالها" DoCmd.OpenForm "tawfrm", acNormal Response = acDataErrContinue

استخدم هذا ....... Dim x As Integer, mov_st As String Dim rst As Recordset Set rst = CurrentDb.OpenRecordset("SELECT prodcut.id, prodcut.prodcut FROM prodcut ORDER BY prodcut.prodcut;") rst.MoveFirst x = 1 mov_st = rst!prodcut Do While Not rst.EOF If mov_st <> rst!prodcut Then x = 1 mov_st = rst!prodcut End If rst.Edit rst!id = x x = x + 1 rst.Update rst.MoveNext Loop MsgBox "تم توزيع الارقام ", vbInformation + vbMsgBoxRight + vbOKOnly, "برنامج" rst.Close Me.Refresh

'طيب لاحظ الاستعلام qry_alldata اذا كان يناسبك ... استخدمه as.accdb

وعليكم السلام ورحمة الله وبركاته ... انظر الصورة ... هل هذا ما تريد ؟؟

جرب المرفق باضافة بعض المطاطعات والوظائف .... وأعلمنا بالنتيجة . ‏‏‏‏‏‏‏‏‏‏‏‏BASEN_2.accdb

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

بالنسبة للاستعلام يمكن حلة ..... بحيث تظهر الوظائف الجديدة والمقاطعات الجديد فيه .... شغل الاستعلام all وجرب ... انشأ التقرير المطلوب انت ونحن نساعدك في المطلوب ...... ‏‏BASEN (1) - نسخة.accdb

بارك الله فيك بسبب استخدامك لمسميات الحقول بالعربية اصبحت العملية صعبة وتأخد وقت طويل ... جرب فتح الاستعلام a هل هذا ما تريد ... اذا كان نعم فاكمل بقية الجداول المطلوبة بنفس الطريقة تقريبا ..... اعانك الله ..... BASEN (1).accdb

اطلب من صاحب الباس ... يزودك بها اخي الكريم لان هذا انتهاك للحقوق

هذا مثل القمر .... بل هو البدر

تفضل ....................... 11.rar

اهلا بك .. واياك

حياك الله ..... تفضل ... 11.rar

تفضل ملفك بعد التعديلات وهي ::::: اضافة جدولين مؤقتين (tbi_tmp و tbi_tmpp ) 11.rar

اهلا بك .... هل هذا هو التصور المطلوب ؟؟؟؟

ممكن مثال مصغر للتطبيق عليه ....

كلام خبير .... نعم اخي السبب في العبارات المحجوزة ................ حاول تقرأ عنها لكى تتجنب التسمية بها ..... والدليل غير مسمى الكائن لديك مثلا بهذه الصورة ... تمشي معاك .. Forms![frmZetMotor].btnsave.Caption = "update" Forms![frmZetMotor].btndelete.Enabled = True Forms![frmZetMotor].btnNew.Enabled = True Forms![frmZetMotor].CodeZet = Me.CodeZet Forms![frmZetMotor].CodeSayara = Me.CodeSayara Forms![frmZetMotor].KM = Me.KM Forms![frmZetMotor].NumKM = Me.NumKM Forms![frmZetMotor].OilType = Me.OilType Forms![frmZetMotor].Cost = Me.Cost Forms![frmZetMotor].Filter1 = Me.Filter2 'Forms![frmZetMotor]!Filter = [Forms]![frmZetMotor]![subqryLastRecordZM].[Form]![Filter] Forms![frmZetMotor].DateChange = Me.DateChange Forms![frmZetMotor].DateRigster = Me.DateRigster

جرب كده ................................... Forms![frmZetMotor].btnsave.Caption = "update" Forms![frmZetMotor].btndelete.Enabled = True Forms![frmZetMotor].btnNew.Enabled = True Forms![frmZetMotor].CodeZet = Me.CodeZet Forms![frmZetMotor].CodeSayara = Me.CodeSayara Forms![frmZetMotor].KM = Me.KM Forms![frmZetMotor].NumKM = Me.NumKM Forms![frmZetMotor].OilType = Me.OilType Forms![frmZetMotor].Cost = Me.Cost Forms![frmZetMotor]!Filter = [Forms]![frmZetMotor]![subqryLastRecordZM].[Form]![Filter] Forms![frmZetMotor].DateChange = Me.DateChange Forms![frmZetMotor].DateRigster = Me.DateRigster

اخي محمد بالاضافة لما ذكر @ابوخليل ربما من نوع الحقل sMembership_No

مرحبامبك ... جمعنا لك الحسنين .... عدل حسب اختيارك واكمل التقرير بما يخدمك .... وان اشكل عليك شيئ اطرح سؤالك بارك الله فيك طبعا يجب عمل نموذج لفتح التقرير لسبب وهو لتحديد الشهر ..... اما الان فهو محدد بالشهر الاول فقط .... hafez-1.accdb

انا عملتها على اساس رقم 2 حسب الصورة .... هل تريدها حسب رقم 1 .... ام ماذا وضح اكثر ؟؟؟ والتكرار ( انا كررتها بسبب اختلاف النسب .... اذا اردت فقط عبارة الفئة1 والفئة2 بدون نسب ممكن .............

انظر <<<<<<<<<<<<<<<<<<<<

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

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