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

kha9009lid

الخبراء
  • Content Count

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

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

  • Days Won

    10

kha9009lid last won the day on مارس 21

kha9009lid had the most liked content!

السمعه بالموقع

841 Excellent

عن العضو kha9009lid

  • الإسم الفعلي
    الإســم

البيانات الشخصية

  • Gender (Ar)
    ذكر
  • Job Title
    أخصائي اول تقنية معلومات

اخر الزوار

1,414 زياره للملف الشخصي
  1. وعليكم السلام اخي الفاضل حسين انا خلال الفترة الحالية في مهمة عمل وللاسف لا يتوفر لدي جهاز يدعم تطبيقات ميكروسوفت لكوننا نعمل في بيئة عمل مختلفة اعتذر لك مقدما علما بان التعديلات المطلوب بسيطة جدا ويمكن عملها من قبلك شخصيا لو استخدمت خاصية البحث او قم بارفاق برنامجك وانا واثق ان العديد من الزملاء سوف يساعدونك في اجراء التعديل المطلوب تحياتي لك
  2. اضافة للرابط الذي اشار اليه استاذنا الفاضل @ابا جودى اذا كنت تستخدم جدول لتسجيل الدخول فيمكن عملها وتكون قطعت اكثر من نصف المسافة بخصوص السجلات المضافة يمكن اضافة حقل تكون قيمته اليوزر الحالي وبالتالي يمكن عمل استعلام يحدد السجلات الخاصة بهذا المستخدم وكذلك الحال للسجلات المعدلة باضافة حقل للسجل المعدل وقيمتة قبل التعديل ومن قام بالتعديل الخ بالنسبة للسجلات المحذوف ممكن نضع جدول ونستخدم استعلام الحاق يقوم بالحاق السجل قبل حذف وايضا نتستفيد من جدول المستخدمين لتحديد من قام بالحذف لمعرفة المستخدمين المتصلين بالقاعدة يمكن اضافة جدول مرتبط بجدول تسجيل الدخول يتم فيه تسجيل رقم المستخدم ووقت الدخول ووقت تسجيل الخروج والحالة متصل او غير متصل وهذا الامر مفيد عند استخدام قاعدة البيانات على الشبكة
  3. نور الموقع بمشاركة ابا جودي استاذنا الغالي كما تعلم يا ابا جودي رواد الموقع فيهم المحترف ومتوسط المستوى والمبتدي وفي ردودي احاول دائما ان ابسط الردود ليستوعبها المبتدي حتى لو كان الكود اطول لان الاختصار واستخدام المتغيرات قد لا يستوعبه غير المحترفين لذا في كثير من ردودي اشرح ماقمت به ليكون الحل اكثر وضوحا للمتلقي وتقبل اطيب تحياتي نورت الموقع دكتور حلبي
  4. نعم ممكن ومن اسهل الطرقلتنفيذ ذلك If Me![c_8].Caption = "نساء" Then Me.Type = "نساء" Me.c_8.Caption = "رجال" ElseIf Me![c_8].Caption = "رجال" Then Me.Type = "رجال" Me.c_8.Caption = "اطفال" ElseIf Me![c_8].Caption = "اطفال" Then Me.Type = "اطفال" Me.c_8.Caption = "نساء" End If وتفسيرة كما يلي اذا كانت تسمية زر الامر نساء اجعل قيمة النوع نساء غير تسمية الامر الى رجال اذا كانت تسمية الامر رجال اجعل النوع رجال غير تسمية الامر الى اطقال اذا كانت تسمية الامر اطفال اجعل النوع اطفال غير التسمية لزر الامر الى نساء وذلك للاستمرار في دورة تنفيذ الكود اغلق الشرط الملف مرفق Database1011.accdb
  5. اكتب الايام اقل من عشر وكذلك الاشهر بصيغة 01 حتى رقم 09 لكي لا تحصل على نتيجة غير صحيحة مثل تاريخ 1/1/2020 اكتب في يوم 01 وشهر 01 الخ او دع دالة format وغير الكود للشكل التالي [يوم]&"/"&[شهر]&"/"&[سنة] او اعكس الموضوع فيكون ادخال تاريخ الميلاد وتحصل على اليوم والشهر والسنة عن طريق الحقل المحسوب لليوم Day([المواليد1]) للشهر Month([المواليد1]) للسنة Year([المواليد1])
  6. استخدم دالة format واجعل عملية الاحتساب في النموذج او الاستعلام الملف مرفق الكود في حدث بعد التحديث لحقل سنة نصيحة استخدم تسمية الحقول باللغة الانجليزية New Microsoft Access قاعدة بيانات (2).accdb
  7. مرحبا استاذ @ازهر عبد العزيز اولا اعتذر عن التعديل على مرفقك لعدم توفر اكسس لدي لكون عملي حاليا في بيئة عمل مختلفة وفي هذا الرد سوف اضع تلميح لكيفية التحكم بانواع الحقول من خلال الكود واعتذر مقدما اذا لم تجد فيه الجواب المطلوب لتغيير الحقل الى نوع رقم Dim x As Variant x = "ALTER TABLE [tbl1] ALTER COLUMN [tx8] LONG" DoCmd.RunSQL x ويمكن كتابتة بالشكل التالي DoCmd.RunSQL "ALTER TABLE [tbl1] ALTER COLUMN [tx8] Integer" او DoCmd.RunSQL "ALTER TABLE [tbl1] ALTER COLUMN [tx8] LONG" حسب نوع الحقل الرقمي تغيير الحقل الى نوع مزدوج يكون على النحو التالي DoCmd.RunSQL "ALTER TABLE [tbl1] ALTER COLUMN [tx8] Double" الى نوع نص DoCmd.RunSQL "ALTER TABLE [tbl1] ALTER COLUMN [tx8] String" واذا اردنا ان نحدد طول الحقل النص يمكن كتابتة DoCmd.RunSQL ("ALTER TABLE [tbl1] ALTER COLUMN [tx8] TEXT(30);") اما حقل التاريخ فيكون DoCmd.RunSQL "ALTER TABLE [tbl1] ALTER COLUMN [tx8] date" النوع العملة يكون على النحو التالي DoCmd.RunSQL "ALTER TABLE [tbl1] ALTER COLUMN [tx8] Currency" لتحويل تنسيق الحقل الى علمي Set db = CurrentDb db.TableDefs("tbl1").Fields("tx8").Properties.Append db.CreateProperty("Format", dbText, "scientific") بعد تعديل التنسيق بالكود السابق تحتاج الى التعديل اليدوي في حالة الرغبة في التغيير مرة اخرى في جميع الاحوال لا انصح بالعبث في الحقول والمفروض ان التخطيط الجيد قبل واثناء انشاء قواعد البيانات يغني عن الحاجة للتعديلات اضافة الى ان تغيير نوع الحقل قد يؤدي الى فقدان البيانات لهذا الحقل وخصوصا اذا كان الحقل مرتبط بجداول اخرى قد يعطل عمل القاعدة
  8. مرحبا لا توجد صعوبة ولكن فهم السؤال نصف الاجابة من خلال فهمي انت ترغب في حساب تكرار الاسم اذا تكرر الاسم خلال رقم الاسبوع حساب تكرار المنطقة اذا تكررت المنطقة خلال رقم الاسبوع حساب الحالة اذا تكررت الحالة خلال رقم الاسبوع ممكن استخدام دالة DCount من خلال الشرطين المطلوبة مع ذلك سوف نواجه مشكلة ان هذة الدالة لا تعمل بشكل مباشر في الجدول ولكن تعمل في الاستعلام وفي النماذج وفي اكواد الفي بي ويالتالي يمكن كتابتها بالشكل التالي DCount("[الاسم]";"Table1";"[رقم_الاسبوع]='" & [رقم_الاسبوع] & "'" & "And [الاسم]='" & [الاسم] & "'") لحساب التكرار للمنطقة DCount("[المنطقة]";"Table1";"[رقم_الاسبوع]='" & [رقم_الاسبوع] & "'" & "And [المنطقة]='" & [المنطقة] & "'") وللحالة DCount("[الحالة]";"Table1";"[رقم_الاسبوع]='" & [رقم_الاسبوع] & "'" & "And [الحالة]='" & [الحالة] & "'") الملف المعدل في المرفقات aaaa.accdb
  9. اضافة لما تفضل به الاستاذ @أحمد الفلاحجى اذا لم ترغب في الاستعلام ممكن عملها في النموذج في حدث بعد التحديث للحقل time نضع الكود التالي Me.dated = DateAdd("d", -[time], Date)
  10. في حدث بعد التحديث للحقل TYPE بعد الكود الذي كتبه اخي احمد ضع الكود التالي Me.OTHER = Me.NUMBER + 10 ولكن ماذا لو اردت تغيير القيمة الى 15 او 20 الافضل اضافة مربع نص للقيمة TEST AA1.accdb
  11. IIf([dateexp]<=[datee];"red";"green") ما اعرف انا فهمت المطلوب لكن قلت باشارك exp - Copy.accdb
  12. مشاركتي رقم2 فيها المطلوب عن طريق قائمة منسدلة ويتم الحفظ في الجدول
×
×
  • اضف...