looodi قام بنشر أكتوبر 24, 2016 مشاركة قام بنشر أكتوبر 24, 2016 السلام عليكم ورحمة الله وبركاتة اتمى منكم توضيح لي طريقه تقوم علة تنبيه قبل نهايه عقد الموظف علماً ان عقد الموظف لمدة سنة رابط هذا التعليق شارك More sharing options...
Shivan Rekany قام بنشر أكتوبر 24, 2016 مشاركة قام بنشر أكتوبر 24, 2016 اخي الكريم ممكن ترفع المرفق من شان نعمل عملية عليه if datediff("yyyy",me.tarix,1) then msgbox "نص الرسالة" end if فرضنا ان me.tarix هو مربع نصي اللي بها تاريخ العقد مع تقدير شفان ريكاني رابط هذا التعليق شارك More sharing options...
looodi قام بنشر أكتوبر 24, 2016 الكاتب مشاركة قام بنشر أكتوبر 24, 2016 اخي SHIVN لما كنت اضيف المرفق ظهر لي ان حجمه كبير ياليت ترح لي اين اضع الكود تشرح** رابط هذا التعليق شارك More sharing options...
Shivan Rekany قام بنشر أكتوبر 24, 2016 مشاركة قام بنشر أكتوبر 24, 2016 (معدل) عند تحميل on load اخي تكدر ترفع المرفق بواسطة هذا الموقع http://www.4shared.com/ او موقع درايف من كوكل مع تحياتي شفان ريكاني تم تعديل أكتوبر 24, 2016 بواسطه Shivan Rekany رابط هذا التعليق شارك More sharing options...
looodi قام بنشر أكتوبر 24, 2016 الكاتب مشاركة قام بنشر أكتوبر 24, 2016 تفضل https://www.4shared.com/file/Wur7WexAba/PSDB_-_Copy.html رابط هذا التعليق شارك More sharing options...
Shivan Rekany قام بنشر أكتوبر 24, 2016 مشاركة قام بنشر أكتوبر 24, 2016 8 دقائق مضت, looodi said: تفضل https://www.4shared.com/file/Wur7WexAba/PSDB_-_Copy.html عفوا اخي حاولت ان انزل البرامج لكن ما اكدرت ممكن ترسللي علبريدي الخاص shivan_rekany212@yahoo.com او علفيس https://www.facebook.com/Shivan1988 شفان ريكاني رابط هذا التعليق شارك More sharing options...
looodi قام بنشر أكتوبر 24, 2016 الكاتب مشاركة قام بنشر أكتوبر 24, 2016 8 minutes ago, Shivan Rekany said: عفوا اخي حاولت ان انزل البرامج لكن ما اكدرت ممكن ترسللي علبريدي الخاص shivan_rekany212@yahoo.com او علفيس https://www.facebook.com/Shivan1988 شفان ريكاني تم الارسال رابط هذا التعليق شارك More sharing options...
looodi قام بنشر أكتوبر 24, 2016 الكاتب مشاركة قام بنشر أكتوبر 24, 2016 1 hour ago, looodi said: ارجو الرد اخي شفان رابط هذا التعليق شارك More sharing options...
Shivan Rekany قام بنشر أكتوبر 24, 2016 مشاركة قام بنشر أكتوبر 24, 2016 الان, looodi said: ارجو الرد اخي شفان شوف استعلام 2 ونموذج asmend في البداية فتح نموذج الرئيسية اتمنى ان تنال اعجابك مع تقدير شفان ريكاني PSDB - Copy.rar 1 رابط هذا التعليق شارك More sharing options...
looodi قام بنشر أكتوبر 24, 2016 الكاتب مشاركة قام بنشر أكتوبر 24, 2016 قمت بانشاء استعلام واضفت فيه اسم الموظف وتاريخ انهاء العقد وعملت اضافة الامر هذا عدد الايام المتاحه: dtediff("d" ; dte() ; [مدة انتهاء العقد]) وظهر هذا الخطا رابط هذا التعليق شارك More sharing options...
Shivan Rekany قام بنشر أكتوبر 24, 2016 مشاركة قام بنشر أكتوبر 24, 2016 5 دقائق مضت, looodi said: قمت بانشاء استعلام واضفت فيه اسم الموظف وتاريخ انهاء العقد وعملت اضافة الامر هذا عدد الايام المتاحه: dtediff("d" ; dte() ; [مدة انتهاء العقد]) وظهر هذا الخطا بدون تعمل استعلام انا عملتك استعلام ونموذج بس عليك فتح قائمة رئيسية حين تفتح القائمة هو راح يشوف اي تاريخ انتهاء العقد مضى عليه راح يكلك برسالة مثلا عندك 2 موظفين منتهى عقده هل تريد متابعة اذا تضغط نعم راح يفتح النموذج اللي انتهى عقده مع تقدير شفان ريكاني 1 رابط هذا التعليق شارك More sharing options...
Shivan Rekany قام بنشر أكتوبر 24, 2016 مشاركة قام بنشر أكتوبر 24, 2016 منذ ساعه, looodi said: وظهر هذا الخطا اخي العزيز وافيني بالنتيجه هل وصلت لما تريد مع تحيات شفان ريكاني 1 رابط هذا التعليق شارك More sharing options...
looodi قام بنشر أكتوبر 25, 2016 الكاتب مشاركة قام بنشر أكتوبر 25, 2016 15 hours ago, Shivan Rekany said: اخي العزيز وافيني بالنتيجه هل وصلت لما تريد مع تحيات شفان ريكاني لم اصل الى حل هل ممكن ان توضح لي ماذا اعمل قمت بحذف الأستعلام الان ولكن اين اضع الكود البرمجي لكي يظهر لي تنبيه بانتهاء عقد أي موظف 15 hours ago, Shivan Rekany said: اخي العزيز وافيني بالنتيجه هل وصلت لما تريد مع تحيات شفان ريكاني اسف اخي لم انتبه الى رد السابق سوف اقوم بتحميل المرفق الان وارد لك اخي المرفق لايعمل لدي هل ممكن ان ترفقه مره اخرى واسف على الاطاله والازعاج يعطيك الف عافيه اخي ولكن عندي سؤال الان انت عملت نموذج واستعلام هل اربطهم بالصفحة الرئيسية ؟ رابط هذا التعليق شارك More sharing options...
looodi قام بنشر أكتوبر 25, 2016 الكاتب مشاركة قام بنشر أكتوبر 25, 2016 اخي انت قمت بوضع بيانات جدول annul لم تقوم بوضع بيانات الموظفين في نموذج العقد المنتهي ؟ رابط هذا التعليق شارك More sharing options...
looodi قام بنشر أكتوبر 25, 2016 الكاتب مشاركة قام بنشر أكتوبر 25, 2016 18 hours ago, Shivan Rekany said: شوف استعلام 2 ونموذج asmend في البداية فتح نموذج الرئيسية اتمنى ان تنال اعجابك مع تقدير شفان ريكاني PSDB - Copy.rar اخي انت قمت بوضع بيانات الاجاززة ولم تقوم بوضع بيانات الموظفين التي فيها تاريخ نهايه العقد رابط هذا التعليق شارك More sharing options...
Shivan Rekany قام بنشر أكتوبر 25, 2016 مشاركة قام بنشر أكتوبر 25, 2016 2 ساعات مضت, looodi said: اخي انت قمت بوضع بيانات الاجاززة ولم تقوم بوضع بيانات الموظفين التي فيها تاريخ نهايه العقد اخي حين ارسلت لي الملف كان ما بها اي بيانات لذا انا ما كان اعرف اي جدول له وانا اضفت البيانات لكن لا تزعل اليوم بالعصر ان شاء الله راح اسوي كما تريد اكن قل لي اي جدول هو للموظفين مع تحياتي شفان ريكاني 1 رابط هذا التعليق شارك More sharing options...
looodi قام بنشر أكتوبر 25, 2016 الكاتب مشاركة قام بنشر أكتوبر 25, 2016 16 minutes ago, Shivan Rekany said: اخي حين ارسلت لي الملف كان ما بها اي بيانات لذا انا ما كان اعرف اي جدول له وانا اضفت البيانات لكن لا تزعل اليوم بالعصر ان شاء الله راح اسوي كما تريد اكن قل لي اي جدول هو للموظفين مع تحياتي شفان ريكاني نعم لاتوجد بيانات لكن انا اقصد اسماء الحقول موجودة في كل جدول ولكن انت اضفت حقول جدول الاجازات والمفروض يكون جدول employee رابط هذا التعليق شارك More sharing options...
Shivan Rekany قام بنشر أكتوبر 25, 2016 مشاركة قام بنشر أكتوبر 25, 2016 4 دقائق مضت, looodi said: نعم لاتوجد بيانات لكن انا اقصد اسماء الحقول موجودة في كل جدول ولكن انت اضفت حقول جدول الاجازات والمفروض يكون جدول employee ان شاء الله اليوم بالعصر راح اعمل عليه وساشرح لك كما تريد هسه انا عم استخدم موبايل مع تحياتي شفان ريكاني 1 رابط هذا التعليق شارك More sharing options...
Shivan Rekany قام بنشر أكتوبر 25, 2016 مشاركة قام بنشر أكتوبر 25, 2016 3 ساعات مضت, looodi said: نعم لاتوجد بيانات لكن انا اقصد اسماء الحقول موجودة في كل جدول ولكن انت اضفت حقول جدول الاجازات والمفروض يكون جدول employee اتفضل في البداية ادخل البيانات وحاول حين تدخل خلي بينتهي العقد لكم اشخاص وبعدين حين تفتح النموذج الرئيسية اذا بينتهي العقد لشخص او لاكثر من شخص راح يظهر الرسالة وبيقولك ان انتهى عقد ل ( ) اشخاص هل تريد تتابع اذا بيقول نعم راح يفتح نموذج خاص (ASMEND) للمنتهىي العقود مالهم واذا تقول لا ما راح يير شي شو ووافيني بالنتيجة اذا هذا كان طلبك خلي اشرح لك العمل مع تحياتي شفان ريكاني PSDB - Copy.rar 2 رابط هذا التعليق شارك More sharing options...
looodi قام بنشر أكتوبر 26, 2016 الكاتب مشاركة قام بنشر أكتوبر 26, 2016 17 hours ago, Shivan Rekany said: اتفضل في البداية ادخل البيانات وحاول حين تدخل خلي بينتهي العقد لكم اشخاص وبعدين حين تفتح النموذج الرئيسية اذا بينتهي العقد لشخص او لاكثر من شخص راح يظهر الرسالة وبيقولك ان انتهى عقد ل ( ) اشخاص هل تريد تتابع اذا بيقول نعم راح يفتح نموذج خاص (ASMEND) للمنتهىي العقود مالهم واذا تقول لا ما راح يير شي شو ووافيني بالنتيجة اذا هذا كان طلبك خلي اشرح لك العمل مع تحياتي شفان ريكاني PSDB - Copy.rar يعطيك الف عافيه هذا اللي ابيه ولكن شفت بيانات اضافيه هل انت اضفت المرفق attach fil name وضحي لي كيف تم عمله رابط هذا التعليق شارك More sharing options...
Shivan Rekany قام بنشر أكتوبر 26, 2016 مشاركة قام بنشر أكتوبر 26, 2016 (معدل) في البداية انا عملت استعلام باسم 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 1 رابط هذا التعليق شارك More sharing options...
looodi قام بنشر أكتوبر 26, 2016 الكاتب مشاركة قام بنشر أكتوبر 26, 2016 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 تسلم يعطيك الف عافية رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.