ابو جودي

طيب اولا المساعده لله ولوجه الله 11 قاعه هل لهم اسماء ؟! 14 معمل نفس السؤال المطروح هل لهم اسماء - مواعيد الحجز هل كل الايام ؟ - اسماء المحاضرين او قدد تتغير الاسماء ولكن يمكن عمل جدول باسماء المحاضرين وربطه باسماء المواد العلمية التى سيتم محاضرتها داخل القاعات - كذلك نفس السؤال مطروح للمعمل اختنا الغاليه رجاء اسردى فى مشاركتك القادمه كل ما يخص هذا الموضوع سواء كان من قريب او من بعيد تفصيلا سأقدم المساعده قدر امكانى وحسب توفيق الله لى ولن يتخلى عنكى اساتذتنا الكرام فى هذا الصرح الشامخ فكما عهدناهم اهل الجود والكرم

اتمنى تجد مرادك ان شاء الله كما تتمنى

هذا المرفق يقوم بحذف الجدول بعد الوقت المحدد للعلم لو تم التلاعب بتاريخ الويندوز يتم ايقاف البرنامج جرب ورد على المرفق يحتوى على الاتى جدول T1 وبة حقل Date1 وذلك لتخزين تاريخ اليوم الأول لتشغيل النسخة التجريبية وبعدد العدد المحدد من الايام والذى تدخله انت فى الكود كما تحب فى هذا الكود في حدث عند الفتح للنموذج Private Sub Form_Open(Cancel As Integer) On Error GoTo MyErr: Dim MyFirst As Date Dim MyInDate Dim MyTableName As String MyInDate = DFirst("[Date1]", "[T1]") If Not IsNull(MyInDate) Then MyFirst = MyInDate Else DoCmd.SetWarnings False DoCmd.RunSQL ("INSERT INTO T1 ( Date1 ) SELECT Date();") DoCmd.SetWarnings True MyFirst = Date End If If MyFirst <= Date - 15 Then ' غير الرقم 15 الي اي رقم تريد txt1.Caption = "مضي علي تشغيل البرنامج 15 يوم وسيتم ايقافة" cmdclose.Visible = False Call TableDelete Else If MyFirst > Date Then txt1.Caption = "تم التلاعب بتاريخ الجهاز وسيتم ايقاف البرنامج" cmdclose.Visible = False Call TableDelete End If End If Exit Sub MyErr: If Err.Number = 3078 Then txt1.Caption = "مع السلامة عليك مراجعة صاحب البرنامج" cmdclose.Visible = False Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub لاحظ هذا الكود If MyFirst <= Date - 15 Then هذا عدد الايام الذى تريد فتح البرنامج خلاله انا عملتها لك فى المرفق 1 فقط للتجربه وتقدر تغير التاريخ كما تحب من الكمبيوتر من الويندوز وجرب البرنامج اممممممم وهذا الكود الذي يقوم بعملية حذف الجداول من قاعدة البيانات في حالة انتهاء المدة Function TableDelete() On Error Resume Next Dim MyDb As Database Dim MyTable As TableDef Dim MyTableCount As Integer Set MyDb = Application.CurrentDb MyTableCount = MyDb.TableDefs.Count For i = MyTableCount - 1 To o Step -1 Set MyTable = MyDb.TableDefs(i) MyTableName = MyTable.Name If Left$(MyTableName, 4) <> "Msys" Then MyDb.TableDefs.Delete (MyTableName) Next MyDb.Close End Function نسخة اخرى بصيغة 2000-2003 Demo.rar هذا المرفق 2007-2013 فقط Demo.rar

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

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

بما أن الحاسب استطاع قراءة الفلاشة فلا يوجد مشكلة أما بشأن الفرمتة فلا تؤثر أبدا على عمل البرنامج إن كانت الفرمتة للفلاشة أو للحاسب لا يوجد أي تأثير بما أن الحاسب استطاع قراءة الفلاشة فلا يوجد مشكلة وماذا لو لم يستطع الحاسب قراءة الفلاشة ب اى وضح من الاوضاع ؟

طيب ولو الفلاشة اتحرقت ايه هو الحل وهل لو حدث مشكله فى الفلاشه وتم عمل فورمات هل يتأثر البرنامج ؟!

فى ملف باسم DATA.DBF واضح انه فعلا مش بيشتغل على اكسس 2013 بسس للعلم احنا بنتقدم يعنى المفروض كل الناس تتجه للاحدث لانه مع الوقت القديم راح يتوقف الشغل والدعم عنه تمام انا مش عارف ملاحظ الناس متمسكه باصدارات اقدم ولا اعرف السبب ؟ ياريت لو فى وجهة نظر توضحوها لنا ينوبكم فينا ثواب ليه انتم مصريين على العمل على الاصدرات القديمه ؟ بينما الاصدارات الحديثه تتيح الكثير من الامكانيات التى لا توجد فى نظيرتها القديمه

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

شوف ده مثال شامل وجامع إخفاء واظهار الجداول والكائنات.rar

طيب عاوزين ومحتاجين بيانات للمساعده عدد القاعات عدد المعامل البيانت الثابته والغير متغيره ليتم انشاء الجداول الثابته وربطها بالعلاقات اللازمه

انا عملت اعداد على البارتيشن d زى ما حضرتك قلت وفتحت من الايقونه على سطح المكتب بس ده اللى بيظهر لى

السلام عليكم ورحمة الله تعالى وبركاته هل يمكن اخفاء !Type# والتى تظهر فى هذه الصورة للحقل الذى يتم اختياره من الكمبوبوكس وذلك للبحث عن قيمة ضمن البيانات التى يحتويها هذا الحقل

​كل الشكر والتقدير استاذ عبد الله قدور جزاكم الله خيرا

كل الشكر والتقدير استاذ مارد جزاكم الله خيرا

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

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

طيب ممكن المرفق للقاعده لو تكرمت

حضرتك بتسأل عن اكسل وهنا قسم الاكسس

الف الف الف مبروووووووووووك بصراحه الاستاذ مارد والاستاذ عبد الله قدروه يستاهلوا كل الخير

الإنسان دون إيمان كوحش فى قطيع لا يرحم....... والإنسان دون أمل كنبات دون ماء .... والإنسان دون ابتسامة كوردة دون رائحة....

كل الشكر والتقدير لكل الاساتذة الكرام

جزاكم الله خيرا استاذ رمهان وكل الشكر والتقدير

ههههههههههههه الحمد لله انها جت سليمه والف الف الف سلامه عليك استاذنا الغالى شفاك الله وعافاك

ههههههههههههه طيب لو مش كسلان كنت عملت ايه ؟! ههههههههههههههههههههههههههههههههههه للعلم انا مش راح اسألك إلا وأنت كسلان