ابو البشر

استخدم هذا ............... If DCount("dates", "aa") > 0 Then Cancel = True MsgBox "هذا التاريخ مسجل مسبقا", vbCritical, "عملية خاطئة" Else DoCmd.GoToRecord , , acNewRec dates = Date End If

ممكن مثال او توضيح اكثر لان موضوع تحويل التقرير ... هناك العديد من المواضيع في المنتدى تتحدث عن تصدير التقرير الى صيغة pdf ..

تقصد اذا كان التاريخ موجود في الجدول تظهر رسالة ... وضح ..

لذلك ممكن تستخدم الورقة والقلم لتسجيل المسميات ..... افكر في عمل لوب لاختصار الكود .. الله ييسر الامور

ادخل التقرير وانظر في الاكواد وكرر الاكواد مثل الموجود مع تغيير المسميات فقط الاستعلامات واكواد النموذج لا تتدخل فيها فقط اكواد التقرير هي التي تحتاج تكرار فقط ... حاول ... وحاول .... وحاول

تم تعديل الكود وانت قمت بتعديل بعص خصائص التقرير .... تفضل <><><><><><> ____________BASEN_5.accdb

اين النموذج الذي يتم من خلالة ادخال الاصناف

حياك الله ... تفضل <><><><><><> ____________BASEN_5.accdb

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

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

بالمناسب يمكن الغاء النموذج 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

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