ابوخليل

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

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

تم دمج الموضوعين اخي الكريم .. سيطول انتظارك فارجع وأعد قراءة ردود اخوانك .. لعلك تجد حلا أذا عرفت المطلوب منك

اضف هذا المعيار في مصدر النموذج الفرعي Like "*" & [forms]![snawaqs_3]![asd1] & "*" وانظر الى التغير في كود حدث خانة الاختيار exam2.rar

ضع هذا المعيار في مصدر بيانات النموذج الفرعي [forms]![Fworkerpresence]![combo4] الغاء التصفية.rar

ارشيف2.mdb

اخي وأستاذي العزيز ابو ابراهيم لاحظ اني قلت اني افكر كمستخدم وملاحظاتي قصدت بها بصفة اصيلة الى من يهمه الموضوع . وبعض هذه النقاط متحقق فعلا .. مثلا : 1- في بداية العمل على البرنامج يلزم ادراج جميع المخططات وتحديد النقاط على جميع القطع المعروضة فعلا نريد من المستخدم عند ادراج الصورة ان يحدد يدويا القطع المتاحة .. وهذا موجود فعلا 2- ثبات النقاط لكل مخطط حسب اسم الصورة ، بحيث عند التبديل بين الصور يظهر ما يخص الصورة فقط من النقاط ذكرت استاذنا ان هذا يحتاج الى جداول فرعية ، وكنت افكر بعمود ضمن الجدول يأخذ اسم / معرف الصورة وتتم التصفية من خلاله حسب الصورة المعروضة . ( وهو موجود فعلا ضمن المرفق الأخير باسم معرف المخطط فقد تسمى الصورة بهذا المعرف عند ادراجها اول مرة ) 3- حذف نقطة محددة بعد البيع مثلا اذا اعتبرنا رقم النقطة فريد ضمن جدول واحد شامل لكل المخططات ، فقد نعمل على اخفاء الرقم عن المستخدم .. والوصول الى السجل من خلاله. مع ان ما خط بالأحمر غير مفهوم للبعض.. ولكن المعنى العام واضح .. وماطرح ليس طلبات ( عدا صاحب الموضوع) وانما كما ذكرت هي افكار من خارج الصندوق ، ونعلم جميعا انك غير ملزم بالتجاوب معها ، وهذا الذي قام عليه هذا المنتدى ، ومع ذلك نحن نتزاحم بالركب إلى أمثالك .

انظر هنا قد تستفيد منه للتعامل مع اكثر من مخزن باعتبار ما ينطبق على المخازن ينطبق على المبيعات والمرتجعات

تفضل هنا بغيتك

شكرا جزيلا طريقة جديدة جميلة استاذنا ابو ابراهيم ولجمال وروعة الفكرة ان سمحت لي بمداخلة مكتب العقار سيكون لديه العديد من الخرائط والمخططات افكر من خارج الصندوق كمستخدم : 1- في بداية العمل على البرنامج يلزم ادراج جميع المخططات وتحديد النقاط على جميع القطع المعروضة 2- ثبات النقاط لكل مخطط حسب اسم الصورة ، بحيث عند التبديل بين الصور يظهر ما يخص الصورة فقط من النقاط 3- حذف نقطة محددة بعد البيع مثلا وبالتأكيد هناك خطوات اخرى لاحقة فيما لو اردنا حفظ بيانات الصفقات التي تتم .

المرفق يطلب مكتبة ملف picclp32.ocx اعمل على وندز 7 32 بت

السلام عليكم اخي الكريم ، يجب التقيد بقوانين المشاركة ، باختيار عنوان مناسب يصف الموضوع ايضا يتوجب على السائل في بعض المواضيع رفع مرفق لآخر ما وصل اليه في عمله ومكان المشكلة التي يواجهها تم تعديل العنوان

عليكم السلام الاصل وجود جدول تعريفي بالصفوف وهذا ما صنعته لك A2.mdb

Database3.rar

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

هذا حل لجميع مشكلاتك افتح الوحدة النمطية 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

شكرا لكما احبتي @jjafferr و @kha9009lid سوف اقوم بالاطلاع والتجربة

تفضل هذه محاولة ولكن يبدو ان هذا البرنامج غير مجدي لا غنى لي عن اخوتي هنا لارشادي الى افضل برنامج خفيف للشرح Video_2021-02-10_105245.rar

ليست صورة واحدة ، لانه كل حركة تنتقل الى مشهد مستقل امهلني ابحث عن برنامج تسجيل فيدو مناسب .. يمكنني من خلاله تسجيل الحركات

تفضل DATA14.rar

انا لم اتعرض للاشهر الأخرى وضعت اداة الشرط فيما لو كان الشهر في ( dat1 = 3 ) يزيد يوما واحدا علما اني جربت المثال ويعمل بشكل صحيح حسب طلبك

المسألة سهلة جدا تضيف حقل اسم المخزن ضمن الاستعلام مصدر النموذج ، ثم تجعل مصدر الحقل اسم المخزن بدلا من الرقم DATA13.rar

النتيجة صحيحة لان الشهر ناقص ومع ذلك وحسب رغبتك يمكن ان نعامل شهر 3 معاملة خاصة Dim i As Byte Private Sub dat1_AfterUpdate() i = Month(dat1) If i = 3 Then ys = DateAdd("m", -Me.dat2, Me.dat1 + 1) + DateAdd("yyyy", 1, Me.dat1) - dat1 Else ys = DateAdd("m", -Me.dat2, Me.dat1) + DateAdd("yyyy", 1, Me.dat1) - dat1 End If Me.dat3 = ys DoCmd.Requery End Sub test2.rar