أحمد العيسى

تم هذا العمل ، بل وأفضل منه بالتأكيد ( ببرنامج قيجوال بيسك .نت) للاستاذ / ياسر عبد الجليل باسم OBS السؤال : هل يمكن عمل مثل هذا التطبيق ببرنامج أكسس مفتوح للإستفادة والتعلم ؟

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

السلام عليكم كما ذكرت يوجد مربع نص يطلب إدخال كلمة سر (1) ، ثم عند النقر على زر "موافق" يتم تنفيذ كود التحقق من محتوى مربع النص المطلوب الاستغناء عن زر "موافق" وبعد إدخال 1 فى مربع النص والضغط على إنتر يتم تنفيذ كود الزر المثال بالمرفقات db1.mdb

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

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

السلام عليكم قبل التعديل فى قاعدة البيانات الخاصة بى والتى تحتوى على صف دراسى واحد لم تقابلنى أى مشكلة وذلك باستخدام نموذج إظهار التقارير ( الذى اقتبسته من أحد الزملاء ) بناءاً على فلترة معينة "وهى كلمة تقرير " لكن بعد إضافة صف دراسى آخر أو أكثر ووضع كلمة "تقرير2 " فى بدء تسمية تقارير الصف الثانى ، ظهرت المشكلة كما هو واضح فى الصور التالية ، وقد أرفقت مثال لقاعدة البيانات كما نصحنى الأخ الفاضل أبو خليل db1.rar SELECT DISTINCTROW Mid([Name],7) AS Expr1, MSysObjects.Type FROM MSysObjects WHERE (((MSysObjects.Type)=-32764 Or (MSysObjects.Type)=-32768) AND ((MSysObjects.Name) Like "تقرير*")) ORDER BY MSysObjects.Name; وما المقود بهذه الأرقام -32764 -32768

DoCmd.SetWarnings False DoCmd.DeleteObject acTable, "tbl_Student2" DoCmd.CopyObject , "tbl_Student2", acTable, "tbl_Student" DoCmd.SetWarnings True فعلاً هى أفضل إجابة بقليل من السطور فى كتابة الكود .. شكراً لك لكن أيضاً لا أنسى توجيه الشكر للأخ العزيز Foksh على مجهوده وعمله وكذلك ابو جودي على التحفيز والتحدى لنصل لهذا الحل

عملت حل سابقاً لهذا الموضوع وهو إنشاء نسخة أخرى جديدة من الجدول المستهدف ( البنية فقط ) فى هذه الحالة التسمية سوف تكون موجودة ثم حذف محتوى الجدول بهذا السطر ( وسوف يكون التسمية موجودة بعد الحذف ) إذا كان تم ملئه DoCmd.RunSQL "DELETE tbl_Student2.* FROM tbl_Student2;" المشكلة فى السطر التالى فهو يقوم بحذف التسميات العربية عندما نقوم بنسخ القديم فى الذى تم تفريغه DoCmd.RunSQL "SELECT tbl_student.* INTO tbl_student2 FROM tbl_student;" أما فى عدم إرفاقى قاعدة البيانات السبب هو أنه تم عملها على 2003 كما أن بها الكثير من الخصوصيات

تمام أصبح بلا أخطاء لكن ما زال رؤوس الجدول الجديد الناتج بأسماء الحقول الإنجليزية وليست بأسماء التسمية التوضيحية

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

Dim db As Database تعطى نفس الخطأ أيضاً ؟ عموماً تغيير رؤوس الجدول لا تأثر على المخرجات المطلوبة ( التقارير ) إذن سأكتفى مؤقتاً بالكود الصحيح ، وشكراً جزيلاً لكم

معذرة .. تعبتك معايا اكتشفت أن الكود التالى غير متوافق مع 2003 Dim db As DAO.Database

تمام هذا ما أريده وقد قمت بالتعديل عليه بالإضافات اللازمة : Private Sub Cmd2_Click() Dim Msg, Style, Title, result Msg = "ÓíÊã ÇáÂä ÍÐÝ ÌÏæá ÇáÕÝ ÇáËÇäì! ääÕÍ ÈÊÕÚíÏ ÇáÕÝ ÇáËÇäì Åáì ÇáËÇáË ÃæáÇ!!! åá ÊÑÛÈ Ýí ÇáÇÓÊãÑÇÑ ¿¿" Style = vbInformation + vbYesNo + vbMsgBoxRight Title = " ÊÍÐíÑ - ÍÐÝ ÌÏæá ÇáÕÝ ÇáËÇäì" result = MsgBox(Msg, Style, Title) If result = vbYes Then DoCmd.SetWarnings False DoCmd.DeleteObject acTable, "tbl_student2" DoCmd.RunSQL "SELECT tbl_student.* INTO tbl_student2 FROM tbl_student;" MsgBox "Êã ÍÐÝ ÌÏæá ÇáÕÝ ÇáËÇäì æÅÍáÇá ãÍÊæíÇÊ ÇáÕÝ ÇáÃæá Ýì ÌÏæá ÌÏíÏ ÈÇÓã ÇáÕÝ ÇáËÇäì", vbOKOnly + vbMsgBoxRight, "ÅÚáÇã ÍÐÝ" DoCmd.SetWarnings True ElseIf result = vbNo Then DoCmd.CancelEvent MsgBox "!!! áÞÏ Êã ÅíÞÇÝ ÚãáíÉ ÇáÍÐÝ ", vbOKOnly + vbMsgBoxRight, "ÅÚáÇã ÊæÞÝ Úä ÇáÍÐÝ" End If End Sub لكن الجدول الجديد لا يظهر التسميات التوضيحية بل يظهر الحقول بالرؤوس الانجليزية المصممة بالبرنامج دون التسميات التوضيحية

