ksaed123

😱 😱اضفت الكود عدة مرات ولم ينج بوركت يداك يا بطل ( ABU FARID ) في ميزان اعمالك تمت تجربت الكود ويعمل بالشكل المطلوب شكرا جزيلا 🧐

السلام عليكم تحياتي للجميع في هذا التجمع ( افيستا ) عندي طلب حول السجل المدني حيث اريده قبول التكرار مع رسالة تحذر وخيار بالتراجع او الاستمرار وجد في هذا المنتدى كود يعمل بشكل المطلوب ولكن لم استطع تنفيده على المثال Dim db As Database Dim CountNum, I As Long Dim MsgNumbr, NewName As String Set db = CurrentDb NewName = [Forms]![Form1]![Txt1] Set rst = db.OpenRecordset("main", dbOpenSnapshot) CountNum = DCount("*", "main", "[Name]=[Forms]![Form1]![Txt1]") If CountNum = 0 Then Exit Sub With rst Do Until .EOF If rst!Name = NewName Then MsgNumbr = MsgNumbr & rst!Num & " " End If .MoveNext Loop End With If MsgBox("سبق إدخال هذا الاسم برقم " & MsgNumbr & vbCrLf & vbCrLf _ & "هل تريد بالتأكيد تسجيله " & vbCrLf, _ vbInformation + vbYesNo + vbDefaultButton2, _ "تنبيه") = vbNo Then Cancel = -1 End If Dim rst As Recordsetdb.Close ................................................... في مشاركة احد المشرفين السابقين تم ارفاع القاعدة التي تحتوي على المثال المطلوب وفي الملف الاول المثال المراد تطبيق المثال عليه ولكم مني جزيل الشكر يقبل المعاملة ويخبرك انه يوجد معاملة برقم.rar تجربة قبول التكرار مع رسالة تحدير.rar

احسنت :احمد الفلاحجي " ابو بسملة " جزاكم الله كل خير 😎😎

موضوع جميل وكنت قد جربته على اكسس 2003 و 2007 قديما وكان يعمل الان جربته على اكسس 2016 فلم يعمل معي لا اعلم اين المشكلة بالضبط ارفق لكم المثال للاطلاع وبيان اين الخطاء تجربة البحث.rar

جزيتم خير نعم هو المطلوب بوركت هذه الايدي ( الاخ / محمد البرناوي ) والشكر موصول ( للاخ / أحمد الفلاحجي )

حياك الله .. التقارير الموجودة عدد 4 وهي ( استعلام شامل )( اعمارهم بين 18/59) (عدد سجلات الممكنين )(مستحقين المعاش الشهري ) لو ارت ان يقوم بعرض عدد 2 من التقارير وعدم ظهور البقية من التقارير .. والسؤال هل يوجد امكانية لذلك ؟

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

تحياتي للاخ / أحمد الفلاحجى وشكرا على الرد الجميل والامثلة الجميلة قربنا من المطلب من مربع تحرير وسرد تختار ما تشاء من التقارير ثم يتم الطبع مرة واحدة مثال : اريد طباعة الخطاب الاساسي + ونموذج الفحص الطبي + وتقرير اخر يتم اختيارهم ثم اعطاء امر طباعة لهم جميعا

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

السلام عليكم الازرار تعمل بشل صحيح شكر خاص للمبدع الاخ / جعفر الاخ / سيفين جرب وضع رابط لما تريده في "" عنوان الرابط التشعبي "" تم ارفاق مثال تست.accdb