ابوخليل

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

جزاك الله خير لو ارفقت مشكورا نسخة بصيغة 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

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

وعليكم السلام DoCmd.RunCommand acCmdAppMinimize dbx.rar

Private Sub Form_Current() If Me.fldate < Date Then Me.AllowEdits = False Else Me.AllowEdits = True End If End Sub باعتبار flddate هو حقل التاريخ في النموذج db2.rar

الحمد لله وبارك الله فيك الله يسعدك يابوعبدالله ما يفوت عليك شي