أحمد مبارك الحيقي

أخي لاستخدام CompactDatabase، لا بد، كما أشرت من قبل، إلى أن تكون قاعدة البيانات مغلقة، وإلى استحداث قاعدة بيانات جديدة (لا بد من استحداث قاعدة بيانات جديدة)... هذه هي طبيعة هذه الطريقة، كما هو واضح من الفقرتين اللتين تشرحان عمل الطريقة من ملفات مساعدة أكسس أع…

هل أفهم من كلامك أن قاعدة البيانات في السيرفر يتم إغلاقها في وقت ما؟ إن كان الأمر كذلك فالحل الأسهل أن تختار (أدوات>خيارات>عام>الضغط عند الإغلاق) أو نحوها من الكلمات (نسختي إنجليزية)... وهذا الخيار يقوم بضغط قاعدة البيانات عند إغلاقها تلقائياً... لاحظ أنه يجب …

حسناً أخي... أرفقت تعديلاً على ملفك يوضح الفكرة، انتبه لتحديث الجداول المرتبطة في حالة حدوث أي إشكال. في انتظار الرد إن حدثت مشاكل نستطيع معالجتها... ___________.rar

الفكرة أخي هي أنك ستستخدم الطريقة CompactDatabase لضغط ونسخ قاعدة البيانات إلى ملف جديد، ثم تستخدم أوامر DELETE لحذف البيانات من جداول قاعدة بياناتك الأصلية (التي تم النسخ منها إلى الملف الجديد)... DBEngine.CompactDatabase strOldDB, strNewDB حيث strOldDB هو اس…

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

طريقة أخرى: On Error Resume Next Dim tbl As DAO.TableDef strTest = CurrentDb.TableDefs("tblTest") If Err = 3265 Then MsgBox "table doesn't exist...", vbInformation, "ok, import" Else MsgBox "table exists...", vbExclamation, "wait, delete first" End If والله أع…

وعليكم السلام ورحمة الله وبركاته... بأمكانك أخي التأكد من وجود جدول بأكثر من طريقة... مثلاً، الاستعلام التالي: SELECT Name FROM MSysObjects WHERE (Type = 1) AND (Name = 'tblTest') يستعلم عن جدول tblTest، ويمكن استخدامه في الكود كالتالي مثلاً: Dim rs As DAO.Rec…

وعليكــم السـلام ورحمة الله وبركاتـه.. أخي الكريم مشارف... على افتراض أن الموظف قد يلتحق بأكثر من دورة، وللدورة الواحدة أكثر من مادة، والمادة الواحدة قد تدرس في أكثر من دورة، هذه ثلاثة تصاميم ممكنة... تم اختيار التصميم الثالث الذي يطبق مفهوماً في مخططات الكائن…

أخي sandm، أرى أنك تريدنا أن نأكل بيدين، وهذا صعب... لكن الأخ مشارف قد جاءنا بتمرين صغير في هذه المشاركة /index.php?showtopic=202698 أرجو الاطلاع، والإجابة: لماذا تم اختيار التصميم الثالث؟

بارك الله فيك أخي محمد... سأنتظر بإذن الله طوال هذا اليوم السبت وليلة الأحد من أجل الاقتراحات، ثم سأشرع بإذن الله في يوم الأحد في الاقتراح المختار...

استفتاء... في شهر رمضان: 1. تتوقف الحلقات تماماً. 2. نتوقف قليلاً من أجل التمرين على تصميم قاعدة بيانات صغيرة. 3. نخصص لرمضان دورة سريعة في SQL. في انتظار الردود... رمضان كريم... أخوكم أحمد.

أسأل الله العظيم رب العرش الكريم أن يوفقنا لصيام وقيام رمضان وألا يجعلنا من المحرومين إخوتي الكرام أجمعين... هنيئاً لنا فرصة أخرى، ورمضان آخر... ولعلنا لا ننسى أن رمضان دائماً فرصة للتغيير

وعليكم السلام ورحمة الله وبركاته... أخي الإجابة السريعة كالتالي: يلزمك حد أدنى من المعرفة بأصول تصميم قواعد البيانات من أجل تصميم جداول نظام المكتبة... يلزمك اختيار نظام إدارة قواعد بيانات من أجل بناء وإدارة قاعدة البيانات نفسها (مثلاً الأكسس)... يلزمك تعلم أس…

تستطيع أخي استخدام هذا الكود: Private Sub Command1_Click() strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colNetAdapters = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration " _ & "where I…

وعليكم السلام ورحمة الله وبركانه... أيضاً أخي محمد، من باب تنوع المحاولات، ومن بعد إذن أخي العبدلي، وعلى الرغم من أنني لم أجد الوقت لدراسة القاعدة المرفقة، لكن الكود التالي قد يقوم بالتقريب المطلوب في السؤال: TimeSerial(DatePart("h", tstHours), Int(DatePart("n…

المشكلة كانت في السطر الأخير فقط في الحدث التالي: Sub setfilter() Dim lsql As String lsql = "select * from dep" lsql = lsql & " where depId = '" & cboselected & " '" dep_SUP.Form.RecordSource = lsql End Sub لكن التصميم غير مفهوم...

ممتاز أخي العبدلي... كنت أنوي إرفاق حل مشابه لكنني وجدت ردك، جزاك الله خيراً.

الأخ العزيز sandm... أؤيد كلام الأستاذ الفاضل إيهاب عثمان، وأحب أن أضيف بعض النقاط من أجل إثراء النقاش... هناك دائماً ما يسمى بالـ trade-off، وربما أترجمه بالمفاضلة بين خيارين أوأكثر، في عالم الحاسوب... المفاضلة بين سرعة التنفيذ ومقدار الذاكرة، وسرعة التطوير، …

وعليكم السلام ورحمة الله وبركاته... ما رأيك أخي أن تجرب كتابة الاستعلام كاملاً في الحدث كما في المثال المرفق...] abc.rar

من بعد إذن الأستاذ يوسف، وبناءً على عبارته، يمكن أن تجرب أخي التالي: SELECT iif(Table1.point <= 6, 6, Table1.point) as Mark, Count(Table1.point) AS CountOfpoint FROM Table1 GROUP BY iif(Table1.point <= 6, 6, Table1.point) كل العلامات التي تصغر أو تساوي 6 تظهر …