ابوخليل

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

لا ادري كيف يحدث لك ذلك فعندي يعمل على اكمل وجه عملت بعض التعديلات ، حيث جعلت النسخ والحذف من الازرار فقط وطبعا قمت بتجربته حيث عدلت رقم الشهر الى 2 بعد اخذ النسخة وتم الحذف الى السلة db2.rar

جزاكم الله خيرا معلمينا الكرام ويمكن ان نجعل الامر اكثر مرونة فنستبدل ()Date بمتغير نجعله بين يدي المستخدم

لا تغير تاريخ الجهاز تاريخ اليوم هو 3/3/2016 انظر النسخ تبدأ من اليسار بالسنة اربعة ارقام ثم الشهر رقمين ثم اليوم رقمين كل الارقام الظاهرة في شهر 3 .... واصغر واحد يمثل اليوم 3 عدل التواريخ على النسخ جرب وعدل الشهر الى 02 بدلا من 03

الطلب الاول الرئيسي وهو الحفظ تفضل تم التطبيق على ثلاث نماذج فرعية اكمل كما هو موضح بالكود شرح الطريقة : بما ان تسميات الحقول بحروف عربية فانا اكتفيت بتسمية الحقل الاول في كل نموذج وسميته z1 عند النقر على زر الحفظ يجري التالي : 1- نقل التركيز على الحقل الفرعي 2- جعل قيمة z1 = z1 يعني ستكون مساوية للقيمة الافتراضية او للقيمة التي تم تغييرها 3- تحديث النموذج الفرعي 4- الانتقال للنموذج الفرعي الآخر .... وهكذا انا شرحت لك الطريقة حتى اكفيك عناء السؤال فضلا الاسئلة الاخرى افتح لكل سؤال موضوعا يخصه vv.rar

نفرض ان مربعات الخيار اسماؤها كالتالي a,b,c,e في حقل جديد في الاستعلام مصدر تقريرك الصق الجملة التالية expr1: IIf([a]=-1;"Excellent";IIf([b]=-1;"good";IIf([c]=-1;"fair";IIf([e]=-1;"poor")))) تعمدت وضع نصوص مسميات انجليزية حتى يسهل قراءة وفهم الكود

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

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

رؤيتك صحيحة بل هي الاصح انظر هنا تمت المعالجة حسب فكرتك

جزاك الله خير لو ارفقت مشكورا نسخة بصيغة mdb حتى تكون الفائدة اشمل

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

بالنسبة لمرفق الاستاذ محمد فهو يستحق عنوان وموضوع يخصه اخي اواب اعتذر عن التأخير والمسألة غلطة مطبعية او بالاصح تقديم سطر على سطر في الحدث Sub zerNc() انقل Exit Sub واجعلها في نهاية الاسطر يعني تكون بعد السطر Call delfiles كان الخلل انه يعطي نسخة ثم يخرج من الحدث قبل امر الحذف

العمل اننا نضيف سطر نحجب هذا الزر عند تحقق الشرط Me.fvacations.Form!zer1.Visible = False db1.rar

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

اجعل مجلد المشاركة للقراءة والكتابة

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

تستطيع منع الحذف من الفرعي عند تحقق الشرط والعكس صحيح لتصبح الجملة هكذا dty = DMax("edate", "employees") If Me.edate < dty Then Me.AllowEdits = False Me.fvacations.Locked = True Me.fvacations.Form.RecordSelectors = False Else Me.AllowEdits = True Me.fvacations.Locked = False Me.fvacations.Form.RecordSelectors = True End If اما مسألة الرسالة فليس لها صلة بالموضوع والافضل ان تفرد لها سؤلا يخصها

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

وعليكم السلام تفضل الامر المسؤول عن ذلك ويمكنك استبدال الرابط الموجود داخل لسطر اما بمربع نص او متغير Call Shell("explorer " & "D:\officena\a1\b1\c1", vbNormalFocus)

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

استخدم الدالة nz nz([a])+nz([m])+nz([f])+nz([c])+nz([d])

تفضل هذا تطبيق للفكرة التي ذكرتها اعلاه dty = DMax("edate", "employees") If Me.edate < dty Then Me.AllowEdits = False Me.fvacations.Locked = True Else Me.AllowEdits = True Me.fvacations.Locked = False End If db1.rar

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

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

ارفق مثالك واجعله على صيغة mdb يلاحظ في المثال الا يزيد على جدول واحد ونموذج وتقرير