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

Shivan Rekany

الخبراء
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    3491

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

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

  • Days Won

    152

 نوع المحتوي 

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

  1. Shivan Rekany
    اذن الجماعة بانتظارك لكي تعمل نسخة عملية وفيه كل الملاحظات 😊
  2. Shivan Rekany
    من المحتمل ان هناك اصدارين من الاوفيس على جهازك قم بحذف احداهما والسلام
  3. Shivan Rekany
    اعمل استعلام الحاق هكذا نفترض ان لديك جدولين واحد اسمه Tbl1 و الاخر اسمه Tbl2 وفي جدول الاول Tbl1 عندك حقل وقت باسم MyTime1 وفي جدول الثاني عندك حقل باسم MyTime2 قم بعمل استعلام هذا INSERT INTO Tbl2 ( MyTime2 ) SELECT DateAdd("h",-2,[Tbl1]![MyTime1]) AS Expr1 FROM Tbl1 WHERE (((Tbl1.ID)=[Forms]![Frm1]![ID])); وهذا شرح للجملة اضافة الى جدول Tbl2 حقل MyTime2 INSERT INTO Tbl2 ( MyTime2 ) حدد : هنا قمنا باستخدام دالة DateAdd لكي ننقص ساعتين h هو رمز الساعة -2 لكي ينقص ساعتين احذفه من جدول Tbl1 حقل MyTime1 SELECT DateAdd("h",-2,[Tbl1]![MyTime1]) AS Expr1 من جدول Tbl1 FROM Tbl1 بشرط حقل ID في جدول Tbl1 بيكون يساوي مربع نصي باسم ID في جدول Frm1 WHERE (((Tbl1.ID)=[Forms]![Frm1]![ID])); وقم بتشغيل الاستعلام بواسطة زر DoCmd.SetWarnings False DoCmd.OpenQuery "Q1", acViewNormal DoCmd.SetWarnings True والسلام
  4. Shivan Rekany
    وانا اعتذر منك ... منذ البارحة عطل جهاز اللابتوب الشخصي ... انتظرني ان شاء الله بعد اصلح الجهاز راح اكون معك
  5. Shivan Rekany
    بلى يظهر لان انا عملت استعلام الاول بالسجلات اللي في شهر 1 وبعدين الاستعلام الثاني مرتبطة بالجدول المدائن و الاستعلام
  6. Shivan Rekany
    اذا جرب ان تكتب هذا في اسفل الكود SendKeys "{Enter}"
  7. Shivan Rekany
    هذه الجدول مبينة في الصورة اضغط على كنترول و حرف A لتحديد الكل وبعدين اضغط كليك يمين على يمين الصورة اي المنطقة الصفراء جنب حقل اي دي واختر الاختيار الاخير وهو Row Height سيظهر لك نافذة صغيرة اكتب فيها رقم 20 واضغط Ok
  8. Shivan Rekany
    بلى يعمل شوف اضغط باليد على مجموعة F واعرف كل واحد سيعمل لك اي شيء وبعدين استخدم الكود مثلا عندي F1 بيظهر لي نافذة المساعدة وعند استخدام هذا الكود سيعمل لي كأن انا اضغط على زر F1 SendKeys "{F1}"
  9. Shivan Rekany
    اتفضل اولا يجب عليك ان تعمل استعلام عن الشهر المطلوبة اي شهر مثلا هناك قمنا باستعلام عن شهر واحد SELECT tbl_demand.id_contract, tbl_demand.emp_id, tbl_demand.taxt_Mntka, tbl_demand.taxt_name1, tbl_demand.date_f, tbl_demand.taxt_meter FROM tbl_demand WHERE ((Month([date_f])=1)); وبعدين قمنا باستعلام اخر مرتبط بين الجدول الاسماء المدائن و الاستعلام الاعلى SELECT tbl_sub3.id_Code3, tbl_sub3.emp_id, tbl_sub3.taxt_B FROM tbl_sub3 LEFT JOIN Query1 ON tbl_sub3.taxt_B = Query1.taxt_name1 WHERE (((Query1.taxt_name1) Is Null)); وبعدين سيظهر لك الاسماء المدائن اللي غير موجودة في الاستتعلام اليك المثال بعد تعديل المدينة غير موجود.rar
  10. Shivan Rekany
    ما رأيك ان تعمل قاعدة مصغرة مرتبة وتكتب عليه خطوات وشروط حسب الحالة لكي نعمل تجربات الحلول لكي يسهل ونعرف جيدا عن العمل اعرف هذا صعب عليك لكن هكذا سيكون احسن باذن الله تقبل تحياتي
  11. Shivan Rekany
    القي نظرتا الى استعلام q1 و q2 هذه هو الاستعلام الاول SELECT [قاعدة البيانات].[اسم المنظمة], tblm.الجمعية, tblm.المعرف, tblm.الاسم, tblm.المناصب, tblm.الانتخابات, tblm.الانتهاء, tblm.links, tblm.[المناصب الإدارية] FROM [قاعدة البيانات] INNER JOIN tblm ON ([قاعدة البيانات].ID = tblm.links) AND ([قاعدة البيانات].[آخر انتخابات هيئة عامة] = tblm.الانتخابات) AND ([قاعدة البيانات].[آخر توزيع مناصب] = tblm.المناصب) AND ([قاعدة البيانات].[اسم المنظمة] = tblm.الجمعية); وعلي اساس هذا الاستعلام قمنا بعمل هذا استعلام التحديث UPDATE q1 SET q1.الانتهاء = DateAdd("d",-1,DMax("[المناصب]","tblm","[tblm]![الجمعية]='" & [الجمعية] & "'")); والنتيجة كما مبينة في الصور لكن بعد انا لا اعرف جيدا شروط العمل و كيفية العمل لكي نوصل الى نتائج احسن برنامج_(1)_-_Copy_-_Copy.rar
  12. Shivan Rekany
    وصلت لي الفكرة باقي هذا شيء فقط عند كتابة تاريخ بداية جديدة ... من اي نموذج تكتب بداية جديدة ؟ ممكن توضيح هذا ايضا واسف تعبت معي بالشروحات
  13. Shivan Rekany
    لكن هناك ملاحظة السجلات رقم 1 و 2 و 4 تاريخ المناصب هم اكبر من تاريخ النتخابات و السجل رقم 3 تاريخ المنصب هو يساوي تاريخ الانتخابات لذلك يجب ان اعرف على اي اساس سيكون النتائج هكذا لا عادي اخي ... هنا مدرسة
  14. Shivan Rekany
    اتفضل قمت بتغيير نوع اظهار النموذج من داتاشيت الى نموذج مستمر مثال اوفيسنا2.rar
  15. Shivan Rekany
    ممكن ان تعطينا النتائج لكل واحد منهم
  16. Shivan Rekany
    تمام فتحت كن معي واصبر الجمعية رقم 19 ما بها المشكلة و النتيجة هو 29/06/2018 والجمعية رقم 9 بها المشكلة و النتيجة يجب ان يكون 01/07/2018 صحيح ؟
  17. Shivan Rekany
    انا عملت ضغط و اصلاح من نفسه لكن لم تنجح الامر لكن بعد لا نقدر ان نفتح جدول سيستم !!؟
  18. Shivan Rekany
    كثرة البيانات و كثرة الشروط فيه او خطأ طريقة العمل المبرمج يبطيء العمل و تقدر تستخدم موديول ممكن تكتبه
  19. Shivan Rekany
    ما عملت حتى فتح محرر فيجوال ؟
  20. Shivan Rekany
    نعم ... وفي الحقيقة انا لا اعرف سبب ذلك والشيء الاخر لماذا تلف جدول السيستم لا يتأثر على النماذج اخرى او تسميات اخرى !! اذا تتغير اسم النموذج راح تقدر ان تكتب محرر اكواده فقط لا يجوز ان يكون اسم النموذج بيكون ( نموذج1 ) !! حيرتني 😵
  21. Shivan Rekany
    وعليكم السلام ورحمة الله وبركاته في البداية ما هو رمز اي رقم سري لمحرر الفيجوال ؟ وفي النهاية هل تريد عند كتابة سجل جديد و عند كتابة تاريخ البداية انتخابات جديد ان يعطي تاريخ نهاية الانتخابات السابقة بيكون يساوي تاريخ بداية انتخابات الجديدة اي اذا كان اول انتخابات يبدأ في 1-5-2010 وبيكون مستمر وصار انتخابات اخر بهذا اليوم اي تكتب في سجل جديد اليوم 13-9-2018 حضرتك تريد ان يكتب ايضا نهاية فترة الانتخابات الاول اللي بدأ في 1-5-2010 نهايته بيكون يساوي 13-9-2018 هل انا فهمت بصحيح ام هناك شيء اخر
  22. Shivan Rekany
    هناك تلف في احد جداول السيستم القاعدة شوف هذه الرسالة والسبب غير معروفة والله يعلم
  23. Shivan Rekany
    سبحان الله نعم بيظهر تلك الرسالة لكن عند تغيير اسم النموذج الى اسم اخر سيكون كل شيء على ما يرام او اذا تنقل النموذج الى قاعدة اخرى نفس الشيء سيكون كل شيء على ما يرام لا اعرف بالضبط مشكلة هذه القاعدة البيانات مع الاسم ( نموذج1) واذا تحذف النموذج و تعمل نموذج اخر بنفس الاسم اي باسم ( نموذج1 ) سيظهر ذلك الرسالة ولكن اذا تعمل نموذج اخر بأي اسم تقدر تفتح محرر فيجوال وبعد فتح محرر فيجوال ظهر لي هذه الاسماء للنماذج و الوحدات النطية لكن كأن الملف من نوع accde لا يفتح اي منهم
  24. Shivan Rekany
    هل جربت ان تفتح على جهاز اخر و هل من الممكن ان تعطينا ذلك القاعدة لكي نسلم عليه
  25. Shivan Rekany
    اتفضل تم استخدام هذا Private Sub fdate_AfterUpdate() On Error Resume Next Me.number1 = Nz(DMax("[number1]", "tp1"), 0) + 1 Call Form_Current End Sub Private Sub Form_Current() On Error Resume Next If IsDate(Me.fdate) Then Me.code = 1 & Format(Me.fdate, "dd") & Format(Me.fdate, "mm") & Format(Me.number1, "0000") End Sub db9790.rar
×
×
  • اضف...

Important Information

  I accept