بسم الله الرحمن الرحيم
كيف اجعل مربع نص الغير منظم محدث بإستمرار ومخفي ؟
الأخوان الكرام
السلام عليكم ورحمة الله وبركاته
أسعد الله أوقاتكم بكل خير وسرور
لقد تعلمت منكم ألكثير والله يجزاكم خير
ارجوا المساعدة في :
1- كيف يمكن أن اجعل مربع نص الغير منظم الموجود في النموذج الرئيسي
يتحدث بسرعة عند إدخال إي معلومة في الجدول بدون ما أخرج من البرنامج ثم أعود له.
2- كيف اجعل مربع النص الغير منظم يسجل اسم الصنف الجديد وعدد الكمية في حقل النص
بدون ما يكون التسجيل يدوي كما هو موجود في المثال.
3- كيف اجعل مربع النص الغير منظم يكون مخفي إذا لم يوجد فيه معلومات جديدة في الجدول.
ولكم مني جزيل الشكر والتقدير,,,
كيف اجعل مربع نص الغير منظم محدث بإستمرار ومخفي ؟
مغلقمُجاب
الردود 0
مشاهدات 47
ولا رد !
شكل الموضوع صعب!
تكفون يا جماعة الحل الله يعطيكم العافية.
يتم الحفظ التلقائي في جدول 2 لا نه يتم تعبئته من نموذج فرعي ليس له اي ارتباط بالنموذج الرئيسي ، ففي هذا الحال كأننا
نتعامل مع نموذجين رئيسين منفردين ، وهنا يتبادر السؤال : ما فائدة النموذج الفرعي هنا ؟ ان لم يكن هناك علاقة ؟
وهذه العلاقة لا بد ان تكون علاقة تكامل مرجعي وايضا يكون فيها تتالي التحديث وتتالي الحذف
أمل انها اتضحت لك الصورة
اما ان كنت تريد الوضع على حاله وتريد منع الحفظ في النموذج الفرعي فيمكنك نقل الكود من النموذج الرئيسي اليه
Dim SavRef As Integer
هناك من يراقبك فى كل وقت (الله) فكن حذراً من المعاصى B)
ان اكبر عائق يمنع النجاح هو الخوف من الفشل و الاخفاق B)
أخي/ F000X
ألف شكر على حُسن تعاونك
ما أُريدة هو فقط كيف استطيع فرز كم عدد الجوالات الموجودة كلاً على حسب نوعة
وايظاً إذا فيه جهاز جديد يتسجل في مربع نص جديد وكم عدده بشرط يكون مربع النص
مخفي إذا كان لا يوجد جهاز جديد.
اما بخصوص إستفسارك إذا لم يكون هناك علاقة؟فما الفائدة من النموذج الفرعي؟
طريقة تصميم النموذج اوعرض المعلومة قد تكون خطاء؟ مني أنا !
فارجو منك الحل الصحيح ,
هذا امكانيات وعلمي بالاكسس! واسف على الإطاله.
للرفع up
والله يستر لا يطول الرفع -_-
السلام عليكم
قم بتجربت التالي
1. في التسلسل 15 قم بإضافة جالكسي في خانة أسم الصنف ولاحظ ما يحدث لمربع النص (غير منظم) في اعلى الفورم
2. في التسلسل 16 قم بإضافة كلمة ايفون6 في خانة اسم الصنف ولاحظ ما يحدث
3. قم بمسح عدد من أسماء الاصناف (جلكسي) ولاحظ ما يحدث
ان شاء الله ان يكون هذا ما طلبت
صفحتي الشخصية في منتدى أوفيسنا
اعذروني ففي الفترة القادمة سيكون تواجدي في المنتدى ضيق جداً وذلك للانشغال في دورة لمدة 6 شهور بعد الدوام
أخي/عبدالله المجرب
أنا عرف أنك مبدع في الأكسل
وما دريت انك مبدع في الأكسس
الله يعطيك العافية ويكثر من أمثالك
حلك ممتاز وفكرتك حلوه
بس لنفرض أن هناك أجهزة جديدة ستُضاف للجدول
ونُريد من البرنامج تسجيلها بدون تدخل الموظف
حتى لا يصير هناك لعب بالبرنامج أو النموذج .
طيب عندي اقتراح !
ليش ما يكون عن طريق استعلام, كيف!
سأحاول تبسيط المسألة:
في الملف المرفق الأولى استعلام بسم جالكسي
العمود الأولى هو اسم الصنف / نوكيا,جالكسي,أيفون...الخ
العمود الثاني عدد كمية كل جهاز
لو ربطنا اسم أو عنوان مربع النص بالعمود الأولى حتى يظهر اسم الجهاز فيه
وربطنا مربع النص الذي نُريد إظهار كمية عدد كل جهاز بالعمود الثاني فقط.
أو تقترح حل ثاني أفضل منه الله يعطيك العافية
المعذرة أكثرة الكلام.
اقتباس
أنا عرف أنك مبدع في الأكسل
وما دريت انك مبدع في الأكسس
شكراً لك
========================================
تم عمل مربع تحرير وسرد ليتم أختيار الجوال الذي تريد معرفة عدده
جرب المرفق
صفحتي الشخصية في منتدى أوفيسنا
اعذروني ففي الفترة القادمة سيكون تواجدي في المنتدى ضيق جداً وذلك للانشغال في دورة لمدة 6 شهور بعد الدوام
أخي/عبدالله المجرب
الله يعطيك العافية ما قصرت
فكرتك طيبة
بس يا حبذا لو كان ذلك بدون مربع تحرير وسرد
ويكون تسجيلها في مربع النص من البرنامج بدون
كتابتها يدوين أو أي تدخل
يعني كيف نقدر كتابتها في أكثر من مربع نص برمجين
والله يعطيك العافية
السلام عليكم
بعد جهد جهيد وصلت الى التالي
1. يوجد عدد 16 مربع نص وليبل تم اخفائها
2. من الجدول tblItmesName يتم اضافة الاصناف الجديدة (حتى 16 صنف)
3. عند إضافة الصنف الى فورم Itemsfas سيتم تلقائياً إظهار مربع نص به عدد هذا النوع من الصنف وتسمية بإسم هذا الصنف (اذا اردت حذف هذا الصنف لابد من حذه من جدول tblItmesName
=========
اذا ظهرت رسالة خطاء لديك قم بإضافة هذا المرجع في مكتبة الاكواد
جرب المرفق
صفحتي الشخصية في منتدى أوفيسنا
اعذروني ففي الفترة القادمة سيكون تواجدي في المنتدى ضيق جداً وذلك للانشغال في دورة لمدة 6 شهور بعد الدوام
أخي/عبدالله المجرب
الله يعطيك العافية
آسف على عدم الرد بسرعة وذلك بسبب ظروفي
عند فتح الملف تظهر رسالة خطاء في الكود
دخلت على المكتبة و المرجع اساساً موجود
في المكتبة يعني علية علامة صح,
بس المشكلة في هذا السطر:
rst.Open "tblItmesName", CurrentProject.Connection, _
adOpenStatic, adLockOptimistic
وسبب عطل في الجدول عند الضغط على أي
حقل تظهر رسالة الخطاء
وتسلم على جهودك
السلام عليكم
جربت الملف في كمبيوترين مختلفين ولا يوجد هناك خطاء
===
شو رايك نخلي الاستاذة أم عهود تبخره :) :)
صفحتي الشخصية في منتدى أوفيسنا
اعذروني ففي الفترة القادمة سيكون تواجدي في المنتدى ضيق جداً وذلك للانشغال في دورة لمدة 6 شهور بعد الدوام
وعليكم السلام
حياك الله أخي /عبدالله
أنا ما عندي أي مانع
حيا الله أم عهود وأي شخص يدلو بما لدية
المشاركة مفتوحة للجميع
أنا متأكد حلك ممتاز
بس الملف يفتح ولكن رسالة الخطأ
أعاقته من العمل
مع أني اعمل على أكسس 2007
تفضل اخي تم تعديل على المثال ان شاء الله يكون حسب المطلوب
يتغير اسم الجهاز و عدد متوفرة منهم مع تغير و الحذف و الاضافة جهاز في الفورم
بالتوفيق.
أخي/أبو شفيق
ممتاز والله يعطيك العافية
أسعدتني مشاركتك
حلك ممتاز
بس عندما أضيف جهاز جديد في الجدول الذي موجود على النموذج
يعطيني النتيجة خطأ في كل مربعات النص
وإذا أضفت من الجدول الأساسي لا يظهر خطأ
ما هو الحل
أن شاء الله يكون حلك الأقرب والمأمول
اخي الكريم مع اضافة جهاز جديد يجب اضافة كود الصنف الجديد ايضا لان ترتيب مربعات حسب الكود
الان في المرفق الجديد في النموذج جعلت حقل كود الصنف يقم باضافة كود جديد للجهاز جديد من تلقاء نفسه اما اذا كنت تضاف جهاز جديد من خلال الجدول او الاستعلام عليك ادخال كود الصنف و بالترتيب
اويمكن علاج هذالمشكلة ان تجعل حقل الكود ترقيم تلقائي.
بالتوفيق’’’
المعذرة أخي/ أبو شفيق
أنا الآن خارج المنزل
ولا استطيع فتح الملف الآن
لإني اكتب الرد من الجوال
ساخبرك عند عودتي للمنزل.
أخي/أبو شفيق
مبدع ما شاء الله تبارك الله
الله لا يضرك
والله منت هين
ممتاز الله يعطيك العافية
هذا هو الذي أُريده وحلك ممتاز جداً
بس بقي شي واحد:
1- أُريد شرح بسيط حتى افهم كيف تم ربط الجدول بمربع النص.
2- حاولت عمل تقرير لمربعات النص ولكن لم يفلح ممكن تشوف
ما هو السبب وقد تكون طريقتي خطأ.
الملف مرفق.
وتسلم أبو شفيق
اخي العزيز تم نعديل على التقرير و هو سهل جدا ان تجعل مصدر سجلات تقرير QR1
و انشاء مربع نص و مصدر ها = DCount("*", "QR1")
هذا في ملف السابق
اما التعديل الجديد مختلف قليلا حيث جعلت اخفاء مربعات فارغة و اعادة اظهارها عند وجود قيمة فيها
و اضافتة اسم الجهاز الجديد يتم من قائمة منسدلة لمنع اخطاء في كتابة اسم الجهاز و عند كتابة اسم غير موجود في القائمة البرنامج يطلب موافقتك لادخال الاسم في القائمة او لا
و بنسبة استسفسار كيفية ربط الجدول بمربعات، سارسل لك شرح مصور باذن الله و في اقرب فرصة بسبب عدم امكانيتي كتابة لغة العربية جيدة حتى نوصل المطلوب
واليك المرفق الجديد
أخي/أبو شفيق
شرح ممتاز والله يعطيك العافية
بس عندي إستفسار بسيط :
عندما أُريد عمل ملف آخر
يجب عمل الخطوات التي ذكرتها كأمله:
1- استعلام أول QR
2- استعلام ثاني QR1 ويحتوي على حقل
إضافي باسم Serial ثابت
3- واسم مربع النص الذي يعد أسماء الحقول
في النموذج عند تنشيطه عن طريق الكود بـ SubF
*هل يجب أن يكون موجود على النموذج؟
*ولماذا سميت تفصيل النموذج بـ DTL ؟
عمل التقرير؟
يعني نسخ جميع مربعات النص ثم لصقها في صفحة التقرير
ثم إضافة الدوال إلى (منشئ التعبير) فقط أو كذلك إضافة
(الكود الموجود في محرر الفيجول Report1)
*ويوجد في محرر مشروع الفيجول اثنان تقارير ما هو الفرق بينهم؟
*وما فائدة وضع مربع النص الغير منضم SubF الذي يعد أسماء الحقول
الموجود في صفحة التقرير؟
والله يعطيك العافية,,,,,
اقتباس
في النموذج عند تنشيطه عن طريق الكود بـ SubF
*هل يجب أن يكون موجود على النموذج؟
نعم اخي يجب أن يكون موجودة في كل النموذج و التقرير
اقتباس
*ولماذا سميت تفصيل النموذج بـ DTL ؟
كتابة اسماء عناصر و الحقول يجعل كتابة كود اسهل من العربي
لو فتحت كود نموذج او حقل اسم الجهاز تجد عبارة التالية:
For Each ctl In DTL.Controls
يعني للكل عنصر في عناصر التفصيل.
اما الاسم رأس تقرير مكتوب بالانجليزي لا داعي تغير اسمه و نتركه على النفس الاسم
اقتباس
*ويوجد في محرر مشروع الفيجول اثنان تقارير ما هو الفرق بينهم؟
اثناء عمل في وضع تصميم على احد الكائنات و توقف مفاجئ الاكسس(كما حصل عندي) قبل حفظ الكائن ، الاكسس يقوم بالحفظ باسم تلقائي كما التقرير
و للفتح هذا التقرير انقر عليه على اليمين و اختار View Object ويفتح التقرير.
اقتباس
*وما فائدة وضع مربع النص الغير منضم SubF الذي يعد أسماء الحقول
لا اسماء الحقول بل سجلات التقرير و لها نفس دور كما في النموذج، لو لاحظت دالة مربع الاول : =IIf([subf]>=1,DLookUp("[itemfas]","QR1","[serial]=1"),Null)
ان كان subf (عدد سجلات تقرير QR1) اكثر او يساوي واحد يعرض المطلوب حسب الدالة و الا يرجع قيمة فارغة Null و في مربع الثاية: اذا SubF اكثر او يساي اثنان و للثالثة ثلاثة و هكذا ...
انظر كود التقرير عند الفتح هو نفس كود النموذج
تم تعديل هذه المشاركة بواسطة ابوشفيق في 12 يناير 2014 في 23:01
عن ابن عمر رضي الله عنهما قال : قال رسول الله صلى الله عليه وسلم :
« مَن استعاذ بالله فأعيذوه ، ومن سأل بالله تعالى فأعطوه ، ومَن دعاكم فأجيبوه ، ومَن صنع إليكم معروفاً فكافئوه ، فإن لم تجدوا ما تُكافئونه فادعوا له حتّى تروا أنّكم قد كافأتموه»
رواه أبو داود والنسائي بسند صحيح .
أخي / أبو شفيق
جزاك الله خير ورحم الله والديك
واشكرك على سعة الصدر وطولة بالك
هذا إن دل فإنما يدل على حبك لمساعدة الآخرين
واكرر شكري لك
والسلام عليكم
هذا الموضوع مغلق.