Hamdi Edlbi-khalf

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

شكراً أخي العزيز @Shivan Rekany تستاهل ١٠ لايكات بس انتهى الرصيد 😭

و هل يتعارض تحويل القاعدة الى هذه الصيغ مع كلمة سر محرر الأوامر ؟ ما المقصود بالتشفير ؟

السلام عليكم بعد إذن أستاذي @Shivan Rekany @رمهان أسهل طريقة لعمل الترقيم التلقائي في نموذج أو تقرير لا بتغير بحذف السجلات : ١- اجعل مصدر النموذج استعلاماً. ٢- اجعل في الاستعلام حقلاً محسوباً يعتمد على قيمة ID و الذي يجب أن يكون حقل ترقيم تلقائي . ٣- ضع في الحقل المحسوب في الاستعلام المعادلة التالية DCOUNT("ID";"TABLE";"[ID]<="&[ID]) ٤- اجعل الحقل المحسوب مصدر حقل الترقيم التلقائي في النموذج . و إن شاء الله سيعمل لديك .

مرحباً يكفي لذلك بالأكسس عمل نموذج فرعي في النموذج الرئيسي مصدره استعلام في معايير حقل استحقاق القسط DATE() و سيعرض لك النموذج كل العملاء الذين استحقت أقساطهم الدفع .

مرحباً أعتقد أنك تبحث عن هذا

شكراً لرفع المنشور رفع الله قدرك في الدنيا و الآخرة .

مرحباً ... لقد شاهدت المرفقات في سؤالك أعتقد أن الفكرة التي طرحت لا تلبي ما طلبته . أعتذر أخي الكريم .

أخي الفاضل .. لم لا تبني تقريراً يتضمن تقريرين فرعيين مصدر الأول استعلام في معايير حقل التسلسل <= ١٥ بينما يكون مصدر التقرير الثاني استعلام في معايير حقل التسلسل Between 15 and 30 سيظهر التقرير بالصورة المطلوبة . و لا حاجة لكتابة أية أكواد ...

هذا كود يخفي كامل القوائم المختصرة Private Sub Form_Open(Cancel As Integer) Me.ShortcutMenu = False End Sub

في الواقع لم أجرب الكود . و لكن على ما أعتقد أنه يوضع في الحدث فتح و لعله بحاجة إلى تعريف دالة أو إلى موجع - مكتبة مفقودة لكن أحببت أن أشاركه مع الأساتذة عسى أن يكون ذا نفع .

مرحباً في الرابط المرفق كود لمنع فتح وضع التصميم و مشكلته الوحيدة أنه يمنع عرض اي قاعدة بوضع التصميم و لا يقتصر على القاعدة الحالية و التوصيات في إجابة السؤال كانت تحويل القاعدة إلى accde On Error Resume Next If Not GetUserInfo("ADMIN_PERMIS") = 1 Then Dim cb As CommandBar Dim cbCtl As CommandBarControl For Each cb In CommandBars If cb.type = msoBarTypePopup Then For Each cbCtl In cb.Controls If cbCtl.Caption = "&Design View" Then cbCtl.enabled = True cbCtl.visible = False Else cbCtl.visible = True End If Next End If Next Set cb = Nothing: Set cbCtl = Nothing End If https://stackoverflow.com/questions/15957315/disabling-design-view-in-ms-access

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

البرنامج لم يعرض أية رسالة عند النقر على زر التراجع و ذلك قبل أن أقوم بأية عملية تعديل . على أي حال الحمد لله على الوصول إلى مبتغاك و الشكر لـ @ابو ياسين المشولي

أخي الكريم ضع الأمر الخاص بالحذف بين الجملتين DoCmd.SetWarnings false q.delete DoCmd.SetWarnings true 

مرحباً DoCmd.SetWarnings false DoCmd.SetWarnings true ضع الأمر بين هاتين الجملتين البرمجيتين .

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

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

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

الحمد لله اللهم اجعله صدقة جارية في صحيفة من عمله و من نقله . خَلْف بل هو الشطر الأول من اسم رمزي .... خَلْف الساتر و قد تقصدت أن يقرأ على الوجهين.

لقد نقلت الكود من نموذج لدي لعلي أحظى بدعوة منكم إن عمل لديكم جلب أسماء الطابعات.accdb

بعيداً عن الروابط و التعريفات الجاهزة لمعنى " المكتبات البرمجية " " programming libraries " و قبل أن أطرح السؤال لا بد من وضع السؤال في سياقه حتى تمكن إزالة الإشكال يمكن القول أن المكتبات البرمجية هي مجموعة من البرامج الصغيرة التي تنفذ أوامر محددة . سواء في برنامج رئيسي أو في لغات البرمجة. تدعى ضمن نظام تشغيل الويندوز DLL Dynamic Link Library مكتبة الروابط الديناميكية و هي بعدة لواحق و بعضها تتضمن بيانات فقط . و تنقسم إلى نوعين ملفات خاصة بنظام التشغيل و ملفات تتم إضافتها إلى نظام التشغيل من قبل التطبيقات . أما فيما يتعلق بالمكتبات البرمجية الخاصة بلغة البرمجة فهي الأوامر الجاهزة التي يستخدمها المبرمج مباشرة دون الحاجة إلى إنشائها ( هل هذه المعلومة صحيحة ؟) السؤال الأول الذي توقفت عنده : المكتبات التي نجدها في محرر الفيجوال في أوفيس هل هي ملفات تضاف إلى نظام التشغيل أم هي مكتبات للأوامر ؟ و إذا كانت مكتبات للأوامر لمٓ لا تكون معرّفة جميعها بصورة افتراضية ؟ و بحال لم تكن موجودة كيف يمكن الحصول عليها جميعاً و تحميلها في محرر الفيجوال ؟

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

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

مرحباً لطالما تبادر إلى ذهني هذا السؤال و خاصة مع قراءتي عن لغات البرمجة و الحديث الذي دار عن أفضلية بعض لغات البرمجة بسبب تعدد مكتباتها ، و هنا يبدأ السؤال إذا كانت للغة البرمجة مكتبات و في نظام التشغيل مكتبات . فما هو الفرق إن وجد و هل مكتبات أكسس هي عبارة عن ملفات DLL ؟ ما حدا بي إلى هذا السؤال و جدده في ذهني هو مشاركات الأستاذ @ابوخليل باننظار الإجابة أو الإحالة إلى رابط و اضح ... فلم يزد البحث الأمر عندي إلا غموضاً