المشكلة أن مثل هذا السطر غير متوافق مع 2003 Dim db As DAO.Database هل من الممكن البناء على الكود التالى فهو بعمل كما اريد ولكن بتحذيرات برنامج الأكسس التى لا أريد إظهارها : Private Sub Cmd2_Click() DoCmd.DeleteObject acTable, "tbl_student2" DoCmd.RunSQL "SELECT tbl_student.* INTO tbl_student2 FROM tbl_student;" End Sub

سوف أجرب الكود على أكسس 2024 لأننى الآن أعمل على أكسس 2003 كود حذف الجدول الذى يتوافق معى هو DoCmd.DeleteObject acTable, "tbl_student2" جاري البحث عن كود الإنشاء بالبيانات ..

للأسف لم يعمل !

السلام عليكم عندى جدولين فى نفس قاعدة البيانات : الأساسي للصف الأول tbl_student ، الآخر للصف الثانى tbl_student2 المطلوب برمجياً حذف الجدول الثانى (tbl_student2) تماماً ، ثم استنساخه مرة أخرى من الجدول الأول (tbl_student) بنفس الأسم (tbl_student2) ما سبق يجب وضعه فى زر أمر ربما هذا الموضوع قد سبق شرحه هنا ، لكن بحثى لم يأتى بنتيجة عموماً : شكراً مقدماً لكل من سوف يشارك بأى فكرة

تمام أشكرك شكراً جزيلاً

شكراً لردك هل من الممكن الإشارة إلى مثال بالمنتدى به هذه الأوامر برمجياً

السلام عليكم أنا أستخدم الأمر Form_frm_Main.Visible = False فى خاصية حدث عند التحميل للنموذج frm_Basic ومن المفترض إخفاء النموذج frm_Main وإظهار النموذج الجديد لكن هذا لا يتم أين الخطأ ؟؟

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

تمام .. أشكرك "اما accdr فهو عبارة عن اعادة تسمية امتداد الملف ولا تؤثر على عمله مطلقاً" "بعكس accdr فهو يعتبر Runtime" الجملتين السابقتين لم استوعبهما .. فإذا كان الملف "Runtime" كيف يمكن رؤية أكواده ؟

السلام عليكم بالملف المرفق يقول مصممه أن التطبيق يعمل بسهولة ويمكنك رؤية جداوله فقط .. لكن لن تستطيع رؤية الكود تشغيل التطبيق يكون بالنقر على CMMS_R00_8.accdr رؤية الجداول يكون بالنقر على CMMS_data.accdb رجاء من الزملاء شرح كيف تم عمل ذلك !! CMMS_R00_8.zip

أأشكرك أخى ابا جودى لا أظن أن الإعلان عن المتغير سبباً .. ثم أن تطبيقى كان يعمل بلا مشاكل على نفس المواصفات إياها وجدت مقالة تشرح هذا الموضوع ، سوف أطالعها .. لعل وعسى : https://www.exefiles.com/ar/dll/dao360-dll/

السلام عليكم قاعدة بياناتى تم إنشائها بأوفيس 2003 وهى تعمل بكفاءة على كل الإصدارات التالية أيضاً لم يكن بها أى مشكلة فى بيئة ويندوز 10نسخة 64 بت مع اوفيس 2019 نسخة 64 بت فهى تعمل فى وضع التوافق ، الغريب ما حدث بعد ذلك عند تنصيب نفس النظام ونفس الأوفيس من جديد ، وعند تشغيل نفس التطبيق يقو م الأكسس بإظهار شاشات كثيرة تبحث عن الملف dao360.dll ثم لا يتم التشغيل وذلك بالرغم من وجود هذا الملف المبحوث عنه فى الموقع C:\Program Files (x86)\Common Files\Microsoft Shared\DAO هل لديكم تفسير أو حل لهذه المشكلة !!