رسالة تنبيه

[looodi]

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

علماً ان عقد الموظف لمدة سنة

 

[Shivan Rekany]

اخي الكريم ممكن ترفع المرفق

من شان نعمل عملية عليه

if datediff("yyyy",me.tarix,1) then
msgbox "نص الرسالة"
end if

فرضنا ان me.tarix هو مربع نصي اللي بها تاريخ العقد

مع تقدير

شفان ريكاني

[looodi]

اخي SHIVN

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

 

تشرح**

[Shivan Rekany]

عند تحميل on load

اخي تكدر ترفع المرفق
بواسطة هذا الموقع http://www.4shared.com/

او موقع درايف من كوكل

مع تحياتي

شفان ريكاني

تم تعديل أكتوبر 24, 2016 بواسطه Shivan Rekany

[looodi]

تفضل

https://www.4shared.com/file/Wur7WexAba/PSDB_-_Copy.html

[Shivan Rekany]

8 دقائق مضت, looodi said:

تفضل

https://www.4shared.com/file/Wur7WexAba/PSDB_-_Copy.html

عفوا اخي حاولت ان انزل البرامج لكن ما اكدرت

ممكن ترسللي علبريدي الخاص

shivan_rekany212@yahoo.com

او علفيس

https://www.facebook.com/Shivan1988

شفان ريكاني

[looodi]

8 minutes ago, Shivan Rekany said:

عفوا اخي حاولت ان انزل البرامج لكن ما اكدرت

ممكن ترسللي علبريدي الخاص

shivan_rekany212@yahoo.com

او علفيس

https://www.facebook.com/Shivan1988

شفان ريكاني

تم الارسال

[looodi]

1 hour ago, looodi said:

 

ارجو الرد اخي شفان

[Shivan Rekany]

الان, looodi said:

ارجو الرد اخي شفان

شوف استعلام 2

ونموذج asmend

في البداية فتح نموذج الرئيسية

اتمنى ان تنال اعجابك

مع تقدير

شفان ريكاني

PSDB - Copy.rar

[looodi]

قمت بانشاء استعلام واضفت فيه اسم الموظف وتاريخ انهاء العقد وعملت اضافة الامر هذا

عدد الايام المتاحه: dtediff("d" ; dte() ; [مدة انتهاء العقد])

وظهر هذا الخطا

 

 

 

 

[Shivan Rekany]

5 دقائق مضت, looodi said:

قمت بانشاء استعلام واضفت فيه اسم الموظف وتاريخ انهاء العقد وعملت اضافة الامر هذا

عدد الايام المتاحه: dtediff("d" ; dte() ; [مدة انتهاء العقد])

وظهر هذا الخطا

بدون تعمل استعلام

انا عملتك استعلام ونموذج

بس عليك فتح قائمة رئيسية

حين تفتح القائمة هو راح يشوف

اي تاريخ انتهاء العقد مضى عليه

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

اذا تضغط نعم راح يفتح النموذج اللي انتهى عقده

مع تقدير

شفان ريكاني

[Shivan Rekany]

 

منذ ساعه, looodi said:

وظهر هذا الخطا

اخي العزيز
وافيني بالنتيجه‌
هل وصلت لما تريد

مع تحيات

شفان ريكاني

[looodi]

15 hours ago, Shivan Rekany said:

 

اخي العزيز
وافيني بالنتيجه‌
هل وصلت لما تريد

مع تحيات

شفان ريكاني

لم اصل الى حل هل ممكن ان توضح لي ماذا اعمل قمت بحذف الأستعلام الان ولكن اين اضع الكود البرمجي لكي يظهر لي تنبيه بانتهاء عقد أي موظف

15 hours ago, Shivan Rekany said:

 

اخي العزيز
وافيني بالنتيجه‌
هل وصلت لما تريد

مع تحيات

شفان ريكاني

اسف اخي لم انتبه الى رد السابق سوف اقوم بتحميل المرفق الان وارد لك 

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

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

[looodi]

• اخي انت قمت بوضع بيانات جدول annul
• لم تقوم بوضع بيانات الموظفين في نموذج العقد المنتهي ؟

[looodi]

18 hours ago, Shivan Rekany said:

شوف استعلام 2

ونموذج asmend

في البداية فتح نموذج الرئيسية

اتمنى ان تنال اعجابك

مع تقدير

شفان ريكاني

PSDB - Copy.rar

اخي انت قمت بوضع بيانات الاجاززة ولم تقوم بوضع بيانات الموظفين التي فيها تاريخ نهايه العقد

[Shivan Rekany]

2 ساعات مضت, looodi said:

اخي انت قمت بوضع بيانات الاجاززة ولم تقوم بوضع بيانات الموظفين التي فيها تاريخ نهايه العقد

اخي حين ارسلت لي الملف كان ما بها اي بيانات لذا انا ما كان اعرف اي جدول له وانا اضفت البيانات

لكن لا تزعل اليوم بالعصر ان شاء الله راح اسوي كما تريد

اكن قل لي اي جدول هو للموظفين

مع تحياتي 

شفان ريكاني

[looodi]

16 minutes ago, Shivan Rekany said:

اخي حين ارسلت لي الملف كان ما بها اي بيانات لذا انا ما كان اعرف اي جدول له وانا اضفت البيانات

لكن لا تزعل اليوم بالعصر ان شاء الله راح اسوي كما تريد

اكن قل لي اي جدول هو للموظفين

