أحمد العيسى

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 هل لديكم تفسير أو حل لهذه المشكلة !!

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

السلام عليكم بقاعدة بياناتى جدول يحتوى على حقول أساسية يجب تعبئتها أولاً ومن هذا الجدول يتم أخذ محتوى تلك الحقول كعناوين مكررة فى أغلب تلك القاعدة والمطلوب تكرماً إذا تم ملئ آخر حقل بالجدول يتم العودة لتحديد الحقل الأول بنفس السطر دون خلق سطر ( سجل ) جديد بالجدول أرجو أن تكون الفكرة واضحة

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

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

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

تمام أشكرك أخى الفاضل على تفضلك بالإضافة

السلام عليكم يوجد فى قاعدة بياناتى كود يتحكم فى تحميل ملف خارجى من المكان الافتراضى My Documents وأريد أن يتم تغير هذا الافتراضى إلى الموضع الذى أريد لهذا الكود أن يفتح عليه وليكن روت القطاع C وهذا هو كود مايكروسوفت مصحوباً بصورة تشغيله: Private Sub btnLocateFile_Click() Dim varItem As Variant Dim strPath As String Dim objFilePicker As FileDialog Dim db As Database Dim rst As DAO.Recordset Dim strUnitNumber As String Set db = CurrentDb() Set objFilePicker = Application.FileDialog(msoFileDialogFilePicker) With objFilePicker .AllowMultiSelect = False .ButtonName = "Select" .InitialView = msoFileDialogViewList .Title = "Select File" With .Filters .Clear .Add "Excel Files", "*.xls" End With .FilterIndex = 1 .Show End With If objFilePicker.SelectedItems.Count > 0 Then m_strFileName = objFilePicker.SelectedItems(1) Me.txtImportFile = m_strFileName End If End Sub

أشكرك أخى جعفر والله فكرتنى بأخى الغالى أبو هادى المرفق يعمل بلا مشاكل

بارك الله فيك أخى جعفر على تفضلك بالرد .. لقد تم تنقيح ما أشرت عليه ، لكن ما زالت المشكلة موجودة 1 - عند تشغيل الفورم و جدول قاعدة البيانات به " بيانات " نضغط على زر تصدير فينتج ملف أكسل من جدول القاعدة 2- بعد ذلك نضغط على زر حذف بيانات الجدول فيتم إزالة محتوى الجدول من القاعدة ويصبح الجدول فارغاً من البيانات 3- ثم عند الضغط على زر استيراد لجلب جدول أكسل المستخرج فى خطوة 1 تظهر رسالة الخطأ التالية أين الخطأ : db2.mdb

السلام عليكم للأخت زهرة ملف كمثال منها به زر استيراد جدول من ملف أكسل سبق تصديره من قاعدة بيانات معينة وعندما تقوم بحذف محتويات الجدول بتلك القاعدة ( وأصبح خالياً كخطوة أساسية) ، يمكنك استيراده بسهولة عندما طبقت كل هذا على مثالى db1.mdb ظهر خطأ فى عملية الاستيراد سؤالى : أين الخطأ عندى ، وما البديل لكى يتم تلاشى هذا الخطأ ؟؟ بالمرفقات الملفين المذكورين الأول للأخت زهرة بارك الله فيها . أشكركم مقدماً على تفضلكم بالرد . za-Export&Import.mdb db1.mdb