اذهب الي المحتوي
أوفيسنا

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

قام بنشر

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

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

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

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

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

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

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

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

قام بنشر

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

اخي الكريم

هذا المثال

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

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

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

والله الموفق

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

pc002.zip

قام بنشر (معدل)

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

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

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

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

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

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

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

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

تم تعديل بواسطه rudwan
قام بنشر (معدل)

ملاحظة؟

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

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

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

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

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

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

تحياتي

قام بنشر

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...
قام بنشر

السلام عليكم

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

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

قام بنشر

السلام عليكم

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

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

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

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

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

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

example1.rar

قام بنشر

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

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

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

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

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

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

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

قام بنشر

السلام عليكم

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

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

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

  • 2 weeks later...

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information