ابوخليل

عزيزي ابوحسان انا عملت لك مطلوبك الذي هو عنوان الموضوع ، وطلبك الاخير مع ان الاصل فتح موضوع جديد به ، الا اني لم اتمكن من الوصول الى حل حسب التصميم الحالي فأنت مخير بين ان تنتظر لعل احد اخوتنا الأعضاء يتمكن من ايجاد حل لك ، وإما ان تفتح موضوعا جديدا بطلبك هذا

السلام عليكم بدون احداث افتح اي وحدة نمطية عامة ( module) موجودة في البرنامج عندك والصق السطرين في اعلى الصفحة بشرط يكونوا تحت Option Compare Database Option Explicit ويمكن تجد فقط Option Compare Database

انا لم اعمل اي تعديل على القيم فقط عدلت على خصائص مقطع الصفحات

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

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

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

كلام جميل او يمكن اعتبار الموجودات الحالية عند بدء استخدام البرنامج وإدخالها كرصيد أولي

تفضل .. اتمنى يكون هو مطلوبك Upالملاك 2021.rar

الطريقة السابقة تتعامل مع السجلات عبر النموذج جرب هذه الطريقة من خلال الجدول مباشرة Dim rst As dao.Recordset Set rst = CurrentDb.OpenRecordset("folllow") 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 F06.rar

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

تأكد من المكتبات tools \ references

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

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

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

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

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

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

ارشيف2.mdb

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

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

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

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

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

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