Shivan Kurdi

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

هذا الماكرو هو لفتح اولي اي حين تفتح القاعدة بيفتحه وبيشتغل الاوامر فيه لكن لكي يشتغل برامج على كل من ويندوز 32 بت و 64 بت لازم تشوف هذه المشاركة وايظا

اتفضل ما تريد اخي @وضاح النوبه غير مسموح للعميل بالتجاوز للحد المسموح له.rar

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

اليك هذا الرابط به ما تريد

الله اكبر انا مش مستحق لكل هذا الكلام اخي هذا واجبنا تحياتي

واخيراً اتفضل هذا ارفق اي عدد تريد من المرفقات و اي نوع تريد وافتحه مباشرتا خارج القاعدة تحياتي اضافة عدة مرفقات لموظف واحد وفتح المرفق.rar

جرب هذا ejmaleEjazat3: Int((Date()-[hiredate])*0.1369)

والف تحية لك استاذ @محمدنجار وشكرا لك على المساعدة

الكودالاعلاه هو بينطيك نتيجة كما تريد

كما قلنا سابقا عنده 1350 يوم ل 27 سنة منذ 1990 الى 2017 وعنده 3 يوم ل 21 يوم فس شهر 12 من السنة 1989 وهذا اقتسبت من شهر 1 لسنة 2017 وشهر 2 لسنة 2017 و 14 صار 15 يوم من شهر 3 لسنة 2017 تحياتي

على الرغم ان السيد @sandanet وصلت الى النتيجة واعطاه السيد @jjafferr طرائق مختلفة بالاكواد و اخرى لكن ساضع هنا هذا الكود هم بيوفي الطلب وهو DoCmd.SetWarnings False DoCmd.RunSQL "DELETE DISTINCTROW tbl2.* FROM tbl1 INNER JOIN tbl2 ON (tbl1.degree = tbl2.degree) AND (tbl1.fullnames = tbl2.names);" DoCmd.SetWarnings True تحياتي للجميع

سؤال : هل تريد ان يغير فقط الرتبة ام تاريخ الترقية و الخ ... اذا تريد ان يغير فقط الرتبة اليك هذا الحل لكن اعرف انك تريد ان يغير التاريخ الترقية ايضا و كم من الحقول اخر لكن ما اعرف اي حقول لذا اتفضل مع هذا الاستعلام يوفي بالغرض اولا عملت جدول اخر باسم الترقية وشوف المرفق راح تعرف غير الرتبة في جدول الترقية و افتح الاستعلام وشوف الجدول الرئيسي واليك الاستعلام تحديث UPDATE Tarqia INNER JOIN الرئيسي ON Tarqia.[الاسم الكامل] = الرئيسي.[الاسم الكامل] SET الرئيسي.الرتبة = [Tarqia]![الرتبة]; مثال.rar

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

نعم لكن كيف تضع في الجدول اسماء الموظفين ال 5000 هل عندك طريقة ! او تريد لنا الحل بعد مشاركتك راح انطيك الطريقة

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

نعم استخدم هذا الكود Dim i As Integer Dim co As Integer co = DCount("*", "[qe]") DoCmd.GoToRecord , , acFirst For i = 0 To co - 1 DoCmd.SetWarnings False DoCmd.RunSQL "UPDATE ÇáÑÆíÓí SET ÇáÑÆíÓí.ÇáÑÊÈÉ = [Forms]![Frm2]![Text3] WHERE (((ÇáÑÆíÓí.[ÑÞã ãÚÑÝ])=[Forms]![Frm2]![ÑÞã ãÚÑÝ]))" DoCmd.SetWarnings True DoCmd.RefreshRecord DoCmd.GoToRecord , , acNext Next استعلام تحديث.rar

اتفضل ما تريد Database2.rar

على الرغم ان هذا مخالف القوانين لكن انا عملت لك اتفضل واعتذر من الادارة وكل اعضاء تحياتي غير مسموح للعميل بالتجاوز للحد المسموح له.rar

هل تفتح التقرير بواسطة نموذج وتدخل التواريخ في النموذج اذا نعم اعمل 2 من مربعات نصية في التقرير وفي مصدره اكتب forms!myforms!mydate1 ,والاخر forms!myforms!mydate2 حيث myform هو اسم النموذج و mydate1 هو اسم مربع نصي للتاريخ الاول في نموذج و mydate2 هو اسم مربع نصي للتاريخ الثاني في نموذج تحياتي

له 27 سنة من عام (1990 الى 2017) × 50 = 1350 له شهرين له 4.16 × 2 = 8.32 14 يوم له 2.08 اي 2 شهر و 14 يوم = 10.40 له 03 ايام في ديسمبر عام 1989 اي مجموع = 1350 + 10.40 + 3 = 1363.40 الان ما تريد هل تريد ان يكون النتيجة بيكون كم هل 1353 ام 1363.40 ام تقريب الى الاسفل اي 1363 اي تقريب الى الاعلى اي 1364 اختار اي نتيجة وان شاء الله راح انطيك الكود

اتفضل ما طلبت لكن انا عملت تحديث الرتبة بشرط رقم المعرف وليس الاسم لانه احتمال بيكون الاسم بيكرر لكن الرقم ما بيكرر تحياتي استعلام تحديث.rar

وما هو الحال لشهر 1 و 2 و 14 يوم من شهر 3 لهذه السنة هل ما يحسبه

السلام عليكم شوف نكدر بواسطة ذاك الكود بنعمل اي اطار مربعات ما نريد وتكدر تتغير بكيفكم Database2.rar

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