أبو نادر

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

الف مبروك للوزير ويستاهل كل خير

الف شكر لك

ما شاء الله عليك ... اكوادك ذي اول مره اشوف مثلها ... عمل الزر ... يحذف السجلات من جدول ويضيف جميع سجلات الجدول الرئيسي . صح ؟ ولكن نفترض ان لدي فقط ثلاث سجلات في التمام .. سيحذفها ويدخل جميع سجلات الجدول الرئيسي .. قد يكون الجميع في احد الأرفف موجودين لهذا اليوم ... وبالتالي لن يكون هناك اي سجل يخصهم في جدول التمام وانا متأكد بأن فكرتي لم تصلك بالشكل المطلوب.. سهرت مع هذي المشكله وتوصلت لحل بعد عدة تجارب فاشله في كود الحفظ .. جعلت الحقول الجديده في جدول التمام ( الاسم والرف والقسم والرتبة ) تساوي الحقول التي تظهر فيها المعلومات في النموذج والمبنية على استعلام .. وكأن العملية نسخ ولصق ونجحت الفكره ... شكرا على مساعدتك والله يوفقك وبسببك تعلمت شي جديد هل استطيع ان اضيف معيار لكودك هذا .. بان اضيف اسم الرف ( نصي ) .... وبهذا استغني عن استعلام حذف ؟ او اكتفي باستبدال RfNumbr باسم الرف DoCmd.RunSQL "DELETE RfNmbr.* FROM Ntbl"

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

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

الحمد لله .. بعد الخنبقه في ذي الأكواد انحلت المشكلة اعدت المفتاح الاساسي لحقل الترقيم التلقائي واضفت هذا الكود عند اضافة سجل جديد If DLookup("[Num5]", "التمام_رئيسي_استعلام", "[date]='" & Me![date] & "'") Then MsgBox "عذراً...الرقم مسجل مسبقاً في هذا اليوم", vbCritical, "تنبيه" Me.Undo Else ......... end if

الله ينور عليك يا شيخ ... جعلت الرقم واليوم والتاريخ مفاتيح اساسية وتركت السبب في حال تم التغيير ونجحت يقبل اضافة سجل جديد ويصطدم بالمفاتيح ولا يحفظ ... هل من طريقة لكتابة كود عند الضغط على سجل جديد تخرج رسالة ( لا يمكن اضافة تمام مرتين في هذا اليوم لنفس ) مثلا اقول : if me.id = now date() then msgbox "" else يضيف سجل المشكلة ما عرف اقول اذا فيه سجل لهذا الرقم يساوي تاريخ اليوم فلا تضيف سجل ... record كيف ازبطها ؟

السلام عليكم واجهتني مشكلة واكيد الحل عندكم ان شاء الله عند عمل تمام يومي للموظفين ..مثلاً واحد اجازه والثاني انتداب والثالث مرضية اختار اليوم والتاريخ ( نفس اليوم ) والسبب ( مرضية او اجازه او مكلف .... ) حسب القائمة الموجوده في حقل السبب عند اضافة سجل جديد لموظف لنفس اليوم يقبل التكرار ولنفس التاريخ والسبب ؟ اريد عند اضافة السجل لا يتكرر لنفس اليوم .. فقط يتعدل السبب او يحذف السجل وفي اليوم التالي .. يوم جديد وتاريخ جديد ويقبل اضافة نفس الموظف بنفس الشروط السابقة.. وهل هناك طريقة لجعل اليوم والتاريخ متزامنه مع النظام ....

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

الله يزيدك من العلم والف شكر لك على التوضيح واكيد عند التطبيق الفعلي تتضح الصورة اكثر

السلام عليكم ما هو كود جمع الحقول النصية لأعداد موظفين حسب القسم في النموذج والاستعلام ؟ ولو ابي اجمع عدد المنتدبين والاجازات وغيرها من كل قسم وللعموم ؟ dsum او dlookup ؟ تحملوني ... هذا اخر نموذج بفحط فيه ... والله يجزاكم خير

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

اكيد اكثركم عمل برامج .. كيف يحدثه بعد المشاركه او يعدل شي او يضيف

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

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

ما اشوف شي مكرر ؟ ويمكن اني مفهي الكود واحد

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

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

بيض الله وجهك يبو خليل .. والله يوفقك يا زعيم

السلام عليكم حبايبي كيف اعدل في هالكود .. ابغى أغير كلمة ( نعم ولا ) باسم انا اختاره .. مثلاً التقرير الأول والتقرير الثاني Private Sub edite_Click() On Error Resume Next Select Case MsgBox("åá ÊÑÛÈ ÈÇáÊÚÏíá ¿" & vbCrLf & _ "", _ vbInformation + vbMsgBoxRight + vbYesNo, _ "ÊäÈíÜÜÜå : ÊÚÏíá ÓÌá") Case vbYes Next Case vbNo Exit Sub End Select End Sub

امتدادها accdb واشتغل بعد اضافة كود دقة الشاشة ولكن اختبصت الوزنية وعدلتها وجربتها على جهازي بالمنزل واختبصت والغريب ان حجم الملف نزل تقريبا 15 ميقا !! الله يجزاك خير على تجاوبك

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

السلام عليكم اخواني ركبت نظام الصلاحيات Users maker -Third Edition على نسخة البرنامج الموجوده بجهازي في المنزل وكل شي تمام وبعد نقلها لجهازي بالمكتب فتحتها وطلعت العبارة في الصورة المرفقة بان المشروع غير موجود ؟؟؟ وزحلطن كل الاكواد !!! هل هذا لجهلي بوقت تركيب نظام الصلاحيات وانه يجب تركيبه بعد الانتهاء تماما من البرنامج ؟ او هل يجب تركيبه على الجهاز الذي سيصبح السيرفر او ايييييه افيدوني يا خبراء الله يوفقكم

من ابو خليل نسفيد كثير الله يوفقه انا حليت المشكله هذي في نموذج عندي وقمت اتخيل وش بيسوي المستخدم من خنبقه في الازرار والحمد لله ما اعطيته اي فرصه للخنبقه في حدث عند النقر لاضافة سجل .. اجعله غير ممكن اذا كان يس او نو .. خليه بعد يس وضروري في الحفظ تجعله ممكن وقيس على الحركه هذي في الازرار اذا ودك واذا تبغاه ينجبر يعبي الحقول كامله قبل الحفظ في حدث عند النقر للحفظ اضف هذه العباره في الاول if is null(field) or isnull(field).... = true then msgbox"يجب تعبئة جميع الحقول " else ...... end if واذا فيه يس او نو عند النقر .. التقفيلة تكون قبل end sub وضروري تضيف زر للالغاء وفي الحدث me. undo كيفني معك يبو خليل