أحمد العيسى

كما ذكرت حضرتك بعد تغيير اسم امتداد الملف 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

تمام أخى محمد طالما أن التقرير يستند إلى استعلام إذن لا داعى لهذه التركيبة العجيبة ، مع العلم أن دالة Right([Year_name];4) تعطى نفس النتيجة شكراً جزيلاً على تفضلك بالرد

البعض يفضل إرفاق ملف للتعديل عليه لا بأس .. الملف مرفق db1.mdb

السلام عليكم فى قاعدة بيانات جدول باسم Tbl_basic وحقل عام دراسى باسم Year_name ويتم الحصول على هذا العام الدراسى " 2019 / 2020 " فى أى تقرير بذلك السطر ="أرقام موبايلات المدرسين فى عام " & DLookUp("[Year_name]";"Tbl_basic") هل من الممكن اقتصاص الأرقام 2020 فقط من العام الدراسى بدالة Left (DLookUp("[Year_name]";"Tbl_basic"),4) جربت هذا التداخل .. لكن لم ينجح فى انتظار رأيكم .. شكراً لكم مقدماً

بلا شك أدى الغرض منه مع تعديل بسيط =IIf(Year([birth])<=1971;[birth]+#31/12/1959#;IIf(Year([birth])=1972 Or Year([birth])=1973;[birth]+#31/12/1960#;IIf(Year([birth])=1974 Or Year([birth])=1975;[birth]+#31/12/1961#;IIf(Year([birth])=1976 Or Year([birth])=1977;[birth]+#31/12/1962#;IIf(Year([birth])=1978 Or Year([birth])=1979;[birth]+#31/12/1963#;IIf(Year([birth])>=1980;[birth]+#31/12/1964#)))))) وإن كنت أفضل كود نمطى بدلاً من دالة IFF شكراً مرة أخرى

كل الشكر لك أخى عصام على مبادرتك

السلام عليكم كما هو واضح بالعنوان مطلوب كود يقوم بحساب وقت الخروج على المعاش استناداً لتاريخ الميلاد فى القانون الجديد علماً بأنه عندما كان الخروج على سن 60 عاماً كان الموضوع بسيطاً جداً من خلال التكوين التالى =[birth]+#31/12/1959# وهذا ما تم معرفته فى القانون الجديد حتى مواليد 71 سيخرجون على سن 60 عاماً مواليد عام 72 و73 سيخرجون على المعاش على سن 61 عاما أي عام 2032. أما مواليد 74 و75 سيخرجون على المعاش في سن 62 عاما أي عام 2034، وكذلك مواليد 76 و77 سيخرجون على المعاش في سن 63 عاما أي عام 2036، ومواليد 78 و79 سيخرجون على المعاش في سن 64 عاما أي عام 2038. ومن المقرر أن يبدأ التطبيق الفعلي للقانون على مواليد 1980 وما بعدها، إذ سيخرجون على المعاش على سن 65 عاما، بداية من 2040.

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

أشكرك جداً هذا فى نظام أوفيس 2010 وما بعده ماذا عن وجود المقابل لذلك فى أوفيس 2003

السلام عليكم الغريب أن هذا الملف عملته من زمن بعيد على أكسل 2003 وأضفت إليه زر أمر للخروج من خلال الضغط عليه الآن قد اعترانى النسيان فى كيفية التعديل على هذا الزر أو حتى تحريكه من مكانه إلى مكان آخر أرجو من حضراتكم إلقاء النظر على هذا الملف ، وإرشادى لما قد نسيته ولكم مني خالص الشكر MenuExel.xls

أشكرك أخى الفاضل بارك الله فيك