برنامج كفالات لقطع السيارات

[مازن زهران]

اقدم لكل اعضاء المنتدى الاعزاء برنامج من تصميمي علىى برنامج الاكسل

طبعا هذي اول مشاركة الي لكن اتمنى ان تكون لها فائدة للجميع

بغض النظر عن الفائدة العملية للبرنامج وموضوعه، فالافكار الموجودة به قد تقدم للبعض حلول وافكار جديدة

يمتاز البرنامج بما يلي:

- يتعامل البرنامح مع اكثر من مستخدم، حيث يوجد به نوعين من المستخدمين (مستخدم رئيسي: له كل الصلاحيات، مستخدم فرعي: فقط له صلاحيات الادخال)

مع امكانية اضافة عدد كبير من المستخدمين.

- يحتوي على شريط ادوات ، وهو عبارة عن مجموعة من القوائم المنسدلة.

- يحتوي على رزنامة، وبالنسبه للعملات فيمكنك تحديثها يوميا فقط بالضغط على زر تحديث الموجود في شاشة العملات.

- يحتوي على نوعين من التقارير (ادارية، مالية)

- تقرير لدخول المستخدمين للبرنامج

- يحتوي على شاشة لاسماء الثوابت في البرنامج (يمكن للمستخدم تغيير بعض ثوابت البرنامج من البرنامج نفسه)

^{النقطة الاخيرة من سلبيات البرنامج وغيره من البرامج التي اصممها رسالة تظهر فيها (copmile error in hidden module}

^{لماذا لا ادري، ويسبب الحرج لمن اقدم له البرنامج[}

انتظروا المزيد من البرامج

يمكنكم الدخول الى البرنامج

اسم المستخدم: mazen

كلمة المرور: mazen

cliams.rar

[احمد فضيله]

الاخ مازن زهران

جزاك الله كل خير

بس الملف مش بيشتغل

ارجو الافاده او اعادة الرفع مرة اخري

شكرا

[amir501]

جزاك الله كل خير ؟؟؟؟جاري تحميل الملف

[أيسم إبراهيم]

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

[احمد فضيله]

الاخ مازن زهران

جزاك الله كل خير

بس الملف مش بيشتغل

ارجو الافاده او اعادة الرفع مرة اخري

شكرا

[عمرانى]

البرنامج شغال 100% ومشكور على الجهد الكبير وبارك الله فيك

[احمد فضيله]

السلام عليكم

الاخ عمراني

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

جزاك الله خيرا

و شكرا

[احمد فضيله]

ارجو الافادة و جزاكم الله كل خير

[weld]

نأمل الأفادة عند تشغيل تلك البرنامج مشكووووووووووووووورين

[احمد فضيله]

الله المستعان

[mizotata]

جزاك الله خيرا

[الهادي الأمين]

جاري التحميل ،شكرا

[ضاحي الغريب]

أخي الكريم // مازن 

جزاك الله خيرا 

لكن الملف لا يعمل يظهر الخطا التالي عند التشغيل

 

 

ويوجد خطأ هنا

Private Sub UserForm_Initialize()
'For i = 4 To 20
'If Sheets("security").Cells(i, 1) <> "" Then ComboBox1.AddItem Sheets("security").Cells(i, 1)
'Next i
End Sub

[شوقي ربيع]

السلام عليكم 

الاخ مازن زهران

عمل جميل جزاك الله خير 

اما مشكلة عدم اشتغال البرنامج هي في تعريف المتغيرات 

قم بتعريف كافة المتغيرات في البرنامج ليشتغل مع الجميع

جزاك الله خيرا

[حمادة عمر]

اما مشكلة عدم اشتغال البرنامج هي في تعريف المتغيرات 

قم بتعريف كافة المتغيرات في البرنامج ليشتغل مع الجميع

 

 

اخي الحبيب / شوقي ربيع

احسنت .... احسنت .... احسنت

بالفعل احتراف تام ولا يحتاج الي نقاش بل يحتاج لاكثر من احتراف وستأتي باذن الله

جزاك الله خيرا

تم تعديل أبريل 23, 2013 بواسطه حمادة عمر

[ايهاب سعيد]

البرنامج لا يعمل

[goodfas]

 

أخي الكريم // مازن 

جزاك الله خيرا 

لكن الملف لا يعمل يظهر الخطا التالي عند التشغيل

 

 

ويوجد خطأ هنا

Private Sub UserForm_Initialize()
'For i = 4 To 20
'If Sheets("security").Cells(i, 1) <> "" Then ComboBox1.AddItem Sheets("security").Cells(i, 1)
'Next i
End Sub

 

مازن زهران الله يعطيك العافية تأكد من البرنامج.

[مازن زهران]

حل المشكلة بالمفرقات

حل مشكلة عدم فتح البرنامج.zip