أحمد العيسى

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

أشكرك أخى الفاضل

بارك الله فيك