كل الانشطه

السلام عليكم ورحمة الله وبركاته لدي مرفقات بها قاعدة بيانات اكسس بها جدول مرتبط مع ملف اكسل السؤال هو : كيف يمكن تحديث واضافة بيانات جدول اكسس من خلال ملف الاكسل الذي به نفس الجدول المرتبط المصنف1.xlsx كشف الحضور1.accdb

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

بارك الله فيك استاذنا حفظك الله وجميع احبابك

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

لو رجعنا لتعليمات مايكروسوفت بخصوص الامر DoCmd.PrintOut على هذا الرابط سنجد أن صيغة هذا الأمر هي كالتالي DoCmd.PrintOut (PrintRange, PageFrom, PageTo, PrintQuality, Copies, CollateCopies) نلاحظ أنه يحتوي على المعلمة (Copies) والتي نحدد فيها عدد النسخ ولكن مع الأسف لا تعمل بشكل صحيح ولا ادري إذا ما كانت هذه المشكلة مرتبطة بنسخة الاوفيس لدي أم انها مشكلة عامة حبيت اوضح هذه النقطة لتجربتها فإذا عملت لديكم كان بها وإلا فإن طريقة الاخ @Foksh قامت بمعالجة المشكلة تحياتي

جميل جداً هذا التوضيح والطريقة الجميلة أيضاً .. التعرف على أنه إذا كانت Type = 1 وبالتالي النوع 1 = جدول هي بحد ذاتها أيضاً فكرة جميلة . وبما أن قيمة الـتعليمة Flags = -2147483645 وهي قيمة ثابتة في اكسيس لجميع إصدارات أوفيس ، وهي للتوضيح الواجب أنه ليس لأوفيس علاقة بفرضها بهذه القيمة . بل يفرضها نظام التشغيل نفسه ( Windows ) على حد علمي . أما بخصوص السطر والفكرة التالية :- فهي بحد ذاتها جريئة وإلتفاته فتحت لي أفكاراً جديدة في هذا الخصوص . فشكراً لك ولكل من ساهم بإثراء الموضوع بمشاركته الجميلة والقيمة كجوهره

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

انا طريقتي تختلف عن الاخوان حيث قمت بإظهار الجدول نفسه كما بالصورة وللقيام بذلك قم بتنفيذ الخطوات كالتالي 1- إنسخ الملف تحت القرص D مباشرة (يمكن نسخه إلى أي مكان ولكن هكذا سيكون المسار قصير) 2- إفتح الملف وقم بإنشاء الاستعلام التالي (هذه الخطوة غير مهمة لكم لإني سبق واستخرجت قيمة العمود المطلوب ووضعتها في الكود ولكني ذكرتها للتعرف على الخطوات) SELECT MSysObjects.Flags, MSysObjects.Name, MSysObjects.Type FROM MSysObjects WHERE ( ((MSysObjects.Name) NOT LIKE "MSys*") AND ((MSysObjects.Type) = 1) ); من خلال هذا الاستعلام سنتعرف على أي جدول Type=1 ولايبدأ بالأحرف MSys لتظهر لنا النتيجة كما بالصورة مايهمنا هنا هي قيمة العمود الأول Flags بعد ذلك قم بإغلاق التطبيق بدون حفظ اي شيء 3- إفتح أي قاعدة بيانات أخرى (سواء قاعدة بيانات فارغة أو مستخدمة لايهم) وفي أي وحدة نمطية (جديدة أو فيها اكواد لايهم) والصق فيها الإجراء التالي Sub sbUnHideTables() Dim app As Access.Application Dim wks As Workspace Dim db As dao.Database Dim rst As dao.Recordset Dim tdf As TableDef Set app = New Access.Application Set wks = app.DBEngine(0) 'الإصدار 64 Set db = wks.OpenDatabase("D:\HideTBL V1-64.accde") 'مسار الملف 'الإصدار 32 'Set db = wks.OpenDatabase("D:\HideTBL V1-32.accde") 'مسار الملف For Each tdf In db.TableDefs If tdf.Attributes = -2147483645 Then tdf.Attributes = 0 'تغيير قيمة العمود Flags Next tdf Set db = Nothing End Sub 4- انقر الزر F5 لتشغيل الإجراء حيث سيقوم بتغيير قيمة العمود Flags إلى القيمة صفر 5- اغلق قاعدة البيانات التي قمنا بتنفيذ الكود فيها (حفظ الكود من عدمه راجع لك) 6- الان إذهب إلى القرص D وقم بفتح الملف (HideTBL V1-64.accde او HideTBL V1-32.accde وفقاً لإصدار أوفيس لديك) لتجد أن الجدول قد ظهر في جزء التنقل تحياتي

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

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

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

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

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

تمام العمل الآن استجد .. والتغيير القادم يحتاج الى وقت كاف لا تقلق ان شاء الله سأعمل على تحقيقه ..

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

نعم ، مناسب تماما

السلام عليكم 🙂 ولو اني مشغول لقمة رأسي ومسافر غدا ان شاء الله ، ولكني اردت المشاركة تفاعلا مع اخي ابوخليل 🙂 . وطريقتي: بالاشارة الى موضوعي ، الجزء الاول: واليك الجزء الثاني من الموضوع: 1. عملت ملف اكسس فارغ، وعملت فيه الاستعلام التالي لقراءة جدول MSysObjects برنامجك ، والذي يحتوي على جميع جداول البرنامج : SELECT MSysObjects.* FROM [D:\temp\1642.HideTBL V1-32.accde].MSysObjects ORDER BY MSysObjects.DateUpdate DESC; . والسبب في الفرز التنازلي ، هو لحقل تاريخ تحديث الجداول ، يعني اخر جداول عملت عليها التحديث (فقط علشان سهولة الوصول للجدول المطلوب). وحتى لو ما عملت الفرز ، فكان بإمكاني عمل كود لفحص الجداول فردا فردا 🙂 وحصلت على الجداول التالية: . ومنها جربت الجدول AccessTbl : SELECT AccessTbl.* FROM [D:\temp\1642.HideTBL V1-32.accde].AccessTbl . وحصلت على النتيجة 🙂 جعفر

استدراك : بما ان الموقع يشتمل على فترتين .. لذا يجب علينا اخبار البرنامج بذلك على النحو التالي : 1- في فورم التحكم يجب ادخال وقتي الدخول والخروج لكلا الفترتين 1- يجب تحديد ساعة معينة تكون هي الفاصل بين الفترتين لاخبار البرنامج بذلك هل الساعة الخامسة مساء وقتا مناسبا لتكون هي الحد الفاصل بين الفترتين ؟ اذا ترى توقيتا آخر افدني ؟؟

حتى مع العمل الاضافي يمكن استيعابه مثلا نضع حقلين : حقل لعدد ساعات العمل الرسمي وآخر للاضافي ان وجد .. ومجموعهما هو عدد الساعات المعتبر لا يهم زيادة ساعات محددة فلن تتجاوز 12 ساعة .. المهم هو التوقيع من الغد

هو المطلوب بعينه ، ولكن إن لم يكن معلمي يدري ، فمن يدري !!!

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

هل هذا هو المطلوب ؟ اذا نعم .. لا تسألني كيف ظهر .. لا ادري كيف ظهر معي

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

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

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