Dim rst As Recordset
Set rst = Me.RecordsetClone
rst.MoveFirst
Do Until rst.EOF
If rst![رقم العملية] = Me![T4] Then
MsgBox " السجل مكرر ", , " تنبيه"
Me.Undo
DoCmd.CancelEvent
Exit Do
End If
rst.MoveNext
Loop
rst.Close
F05.rar
اخي وأستاذي العزيز ابو ابراهيم لاحظ اني قلت اني افكر كمستخدم وملاحظاتي قصدت بها بصفة اصيلة الى من يهمه الموضوع . وبعض هذه النقاط متحقق فعلا .. مثلا :
1- في بداية العمل على البرنامج يلزم ادراج جميع المخططات وتحديد النقاط على جميع القطع المعروضة
فعلا نريد من المستخدم عند ادراج الصورة ان يحدد يدويا القطع المتاحة .. وهذا موجود فعلا
2- ثبات النقاط لكل مخطط حسب اسم الصورة ، بحيث عند التبديل بين الصور يظهر ما يخص الصورة فقط من النقاط
ذكرت استاذنا ان هذا يحتاج الى جداول فرعية ، وكنت افكر بعمود ضمن الجدول يأخذ اسم / معرف الصورة وتتم التصفية من خلاله حسب الصورة المعروضة . ( وهو موجود فعلا ضمن المرفق الأخير باسم معرف المخطط فقد تسمى الصورة بهذا المعرف عند ادراجها اول مرة )
3- حذف نقطة محددة بعد البيع مثلا
اذا اعتبرنا رقم النقطة فريد ضمن جدول واحد شامل لكل المخططات ، فقد نعمل على اخفاء الرقم عن المستخدم .. والوصول الى السجل من خلاله.
مع ان ما خط بالأحمر غير مفهوم للبعض.. ولكن المعنى العام واضح .. وماطرح ليس طلبات ( عدا صاحب الموضوع) وانما كما ذكرت هي افكار من خارج الصندوق ، ونعلم جميعا انك غير ملزم بالتجاوب معها ، وهذا الذي قام عليه هذا المنتدى ، ومع ذلك نحن نتزاحم بالركب إلى أمثالك .
شكرا جزيلا
طريقة جديدة جميلة استاذنا ابو ابراهيم
ولجمال وروعة الفكرة ان سمحت لي بمداخلة
مكتب العقار سيكون لديه العديد من الخرائط والمخططات
افكر من خارج الصندوق كمستخدم :
1- في بداية العمل على البرنامج يلزم ادراج جميع المخططات وتحديد النقاط على جميع القطع المعروضة
2- ثبات النقاط لكل مخطط حسب اسم الصورة ، بحيث عند التبديل بين الصور يظهر ما يخص الصورة فقط من النقاط
3- حذف نقطة محددة بعد البيع مثلا
وبالتأكيد هناك خطوات اخرى لاحقة فيما لو اردنا حفظ بيانات الصفقات التي تتم .
السلام عليكم
اخي الكريم ، يجب التقيد بقوانين المشاركة ، باختيار عنوان مناسب يصف الموضوع
ايضا يتوجب على السائل في بعض المواضيع رفع مرفق لآخر ما وصل اليه في عمله ومكان المشكلة التي يواجهها
تم تعديل العنوان
هذا حل لجميع مشكلاتك
افتح الوحدة النمطية mod_PN_All
استبدل السطر التالي :
Public Function PN_All(N As Integer) As Integer
بهذا
Public Function PN_All(N As Double) As Double
بعد اذن اخي حسام
انت بحاجة لمثل هذا
Dim rs1 As DAO.Recordset: Dim rs2 As DAO.Recordset
Set rs1 = CurrentDb.OpenRecordset("SELECT ........")'استعلام يظهر المراقب الأول حسب اليوم
Set rs2 = CurrentDb.OpenRecordset("SELECT ........")'استعلام يظهر المراقب الثاني حسب اليوم
rs1.Edit: rs1!tech_code = المراقب الثاني
rs2.Edit: rs2!tech_code = المراقب الأول
rs1.Update: rs2.Update
لاحظ انه غالبا يصعب تمرير المعايير لنموذج غير منضم داخل الاستعلام ، لذا نلجأ الى انشاء وحدات نمطية عامة كوسيط
tabdeel2.rar