Hamdi Edlbi-khalf

بارك الله بكم

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

السلام عليكم أعتذر على التأخر و لكنها الظروف ... أولاً الملف بعد التعديل مع الإشارة إلى بعض المشكلات أثناء العمل .. الملف على موقع ميديا فاير نظراً لحجمه ثانياً بالنسبة للإشعار فهذه تجربتني و لكنها لم تنجح على النموذج الفرعي و الملف في المرفقات . ‏‏‏‏‏‏برنامج أعضاء مجلس الإدارة 2222.accdb

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

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

الكود ينفع و لكن عليك استبدال الأسماء

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

هل من طريقة تجعل زر الإضافة ينفذ الأمر لمرة واحدة .

مرحباً لأجل معرفة تكرار قيمة في حقل استخدم Dcount IF DCOUNT( الشروط ، اسم الجدول ، اسم الحقل) > 0 THEN النتيجة الذي ترغب بها END IF و اعتذر فلست ضليعا. كفاية و لكن هذه الفكرة

بالنسبة الى الطلب الاول فقد تمكنت من جعل الامر يعمل و لكنه يستمر بالاضافة مع اعادة تنفيذ الامر . و لا يتوقف كما هو مفترض

هل يوجد كود جاهز أو طريقة أخرى بالاستعلام مثلاً لعمل الإشعار الذي سيظهر في مربع غير منضم أو في حقل منضم ؟

بالنسبة للتكرار استخدم الدالة Dcount . IF DCOUNT( , , ) >1 THEN **** end if

شكراً لكم أخوتي و أي طلب تيسرت إجابته فهو جهد و فضل لا ينسى . بارك الله بكم .

يبدو أني لم أوفق لعرض السؤال بصورة مناسبة ، فهل هناك حاجة إلى إعادة رفع النموذج المرفق بعد تعديله مرة أخرى ؟

بانتظار عونكم كما عودتمونا

بما أن السؤال لم يحظٓ بعد بالإجابة أضيف هل يمكن منع الإضافة في النموذج الفرعي و جعلها محصورة بالزر المذكور حيث تتم الإضافة بناءعلى رقم موجود في حقل ضمن النموذج الأساسي . و شكراً سلفاً

السبب في عدم عمل زر الإضافة على ما اعتقد هو العلاقات بين الجدولين

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

Me.text = me.listbox.column(x)0 لقد تمكنت ن إيجاد الطريقة المناسبة شكرًا لكل من تفضل بزيارة السؤال و لكل من أراد المساعدة و لم تتح له الإمكانية .

السلام عليكم كيف أستطيع التعبير بأوامر الفيجوال عن عمود من أعمدة مربع القائمة ؟ مثلاً ، لدي مربع قائمة غير منضم يخزن أسماء العملاء و أرقام هواتفهم . أرغب بأن أجعل حقلين منضمين في النموذج يأخذ أحدهما الاسم و الآخر الهاتف من مربع القائمة . كنت سابقاً أستمد قيمة الحقل بالطريقة الآتية : Me.text1= me.listbox و لكن هذا لا يجدي إلا مع قيمة العمود الأول في مربع القائمة . أحتاج إلى طريقة كتابة الأمر دون أن يكون في مثال محدد ، نظراً لعدم وجود حاسب متصل بالشبكة . شكراً لكم و بارك الله بجهودكم الطيبة .

صدقة جارية بصحيفتك إن شاء الله

بارك الله بك ... ماشاء الله عمل احترافي

أسأل الله العظيم أن يجزيكم خير الجزاء و يحقق مناكم في الدنيا و الآخرة فيما يرضيه عنكم . أخوتي و أحبتي و أساتذتي في هذا المنتدى المبارك و خاصة من شرفني و تفضل علي بالإجابة أو التفاعل . @kaser906 @ابا جودى @jjafferr أشكركم على وقتكم الثمين و جهدكم الكبير و كرمكم الجم فمن المعلوم مشقة الرفع و التنزيل مع مخاطرة إصابة الجهاز بالفيروسات و قبلها ما بذلتموه حتى اكتسبتم هذا العلم و هذه الخبرة تجودون بها لمجاهيل و عابري سبيل. و إن كنتم ثابتين في قلوبنا و أذهاننا بأسمائكم معلمين نذكركم و نشير إليكم ما شاء الله . شكراً لكم و ألف شكر . فمنكم ومن وحيكم خطرت في بالي هذه الأبيات : فتهدوننا علماً و تفريج كربة وليس لكم منا سوى المدح و الثنا و أين الذي قدمتموه من الذي أتيناها بعداً بين أرض و من سما

السؤال السابق ... هنا كانت البداية ... البحث عن طريقة تمكنني من عمل إشعار عند التكرار يظهر على جميع السجلات المكررة لا عند سجل التركيز فقط . الحل الذي وصلت إليه و إن كنت أتمنى أن أصل الى طريقة اجعل الاستعلام يعمل على كافة الحقول دفعة واحدة دون الحاجة لجهل المؤشر ينتقل عبر النموذج . قد يبدو السؤال مبتوراً من سياقه المنطقي و اعتذر لذلك و اعتذر على تأخري بتدارك التوضيح . شكراً لكم مرة أخرى .

بانتظاركم... دام فضلكم