محمد طاهر عرفه

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

فى هذه الحالة ما تريد موجود فى الموضوع التالي استخدام الدالة dmax لعمل ترقيم مسلسل و مطلوب اضافة شرط أن رقم الطالب = الرقم فى النموذج فى الدالة dmax ، و لاضافة الشرط راجع قسم الدوال ، يوجد به شرح كامل أو هذا الموضوع : وضع شرطين فى Dsum

السلام عليكم أخي أبو هادي ، أولا يا عم انت اللي أستاذنا :d بالنسبة لموضوع المشاركة هنا : هذا الموضوع يكاد يكون أكثر موضوع شغلني خلال اليومين الماضيين ، بالرغم من أني لم أكتب فيه و قد جالت بخاطري أنا الآخر عدة خواطر ، منها فكرة الحجز و منها أن دالة الاختبار لابد من أن تخبر المستخدم بأن الرقم سيتغير قبل تغييره فأما الاولي فمن ضمن الافكار أنه بتراجع المستخدم يتم تسجيل الرقم الخالي فى جدول مؤقت و يتم السحب منه قبل استخدام الاضافة علي اكبر رقم متاح و أما الثانية فأراها ضرورية لكي يعرف المستخدم بأي رقم حفظ السجل الذي أدخله هذا من ناحية الاقتراحات أما من ناحية النظرة العامة للموضوع ككل فتوقفت معها ووصلت الي التالي : احتياجنا لآلية الترقيم المتصاعد ( زيادة واحد علي آخر سجل ) و متي نحتاجها و نلجأ اليها دون الترقيم التلقائي أولا عندما نريد أن يتاح لنا تعديل الارقام ، كأن نريد تغيير رقم مراسلة لاحقا ، و الترقيم التلقائي لا يسمح بالتعديل المباشر ثانيا عندما يكون الترقيم له أسلوب خاص يسمح فيه بالتكرار عند اختلاف صفة أخري . مثلا بأن يكون هناك ترقيم متتالي لوارد كل شركة من الشركات ، سواء تم دمج هذا الترقيم مع نص ، أو ترك ترقيما مكررا مع اختلاف حقل آخر ، كالشركة مثلا و المثال الاول ذو النموذج المنضم يفي بكل الاحتياجات و يعتبر آمن بعد الاختبار المتكرر الذي أضافه أبو هادي و يمكننا أن نضيف عليه فقط عملية التنبيه بان الرقم تغير و هو لا يحتاج الي عملية الحجز اما الاضافة من نموذج غير منضم ، فهي التي ستحتاج الي الكثير من الحلول للتعامل معها ، مثل حل اضافة مصدر بيانات و ازالته ، و حل حجز الرقم فهل هناك ميزة مقابلة ؟؟ بالطبع المحاولة فى حد ذاتها مفيدة ، و لكن هل نحن متفقون علي ان الحل الامثل للتعامل مع الترقيم المتصاعد هو الموذج المنضم؟؟ و اذا كان كذلك ، فهل هناك ميزة فى كون النموذج غير منضم ، لكي تشجعنا أكثر علي محاولة التغلب علي مشاكله فى حالة التقيم التلقائي العادي ( مثلما فى الامثلى الثلاثة المشار اليها SQL,ADO,DAO فميزة النموذج الغير منضم هو عدم حجز السجل ) أما هنا فما الميزة ؟ مع تحياتي

السلام عليكم لاظهار الصورة مباشرة يجب حفظها كملف صورة ثم ترفعها علي الموقع المجاني كما فعلت ثم اثناء تحرير المشاركة ، تضغط علي زر الصورة من الايقونات و تضع الرابط بالنسبة للسؤال يمكنك التمييز بين الحقول الفارغة و الغير فارغة فى الاستعلام باستخدام Is Null Not Is Null فى خانة المعايير علي الحقل المطلوب و لمزيد من التفاصيل حول الاستعلامات يرجي مراجعة مواضيع دورة الاكسس مع تحياتي

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

مرفق مثال من موقع روجرز و رابط الموقع موجود فى موضوع روابط مفيدة أعلي المنتدي ، و المثال يمثل احدي الطرق لعمل ما تريد و يوجد به نموذجان الاول MultiEmpList يوضح كيف يمكن نقل القيم بين القائمتين ، و ذلك بنقل القيم بيم جدولين "tblChoose" و"tblChosen", و يمكن عمل اختيارات متعددة باستخدام ٍ أزرار Shift , Ctr و النموذج الثاني MultiListMultiUser يقوم بالمثل و لكن مع انشاء جداول جديدة فى قاعدة موجودة فى نفس المجلد و يتم حذف القاعدة المؤقتة مع اغلاق النموذج Listboxes.rar

