اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

كيف أصمم برنامج تنبيه بالمواعيد ؟


ircpal

الردود الموصى بها

السلام عليكم ورحمة الله وبركاته

لدي مشروع عمل برنامج وانا محتار لا اجد الحل فهل من ذوي الخبره المساعده او اعطائي برنامج لما اريده ويلبي حاجياتي لو سمحتم ؟

فكرة البرنامج كما يلي

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

اريد ان اعمل برنامج على ان يعطيني تنبيه بانتهاء الندب للموظف قبل تاريخ الانتهاء بخمسة عشر يوما او كما احدده حسب الرغبه.

اريد ان يقوم البرنامج باخذ صور الكتب الخاصه بكل موظف عن طريق السكانر اي كل موظف يظهر لي مرفقاته وباستطاعتي طباعتها لو طلب الحاجه

فيا ليت من الاخوه اصحاب المنتدي الرائع الا يبخلو علينا بالتطوع والمساعده جعله الله في ميزان حسناتكم

والسلام عليكم ورحمة الله

رابط هذا التعليق
شارك

السلام عليكم ورحمة الله وبركاته

اخي الكريم

هذا المثال

فقط قم انشاء مجلد على c:\pc

وضع فيه الصوره

اخبرنى اذا كان هذا المثال ليس هو المطلوب

والله الموفق

والسلام عليكم ورحمة الله وبركاته

pc002.zip

رابط هذا التعليق
شارك

السلام عليكم ورحمة الله

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

جعل التاريخ ميلادي بدل هجري

البحث بواسطة عن الاسم

البحث بواسطة رقم الموظف فعادتها رقم الموظف يبحث عنه بالرقم الموحد ويتكون من 12 رقم او البطاقة المدنية وتتكون من 14 رقم

وطبعا يعطيني جميع ما يتعلق بالموظف من معلومات ووثائق خاصة به

وبارك الله فيك وجعله الله في ميزان حسناتك

والسلام عليكم ورحمة الله

تم تعديل بواسطه rudwan
رابط هذا التعليق
شارك

ملاحظة؟

ماذا تقصد " ادخل عدد الايام المتبقية" ؟؟؟

لو حبذا ان يكون التنبيه كفلاش يظهر بعدد الموظفين مجرد كلك على البوتوم ينقلني الى فورم وبه اسماء الموظفين الذين سوف ينتهي الندب قبل الموعد بخمسة عشر يوم مثلا

تم تعديل بواسطه rudwan
رابط هذا التعليق
شارك

لتحويل التاريخ الى ميلادي اضغط على خيارات بدء التشغيل , خيارات متقدمه - أزل علامة استخدام التاريخ الهجري فيتحول التاريخ الى ميلادي

أما بالنسبه للبحث , يوجد في الأرشيف مواضيع عديده جدا و طرق كثيره للبحث يمكنك الاطلاع عليها .

أما بالنسبه للأخ طيف فيمكنك ارسال رساله خاصه له حتى ينتبه الى ردودك في نفس الموضوع

تحياتي

رابط هذا التعليق
شارك

rudwan الى الاخ

لقد انحلت وجزاك الله كل الخير على المساعده

اخي رضوان يا ليت ان توضح هذه الكود هل فيه من الشببه لانه اسم الكود كمين؟ واذا ان فعلا كمين فيا ليت الاخوه ياخذو اجراء حول اللي عطتني الملف ( طيف)

Private Sub ÃãÑ95_Click() On Error Resume Next
Dim strCaminho As String
strCaminho = localizarArq("c:\")
If IsNull(strCaminho) Or strCaminho = "" Then Exit Sub
Me.figura3 = strCaminho
Call CarregaFoto On Error GoTo 0
End Sub

اعني هذا المسار strCaminho = localizarArq("c:\")

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

تم تعديل بواسطه rudwan
رابط هذا التعليق
شارك

السلام عليكم ورحمة الله وبركاته

مساء الخير

اما بالنسبه للكود فهو يحدد موقع الصوره واسمها

والبنسبه للبحث فكما قال الاخ رضوان هنالك امثله كثيره جداً

على كل حال سمحك الله على

اخي رضوان يا ليت ان توضح هذه الكود هل فيه من الشببه لانه اسم الكود كمين؟ واذا ان فعلا كمين فيا ليت الاخوه ياخذو اجراء حول اللي عطتني الملف ( طيف)

بالمناسبه مصطلح ((( كمين )) هو مصطلح عسكري اي وضع كمين في طريق العدو التي يسلكها

وعلى كل حال شكراً مره ثانيه

والسلام عليكم ورحمة الله وبركاته

رابط هذا التعليق
شارك

السلام عليكم ورحمة الله وبركاته

الاخوه اكرام

بالنسبه للكود

فهو من موقع اجنبي وليس من تصميم بل قمة بالتعديل عليه

وهذا المثال تجده في بعض المنتديات

هوه يقوم بفتح ( \:c ) لتحدد بعد ذلك المجلد الخاص بالصوره وتحدد اسم الصوره

والله الموفق

والسلام عليكم روحمة الله وبركاته

تم تعديل بواسطه rudwan
رابط هذا التعليق
شارك

  • 2 weeks later...

السلام عليكم جميعا

للاخ رضوان وللاخ طيف وكما وعدتكم بانني سوف ارفق المثال فهذا هو الرابط الذي اريد عمله وبه مثال وجزاكم الله كل الخير

http://www.arabteam2000.com/forums/index.php?showtopic=68696

رابط هذا التعليق
شارك

السلام عليكم

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

مع الاحترام والتقدير

رابط هذا التعليق
شارك

السلام عليكم

لماذا تنتقل لنموذج أخر وثم تريد أن ترجع إلى النموذج الأساسي ، بينما الأفضل تصميم 3 ازرار عرض مختلفة للبيانات في النموذج الرئيسي وهي

1. عرض جميع الموظفين

2. عرض الموظفين الذين شارف انتهاء انتدابهم (15 يوم)

3. عرض الموظفين الذين انتهى انتدابهم

هذا ما عملته لك في المثال المرفق.

مع الاحترام والتقدير

example1.rar

رابط هذا التعليق
شارك

للاخ رجب افضل تحية وتقدير

جزاك الله على المساعده يا اخ رجب

ولكن المثال الذي ارفقته لا يعطيني ما اريده بالضبط

ما اريده هو ان يظهر لكل فتره او تنبيه بان موعد الانتداب قد شارف على الانتهاء مثلا والشي الاهم هي الخانات التي ححدتها لك لعمل سكانر للكتب التي تخص كل موظف

وايضا هناك اخطاء تظهر لي عند فتح البرنامج Me.Filter = "enddate <= #" & Now & "#"

يا ليت اخ رجب تساعدني في حل البرنامج

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

رابط هذا التعليق
شارك

السلام عليكم

يبدو أنني فهمت طلبك بطريقة مختلفة ، وزودتك بالمثال غير المطلوب ولكنه مفيد بإذن الله لأفكار أخرى.

بالنسبة لرسالة الخطأ التي ذكرتها لا تظهر عندي ، ويبدوا أن ذك يعود لإختلاف نسخ الأكسيس بيننا ، أنا أستخدم أحدث نسخة (الأخيرة) .

مع الاحترام والتقدير

رابط هذا التعليق
شارك

  • 2 weeks later...

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information