مع تحياتي 

شفان ريكاني

نعم لاتوجد بيانات لكن انا اقصد اسماء الحقول  موجودة في كل جدول ولكن انت اضفت حقول جدول الاجازات والمفروض يكون جدول employee

[Shivan Rekany]

4 دقائق مضت, looodi said:

نعم لاتوجد بيانات لكن انا اقصد اسماء الحقول  موجودة في كل جدول ولكن انت اضفت حقول جدول الاجازات والمفروض يكون جدول employee

ان شاء الله اليوم بالعصر راح اعمل عليه

وساشرح لك

كما تريد

هسه انا عم استخدم موبايل

مع تحياتي

شفان ريكاني

[Shivan Rekany]

3 ساعات مضت, looodi said:

نعم لاتوجد بيانات لكن انا اقصد اسماء الحقول  موجودة في كل جدول ولكن انت اضفت حقول جدول الاجازات والمفروض يكون جدول employee

اتفضل 

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

راح يظهر الرسالة وبيقولك ان انتهى عقد ل (  ) اشخاص هل تريد تتابع

اذا بيقول نعم راح يفتح نموذج خاص (ASMEND) للمنتهىي العقود مالهم

واذا تقول لا ما راح يير شي

شو ووافيني بالنتيجة

اذا هذا كان طلبك خلي اشرح لك العمل

مع تحياتي

شفان ريكاني

PSDB - Copy.rar

[looodi]

17 hours ago, Shivan Rekany said:

اتفضل 

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

راح يظهر الرسالة وبيقولك ان انتهى عقد ل (  ) اشخاص هل تريد تتابع

اذا بيقول نعم راح يفتح نموذج خاص (ASMEND) للمنتهىي العقود مالهم

واذا تقول لا ما راح يير شي

شو ووافيني بالنتيجة

اذا هذا كان طلبك خلي اشرح لك العمل

مع تحياتي

شفان ريكاني

PSDB - Copy.rar

يعطيك الف عافيه هذا اللي ابيه ولكن شفت بيانات اضافيه

هل انت اضفت المرفق attach fil name

 

وضحي لي كيف تم عمله

[Shivan Rekany]

في البداية انا عملت استعلام باسم query2 وخليت في حقل تاريخ انتهاء العقد هذا

<=date()

يعني يظهر استعلام من تاريخ الحقل انتهاء العقد اصغر او يساوي اليوم

وبعدين عملت نموذج باسم asmend وخليت مصادره استعلام query2

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

dim xx as integer
'متغير باسم ئكس ئكس وخليتها رقم
xx = nz(dcount("[employee_name]" , "query2"))
'ئكس ئكس يساوي نول زير يعنس اذا كان خالي خليها صفر وتعدا من حقل امبلوي نيم من كواريري 2
if xx > 0 then
'اذا ئكس ئكس  كان اكبر من الصفر بعدين
beep
'صوت
if msgbox("عندك" & " ( " & xx & " ) " & "موظف المنتهي عقده  ، هل تريد تتابعها" , vbyesno + vbmsgboxright, "تنبيه" ) = vbyes then
' بعدين فتحت شرط اخر برسالة وبها زرين نعم و لا و خليت اسم الرسالة تنبيه و خليت الرسالة بيكون من اليد اليمنى وقفلت قوس الرسالة و واذا كان تضغط على زر الرسالة نعم بعدين
docmd.openform "asmend" m acnormal
' فتح نموذج "asmend" بطريقة نورمال
else
' واذا كان لا تضغط على زر نعم ما كتبت شي يعني لا تعمل اي شيء
end if
'قفل ايف الاول
end if
'قفل ايف الثاني

مع تحياتي

شفان ريكاني

PSDB - Copy.rar

تم تعديل أكتوبر 26, 2016 بواسطه Shivan Rekany

[looodi]

1 hour ago, Shivan Rekany said:

في البداية انا عملت استعلام باسم query2 وخليت في حقل تاريخ انتهاء العقد هذا

<=date()

يعني يظهر استعلام من تاريخ الحقل انتهاء العقد اصغر او يساوي اليوم

وبعدين عملت نموذج باسم asmend وخليت مصادره استعلام query2

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

dim xx as integer
'متغير باسم ئكس ئكس وخليتها رقم
xx = nz(dcount("[employee_name]" , "query2"))
'ئكس ئكس يساوي نول زير يعنس اذا كان خالي خليها صفر وتعدا من حقل امبلوي نيم من كواريري 2
if xx > 0 then
'اذا ئكس ئكس  كان اكبر من الصفر بعدين
beep
'صوت
if msgbox("عندك" & " ( " & xx & " ) " & "موظف المنتهي عقده  ، هل تريد تتابعها" , vbyesno + vbmsgboxright, "تنبيه" ) = vbyes then
' بعدين فتحت شرط اخر برسالة وبها زرين نعم و لا و خليت اسم الرسالة تنبيه و خليت الرسالة بيكون من اليد اليمنى وقفلت قوس الرسالة و واذا كان تضغط على زر الرسالة نعم بعدين
docmd.openform "asmend" m acnormal
' فتح نموذج "asmend" بطريقة نورمال
else
' واذا كان لا تضغط على زر نعم ما كتبت شي يعني لا تعمل اي شيء
end if
'قفل ايف الاول
end if
'قفل ايف الثاني

مع تحياتي

شفان ريكاني

PSDB - Copy.rar

تسلم يعطيك الف عافية