rudwan

انظر الموضوع التالي http://www.officena.net/ib/index.php?showtopic=7529

الطريقه بسيطه و تعتمد على الفكره التاليه , نظام صلاحيات المستخدمين أنشأ لك جدول المستخدمين , تمام ؟ الان تضيفي حقل الى الجدول الذي تريدين حفظ اسم المستخدم فيه ( أي جدول من جداو ل القاعده ) , و تسميه اسم المستخدم , تمام ؟ الآن من النموذج , و بعد انتهاء عملية ادخال السجل , و قبل اغلاق النموذج نجعل النموذج يقوم بتعبئة حقل اسم المستخدم تلقائيا , كيف ؟ أرجو أن تستخدمي ذكائك في معرفتها . me.user=dlookup("username","users") الآن يصبح لديكي ف يالجدول اسم المستخدم اذلي قام بتخزين المعلومه محفوظا في الجدول و تستطيعن استعراضه من تقرير خاص لذلك . أما تسجيل وقت الدخول و وقت الخروج : نضيف الى جدول المستخدمين الحقلين : وقت الدخول ووقت الخروج time in - time out عند ظهور الشاشه الافتتاحيه يقوم النموذج بتعبئة حقل وقت الدخول للمستخدم الحالي و عند خروج المستخدم , شاشة مختلفه , يقوم بتعبئة وقت الخروج و أعتقد تستطيعين عملها بمفردك

=DCount("[ID]";"Mainin";"[Date] Between [datestart] And [dateend] ")

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

Private Sub Combo1_AfterUpdate() Me.Combo2 = "" Me.Combo3 = "" Me.Combo4 = "" Me.Combo2.Requery End Sub حتى لايتظهر رسالة خطأ في تصفية القائمه , لابد أن تكون قيم القوائم الثانيه فارغه على سيبل المثال لو قمت باختيار قيمه من القائمة الأولى , ثم قيمه من القائمة الثانيه الا، تريد أن تختار قيمه أخرى جديده من القائمه الأولى , هنا لابد أن تقوم بمسح القيم المختاره من القائمه الثانيه , حتى لاتظهر رسالة خطأ في تصفية القائمه , لذلك يقوم هذا الكود عنك أولا بتفريغ القوائم اللاحقه من القيم السابقه اذا وجدت وا لسطر الأخير يعيد تحديث و تشغيل القائمه الثانيه اعتمادا على القيمه الجديده للقائمه الأولى

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

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

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

ماشاء الله عمل جيد أخي أحمد و لكن كونك جعلته مفتوح المصدر , فهل تسمح لمن يرغب من الأعضاء بالاستفاده من أفكار البرنامج و أكواده ؟ و جزاك الله خيرا

عمل جيد لكن أنا لم أقل لك أن تحذف حقل رقم المستعير من جدول تاريخ الاعاره قلت لك أي اترك حقل رقم المستعير كما هو بدون حذف , و فقط اضف حقل مسلسل ( كما فعلت صحيح ) و اجعله مفتاح اساسي

شرحا للمثال الأول يوجد لديك جدول فيه أربعة حقول f1 , f2 , f3, f4 تم عمل النموذج و فيه أربعة مربعات تحرير و سرد الأول f1 و يأخذ بياناته من الحقل f1 الثاني F2 و يأخذ بيانته من الحقل f2 و هذا كود الاختيار من القائمه الثانيه SELECT DISTINCT Table1.f2 FROM Table1 و بهذه الحالة في حال فتح القائمه الثانيه ستظهر جميع حقول f2 و بما أن القائمة الأولى يفترض أن تصفي القائمه الثانيه , لذلك تم وضع شرط أننا نريد فقط السجلات من القائمه الثانيه المساويه لمثيلها في القائمه الأولى و تم اضافة الشرط التالي لكود الاختيار SELECT DISTINCT Table1.f2 FROM Table1 WHERE (((Table1.f1)=[Forms]![Form1]![Combo1])); و بهذا الشرط سيتم حصر سجلات القائمه الثانيه بما تم اختياره من القائمه الأولى

اطلع أيضا على هذا الموضوع http://www.officena.net/ib/index.php?showt...1&st=0&p=43697&