أقترح رفع المثال علي أي موقع مجاني مع تحياتي

قم بعمل تقريرين منفصلين ثم أدرجهما كتقارير فرعية فى التقرير الذي تريد

و بالمرة تشوفوا صورته :)

نقلا من موضوع للاخ طارق حنيدق فى الفريق العربي الموضوع من هنا و المثال المرفق لطارق و استخدم فيه اداه وضعها ابو هاجر و لكي يعمل المثال لابد أولا من تسجيل الocx المرفق و ذلك من قائمة Tools ActivexControls register و تختار الملف و أترك التعقيب للأخ طارق نفسه و رابط الموضوع لااصلي موجود اعلاه لمزيد من التفاصيل barcodex.rar

السلام عليكم و لماذا كود ضع حقل آخر فى الجدول من نوع ترقيم تلقائي

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

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

شكرا علي الموقع

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

تم اضافة كود القيمة الافتراضية لعمود بطريقة أخري و تم تطبيقه علي أول 3 أعمدة Private Sub Worksheet_Change(ByVal Target As Range) Dim c If Target.Column = 1 Then c = Range("a" & Target.Row).Value If c = "" Then Range("a" & Target.Row).Value = "officena-1" ElseIf Target.Column = 2 Then c = Range("b" & Target.Row).Value If c = "" Then Range("b" & Target.Row).Value = "officena-2" ElseIf Target.Column = 3 Then c = Range("c" & Target.Row).Value If c = "" Then Range("c" & Target.Row).Value = "officena-3" End If End Sub و هذا موجود فى الشيت الرابع Cols DefaultCellVa4.rar

وصلت :)

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

مثال آخر من اعداد الأخ أبو هادي فى قسم الاستعلامات من هنا و المثال شارح لنفسه :d

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

بعد اختيار View Toolbars customize سيظهر لك مربع حوار به ثلاث تقسيمات ( علامات تبويب Tabs ) من أعلي فاختار الوسطي ، ثم من داخلها اختر Format من علي اليمين و تصفح الايقونات المناظرة ، ستجد الايقونة اضغط عليها بالماوس ثم استمر في الضغط و اسحبها بجانب أي أيقونة فى الاعلي ------------------------- حل آخر بلاش الايقونة اختار الفقرة ثم Foramt Paragraph LAign Justified ------------------- حل ثالث افتح محرر البيزيك ALT+F11 و اختار ادراج موديول جديد و ضع فيه الكود التالي Sub Macro2() CommandBars("Formatting").Controls.Add Type:=msoControlButton, ID:=123 _ , Before:=12 End Sub و شغل الماكرو من القائمة أو اضغط ALT+F8 سيظهر مرع حوار الماكرو ، فشغل منه الماكرو فسيضيف لك الايقونة أو اذا لم تصل الي اضافته افتح قائمة ماكرو من أدوات ثم اختار تسجيل ماكرو وثم اضغط علي زر الايقاف الذي سيظهر لك فاضغط ALT+F11 واستبدل الكود المكتوب بالكود فى الاعلي هنا ثم شغل الماكرو من أدوات ماكرو فسيضيف لك الايقونة

اذا أردت الوصول الي نفس النتيجة من القوائم View Toolbars customize آخر خيارات القائمة و لا أدري التعبيرات المناظرة فى العربية و فى الغالب أن التعبيرات قريبة مما يلي عرض ايقونات أو أشرطة أدوات مخصص أو تخصيص و هذا مناظر للنقر فى أي مساحة خالية بالزر الايمن للماوس و اختيار Customize ( تخصيص أو مخصص ) فيظهر مربع حوار فنختار التبويب الثاني منه و من قائمة تنسيق داخله ، نختار الايقون و نسحبه الي شريط الايقونات فى الاعلي

شكرا علي النسخة الجديدة ، و تم تعديل المثال الاول الي مثال طارق فقط :)

أرجو شرح جملة : " راعي الاولة " .. :) مع تحياتي

السلام عليكم الموضوع من هنا ملاحظة : أرجو اتباع قواعد المشاركة من حيث العنوان المعبر عن السؤال ،و البحث قبل الطرح و أهلا بك فى المنتدي مع تحياتي