ابوخليل

الطلب الاول الرئيسي وهو الحفظ تفضل تم التطبيق على ثلاث نماذج فرعية اكمل كما هو موضح بالكود شرح الطريقة : بما ان تسميات الحقول بحروف عربية فانا اكتفيت بتسمية الحقل الاول في كل نموذج وسميته 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 يلاحظ في المثال الا يزيد على جدول واحد ونموذج وتقرير

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

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

يمكنك كتابة كلمة : للرفع للتذكير بوضوعك بدلا من انشاء موضوع جديد

هل تقصد علامات الجدولة ؟ ايضا اليك طريقة اخرى لاخفاء اطار اكسس هذه اجعلها في وحدة نمطية عامة Global Const ME_HIDE = 0 Private Declare Function apiShowWindow Lib "user32" Alias "ShowWindow" (ByVal hwnd As Long, ByVal sCmdShow As Long) As Long Sub sHidwindow() Dim NMC As Long NMC = apiShowWindow(hWndAccessApp, ME_HIDE) End Sub وهذا السطر اجعله في حدث فتح النموذج Call sHidwindow اما علامة الجدولة فهي في صندوق الادوات يمكن سحبها وافلاتها داخل النموذج وهذا مثال لتلوين علامات الجدولة مع اخفاء اطار اكسس ColoredTabs.rar