سعيد صواب

حياكم الله اخواني الكرام الله يبارك فيكم

حياك الله اخي مصطفى اعتقد انك وجدت الحل ولكن هذا رابط الموضوع لمن بحث لاحقا .. http://www.officena.net/ib/topic/66608-ظهور-خطاء-عند-فتح-البرنامج/ بالتوفيق للجميع

هنا رابط الموضوع http://www.officena.net/ib/topic/66536-تعديل-نماذج-تلقائية/

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

حياك الله اخي حسين مشاركة مع الاستاذ محمد .... هل هناك رسالة خطاء تظهر او ماهي االمشكلة تحديدا .. بالنسبة لمرفقك main1 لا يعمل معي يبدو ان به عطل ما ... اعمل على 2007 .. بالتوفيق

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

حياك الله اخي الكريم ضع هذا السطر في حدث عند التحميل للنموذج الرئيسي DoCmd.ShowToolbar "Ribbon", acToolbarNo بالتوفيق

الله يبارك فيكم اخواني الكرام ..

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

حياك الله اخي الكريم هل من الممكن ارفاق مثال للعتديل وللتجربه ... بالتوفيق

حياك الله اخي الكريم شاهد المرفق ... ملاحظة : استخدام شرط الشهر والسنة مهم .. ضع الكود اينما تريد . Dim a a = Nz(DCount("monnth", "salary", "monnth=forms!frm1!m and yeaar=forms!frm1!y"), 0) If a > 0 Then MsgBox "áÞÏÊã Êã ÇÖÇÝÉ ãÓíÑ áåÐÇ ÇáÔåÑ ", vbCritical Else MsgBox "áã ÊÊã ÇÖÇÝÉ ãÓíÑ áåÐÇ ÇáÔåÑ ", vbInformation 'ÈÅãßÇäß ÇÓÊÈÏÇá ÇáÑÓÇáÉ ÈãÇ ÊÑíÏ End If بالتوفيق Salary.rar

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

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

حياك الله اخي الكريم مشاركة مع الأستاذ عبدالرحمن ... بالنسبة لعلامة العلاقة ... ادخل على الجدول في عرض التصميم وشاهد ورقة الخصائص على اليسار قم بإزالة ورقة البيانات الفرعية .. الدورات . بالنسبة لنموذج البحث .. ادخل على مصدر بيانات النموذج واضف الشرط التالي ... كما هو موضح في مرفق الاستاذ عبدالرحمن .. Like "*" & ClrText([forms]![main1]![Text1]) & "*" بالتوفيق

حياك الله اخي حسين الكود يعمل على 2007 لا يوجد مشكلة .. حمل المرفق الذي عدل عليه الأخ عبدالله بالتوفيق

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

حياك الله اخي الكريم .. شاهد اجابتي الأخيرة ... لا املك ما اقوله اكثر بالتوفيق

حياك الله اخي وليد انا افتح النموذج على 2007 ولا تظهر اي مشكلة .. المشكلة والله اعلم لا تتعدى اعدادات اللغة والموقع .. بالتوفيق .

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

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

حياكم الله اخواني اضفت accdr للفلتر في المرفق الذي ارفقته الذي يمكن ويعطل الشفت من خارج البرنامج strFilter = ahtAddFilterItem(strFilter, "Access Files (*.mde, *.mdb, *.accdb, *.accde,*.accdr)", "*.MDE;*.MDB;*.ACCDB;*.ACCDE;.ACCDR*") البرنامج في المرفق كان يكتشف كل الامتدادات ما عدا accdr. نقول ان شاء الله ان معنى هذا انه اسلوب حماية جيد .. بالتوفيق للجميع

العفو ... بالتوفيق ان شاء الله .

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

حياك الله اخي الكريم اخي الكريم ضع السطر نفسه واجعله لرقم العميل عند التحميل فلا داعي ان المستخدم يدخله يدويا .. بل تلقائيا .. وبذلك لاتحتاج الى المربع في اعلى النموذج Me.AmeelNOinForm = Nz(DMax("AmeelNoinTable", "AlBianat"), 0)+1 ولكن انت قلت ان فيه مشكلة .. ماهي رسالة الخطاء التي تظهر وهنا سؤال : هل مازال رقم العميل ترقيم تلقائي ؟؟ بالتوفيق

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