ابو البشر

في احداث النموذج وليس مربعات النص هههههههه .... دائما البرمجة تعلم الصبر والمحاولات المستمرة ...

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

بالمناسب يمكن الغاء النموذج tawfrm وذلك باستخدام هذا مكان الكود السابق الذكر .... جرب ..... حيث يتم عرض رسالة باضافة المدينة أو عدم الاضافة وعند الموافقة يتم اضافة المدينة بدون النموذج ..... وهذا يختصر عليك الوقت في اعادة كتابة المدينة مرة اخرى والعودة للنموذج الرئيسي ... Dim strMsg As String strMsg = "هل تريد إضافة " & NewData & " إلى القائمة؟" If MsgBox(strMsg, vbQuestion + vbYesNo) = vbYes Then Response = acDataErrAdded DoCmd.RunCommand acCmdSaveRecord Else Response = acDataErrContinue End If

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

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

انظر الصورة واستخدم هذا بدل الموجود لديك """""" 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