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

Shivan Rekany

الخبراء
  • Posts

    3491
  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    152

كل منشورات العضو Shivan Rekany

  1. اتفضل ما تريد اخي @وضاح النوبه غير مسموح للعميل بالتجاوز للحد المسموح له.rar
  2. ظهرت اي رسالة وما المكتوب عليها تكدر تفتح موضوع جديد على ذلك الرسالة او تلتقط صورة لذلك الرسالة وتسأله في ذلك الموضوع اي موضوع اللي فيه برامج اي الرابط الاعلاه تحياتي
  3. الله اكبر انا مش مستحق لكل هذا الكلام اخي هذا واجبنا تحياتي
  4. واخيراً اتفضل هذا ارفق اي عدد تريد من المرفقات و اي نوع تريد وافتحه مباشرتا خارج القاعدة تحياتي اضافة عدة مرفقات لموظف واحد وفتح المرفق.rar
  5. جرب هذا ejmaleEjazat3: Int((Date()-[hiredate])*0.1369)
  6. والف تحية لك استاذ @محمدنجار وشكرا لك على المساعدة
  7. الكودالاعلاه هو بينطيك نتيجة كما تريد
  8. كما قلنا سابقا عنده 1350 يوم ل 27 سنة منذ 1990 الى 2017 وعنده 3 يوم ل 21 يوم فس شهر 12 من السنة 1989 وهذا اقتسبت من شهر 1 لسنة 2017 وشهر 2 لسنة 2017 و 14 صار 15 يوم من شهر 3 لسنة 2017 تحياتي
  9. على الرغم ان السيد @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 تحياتي للجميع
  10. سؤال : هل تريد ان يغير فقط الرتبة ام تاريخ الترقية و الخ ... اذا تريد ان يغير فقط الرتبة اليك هذا الحل لكن اعرف انك تريد ان يغير التاريخ الترقية ايضا و كم من الحقول اخر لكن ما اعرف اي حقول لذا اتفضل مع هذا الاستعلام يوفي بالغرض اولا عملت جدول اخر باسم الترقية وشوف المرفق راح تعرف غير الرتبة في جدول الترقية و افتح الاستعلام وشوف الجدول الرئيسي واليك الاستعلام تحديث UPDATE Tarqia INNER JOIN الرئيسي ON Tarqia.[الاسم الكامل] = الرئيسي.[الاسم الكامل] SET الرئيسي.الرتبة = [Tarqia]![الرتبة]; مثال.rar
  11. اولا راح نعمل استعلام بين تلك الجداول ولكي يخرج لنا الاسماء متشابه في الجدولين وبعدين راح نعمل استعلام تحديث لاستعلام الاول ارفق قاعدة بيانات بيكون فيها جداول المطلوبة وبها اسماء لكي نجرب عليها و ذكرني غدا لكي نعمل على القاعدة تحياتي
  12. نعم لكن كيف تضع في الجدول اسماء الموظفين ال 5000 هل عندك طريقة ! او تريد لنا الحل بعد مشاركتك راح انطيك الطريقة
  13. افتح نموذج في وضع تصميم وفي حدث الحالي اكتب هذا في اول او في الاخر الكود اللي فيه Option36_AfterUpdate تحياتي
  14. نعم استخدم هذا الكود 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
  15. اتفضل ما تريد Database2.rar
  16. على الرغم ان هذا مخالف القوانين لكن انا عملت لك اتفضل واعتذر من الادارة وكل اعضاء تحياتي غير مسموح للعميل بالتجاوز للحد المسموح له.rar
  17. هل تفتح التقرير بواسطة نموذج وتدخل التواريخ في النموذج اذا نعم اعمل 2 من مربعات نصية في التقرير وفي مصدره اكتب forms!myforms!mydate1 ,والاخر forms!myforms!mydate2 حيث myform هو اسم النموذج و mydate1 هو اسم مربع نصي للتاريخ الاول في نموذج و mydate2 هو اسم مربع نصي للتاريخ الثاني في نموذج تحياتي
  18. له 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 اختار اي نتيجة وان شاء الله راح انطيك الكود
  19. اتفضل ما طلبت لكن انا عملت تحديث الرتبة بشرط رقم المعرف وليس الاسم لانه احتمال بيكون الاسم بيكرر لكن الرقم ما بيكرر تحياتي استعلام تحديث.rar
  20. وما هو الحال لشهر 1 و 2 و 14 يوم من شهر 3 لهذه السنة هل ما يحسبه
  21. السلام عليكم شوف نكدر بواسطة ذاك الكود بنعمل اي اطار مربعات ما نريد وتكدر تتغير بكيفكم Database2.rar
  22. وتكدر تستعمل اثنين من الكومبوبوكس وتعمل فلتر واحد على الاخر وحين تختار كيبل مثلا في الاخر بيكون يظهر فقط انواع الكيبلات اي حين تختار اي نوع في كومبوبوكس الاخر بيعمل فلتر تحياتي
  23. وكيف تعرف ان الاصح هو 1353 اي طريقة وصول لذلك الرقم ممكن تشرحلي
  24. Me.DrawWidth = 10 لتحديد سماكة الخط اي لاين اي اطار عطيتناه 10 Me.Line هو احد "عناصر" تابع اكسس اي تكدر تعمله بدون اكواد وهو بيستخدم هكذا مي.لاين( عرضي بيكون كم , طولي بيكون كم ) - ( عرضي في اي مكان يبدأ , طولي في اي مكان يبدأ ) اما بالنسبة حرف "بي" هو ليعمل بيعمل كمربع اما بدون حرف بي هو خط فقط واما بالنسبة ScaleHeight و ScaleWidth اليك هذا الرابط http://scancoolcafe.no-ip.info:8081/downloads/VisualBasic/VbHelp/book/S/ENT327/INDEX.HTM واسف على هذا التوضيح الغير الموضح تحياتي
×
×
  • اضف...

Important Information