المثال صحيح و لكن يجب عليك الترتيب , اي اختر أولا من القائمه f1 ثم من القائمة f2 و هكذا اذا اخترت بغير هذا الترتيب سيظهر لك خطأ لأن كل قائمة تاليه تعتمد على مصدر سجلات القائمه التي تسبقها

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

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

انظر الموضوع التالي و حمل الملف الأخير منه , نفس الفكره تنطبق على مربع تحرير و سرد فلترة قائمة منسدله

السلام عليكم اخواني أقدم لكم فيما يلي أول قائمة من عناوين المواضيع المميزه للعملاق و خبير الأكسس الأستاذ الفاضل أبو هادي , و الحقيقه الأستاذ أبو هادي له أيادي بيضاء في هذا المنتدى و غيره و له علي أنا شخصيا أفضال كثيره , فقد ساعدني في حل العديد من المشاكل البرمجيه منذ أن دخلت عضوا في هذا المنتدى . و طبعا المواضيع كثيرة جدا , و لكن سأرفقها ان شاء الله تباعا دفعه دفعه نموذج بحث مطور الحصول على الأرقام الشاغره من سلسلة أرقام تفقيط عربي انكليزي كيفية تعطيل تنفيذ كود بشكل مؤقت ضمن الاجراء اجعل يوم السبت أول أيام الأسبوع معرفة المستخدمين لقواعد بيانات مرتبطه التحكم بطول النص أثناء الادخال انشاء مربع عنوان تابع لمربع نص معين تحريك الكائنات ضمن النموذج كيفية عرض نموذج البنية الشجريه و طباعتها نموذج بحث و تعديل دالة جديده للحصول على الفترة بالسنوات بدقه شريط متحرك سهل الاستخدام عمل التنسيق الشرطي بالكود تبادل الرسائل على الأكسس من خلال الشبكه نسخ الجداول بالكود - ثلاثة طرق دالة لتحويل أحرف بداية الكلمات الى كبير دالة المتوسط كالمستخدمه في الاكسل الحصول على أسماء المحطات للشبكات فتح نموذج الألوان بطريقه أسهل الترقيم التلقائي السنوي أداة لعرض النصوص كما في الوورد طريقة مبسطه لعمل أزرار منسقه ( اشكال و ألوان ) مسح الصور عن طريق الأكسس - تطوير لمثال أبي هاجر صندوق رسائل عربي 100 % دالة RoudUp كيفية تطبيق تقويم أم القرى تصميم لطريقة حساب نهاية الخدمة للموظفين مثال لطريقة حساب العمر- تطوير لمثال أشرف التعديل على الصور و اعادة حفظها بالكود الفاصلة حسب الاعدادات الاقليمية , حل لمشكلة الفاصلة العادية و المنقوطة

بارك الله فيكي و أهلا بك ضيفة عزيزه في المنتدى

شكرا أخي أمجد على سرعة تجاوبك

بينما قلت سابقا كيف عرفت أن المثال ليس هو طلبك في حين لم يفتح معك الملف أصلا :( افتح الملف الثاني , النموذج المسمى Adjust Results يقوم بتعديل النتائج لكل الطلاب دفعه واحده

استبدل الجمله DoCmd.OpenReport stDocName, , , stLinkCriteria بالجمله DoCmd.OpenReport stDocName,acViewPreview , , stLinkCriteria

طبعا يمكن ذلك بعمل فلتره للقائمة الأولى ( الحسابات الفرعيه ) بناء على قيمة القائمه الثانيه ( الحسابات الرئيسيه )

البرنامج ليس من تصميمي , بل من تصميم أحد الأخوه الأفاضل و ربما رضا عقيل أو مهند عبادي و لكني لست متأكدا بالضبط , و البرنامج في متناول الأعضاء و بالامكان الاستفاده منه في الحدود العلميه طبعا و ليست التجاريه . و جزا الله خيرا مصمم البرنامج و هذا مثال ممتاز للأخ رضا عقيل تجدينه هنا http://www.officena.net/ib/index.php?showtopic=6669

هل جربت النموذج الأول في المثال الثاني ؟ انه يعمل بضغطة زر واحده لجميع الطلاب

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