المساعدة في نموذج لقاعدة بيانات السيارات

[أحمد الشحات85]

السلام عليكم ورحمة الله وبركاته الأعضاء المحترمين أرغب بنموذج لقاعدة بيانات السيارات أقدر اضيف فيه بيانات السائقين والسيارات والمخالفات بانواعها فرجاءا اللي عنده النوذج دا يفيدنا وشكرا مقدما

[kkhalifa1960]

تفضل استاذ @أحمد الشحات85 عملت لك الجداول والنماذج  املأهم   . ووافني بطلباتك منم . ووافني بالرد . وانشاء الله بكمل بعد صلاة المغرب يطلباتك

Ahmed ElShahat.rar

تم تعديل April 11 بواسطه kkhalifa1960

[أحمد الشحات85]

اولا أشكرك جدا أستاذي  الفاضل لكن برسل لك أكسيل شيت فيه كافة البيانات اللي محتاجها إن أمكن يكون التصميم لنفس البيانات الرئيسية وأنا بعد ذلك أدخل البيانات الله يسعدك لكن كرما يكون فيه نموذج لتقرير شامل مثل هذا اللي بالاكسيل وجزاكم الله خير الجزاء

قاعدة بيانات الشركة.xlsx

[kkhalifa1960]

ابشر    لكن تابعني .............. 

[kkhalifa1960]

 

في 14‏/4‏/2026 at 18:37, أحمد الشحات85 said:

اولا أشكرك جدا أستاذي  الفاضل لكن برسل لك أكسيل شيت فيه كافة البيانات اللي محتاجها إن أمكن يكون التصميم لنفس البيانات الرئيسية وأنا بعد ذلك أدخل البيانات الله يسعدك لكن كرما يكون فيه نموذج لتقرير شامل مثل هذا اللي بالاكسيل وجزاكم الله خير الجزاء

تفضل استاذ @أحمد الشحات85 الشرح والمرفق حسب ما فهمت . ووافني بالرد .

                                                                                                    

Ahmed ElShahat.rar

[أحمد الشحات85]

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

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

[kkhalifa1960]

12 ساعات مضت, أحمد الشحات85 said:

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

بالنسبة للعملة والتلوين تم عمل اللازم أما ملئ معلومات السيارة لابد من نموذجه    وانت بتسدعي المعلومات بنموذج الاستمارة بمجرد اختيار رقم السيارة   هذا شغل أكسسس وليس أكسل

 

12 ساعات مضت, أحمد الشحات85 said:

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

في فرق كبير كما وضحت لك من قبل بين شغل اكسس  وشغل اكسل   اطبع التقرير  بتحصلهم بورقة واحدة    ................... 

انا عملت لك عمل اكسس احترافي   وتفضل التعديل ...........ووافني بالرد.

Ahmed ElShahat 1.rar

تم تعديل الخميس at 19:22 بواسطه kkhalifa1960

[أحمد الشحات85]

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

[kkhalifa1960]

تمام يا @أحمد الشحات85 ، خلينا نرتب خطوات إعداد اللغة في Windows عشان أي جهاز يشغل قاعدة Access بالعربي يقرأ الحقول بشكل صحيح:

* الخطوات العملية لتغيير إعدادات اللغة في Windows

1. افتح الإعدادات (Settings):

   • اضغط على زر Start → اختر Settings (الإعدادات).

2. اذهب إلى الوقت واللغة (Time & Language):

   • من القائمة الجانبية اختر Time & Language.

   • ثم اختر Language & Region.

3. أضف اللغة العربية:

   • اضغط على Add a language.

   • ابحث عن Arabic (Saudi Arabia) أو أي دولة عربية تناسبك.

   • اضغط Install.

4. اجعلها اللغة الافتراضية للعرض (Display Language):

   • تحت Windows display language اختر Arabic.

   • هذا يضمن أن النظام يعرض النصوص العربية بشكل صحيح.

5. تغيير إعدادات المنطقة (Region):

   • في نفس الصفحة، تحت Country or region اختر دولة عربية.

   • هذا يساعد في عرض التواريخ والأرقام بصيغة عربية.

6. تغيير اللغة للنظام (System Locale):

   • افتح Control Panel → Region.

   • اذهب إلى تبويب Administrative.

   • اضغط على Change system locale.

   • اختر Arabic (Saudi Arabia) أو أي دولة عربية.

   • اضغط OK وأعد تشغيل الجهاز.

 

* النتيجة:

• النصوص العربية تظهر بشكل صحيح في Access.

• الحقول اللي كانت تطلع برموز أو غير مفهومة، حتظهر بالعربي الطبيعي.

• التواريخ والأرقام كمان حتكون بصيغة عربية متوافقة.

****** كده تضمن إن أي جهاز يشغل القاعدة يقرأ الحقول بالعربي بدون مشاكل .

[أحمد الشحات85]

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

[kkhalifa1960]

لا لا الرسالة المرفقة بتظهر لما بتضيف سجل جديد وتذهب مباشرةً لزر الطباعة ...  لذا عدل زر الطباعة الى 

Private Sub btnPrintForma_Click()
    ' التحقق من إدخال رقم المركبة
    If IsNull(Me.CarID) Or Me.CarID = "" Then
        MsgBox "الرجاء إدخال رقم المركبة", vbExclamation, "تنبيه"
        Exit Sub
    End If
    
    ' حفظ السجل الحالي قبل الطباعة
    If Me.Dirty Then
        Me.Dirty = False
    End If
    
    ' فتح التقرير على نفس السجل
    DoCmd.OpenReport "rpt_Forma", acViewPreview, , "FormaID = " & Me.a1
End Sub