ابو البشر

استخدم 0<>

طريقة اخرى للاحصائية السابقة ....

اخفيها من استعلام ... بحيث تضع في معيار الارصدة >0

لاحظ عدد السجلات بعد تجميعها كلها ...............

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

انظر ............

هل هذا ما تريد مثلا لشهر 6 ......

استخدم هذا ............... 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