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

عمر ضاحى

الخبراء
  • Posts

    1,169
  • تاريخ الانضمام

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

  • Days Won

    8

كل منشورات العضو عمر ضاحى

  1. ايه الجمال ده ما شاء الله على الرغم انى جيت متأخر لكن تسلم ايدك على الهديه دي وال كنت بفكر فيها من فتره لكن كنت مكسل اعملها لكن انت عملتها باسلو وطريقه افضل من ال فكرت فيها وخليتها سهلة التعامل معها تسلم دماغك (ايه الحلاوة دي ايه الحلاوة دي ""مشهد من فلم مش فاكره"" ) ههههههههه جزاك الله كل خير عنا وجعله فى ميزان حسناتك
  2. ما شاء الله تبارك الله ابداع ابداع ابداع سلمت يداك ودماغك دي ايه الحلاوة دي تصميم جميل والوان محتاج اتعلم الكثير منك فى موضوع الالوان واداء رائع تسلم ايدك وغفر لكم ولوالديكم يا رب العاليمن
  3. فى النموذج الفرعي فى حدث فبل التحديث او ممكن ايضا فى الحال ضع هذا الكود Private Sub Form_BeforeUpdate(Cancel As Integer) If Me.cdatee = Date Then Exit Sub End If If InStr(Me.Doctor, "مؤجل") > 0 Then Exit Sub End If Undo MsgBox "غير مسموح بالتعديل على البيانات", vbExclamation Cancel = True End Sub هنا انا بتحقق من شرطين التاريخ وكلمة مؤجل اذا كان التاريخ يساوي تاريخ اليوم هيطلع من الاجراء ويكمل تحديث واذا كان هناك كلمة مؤجل فى اسم الطبيب هيكمل الاجراء ويحفظ اذا لا هيعيد القيمة القديمة ويلغي الحفظ جرب ورد علينا بالنتيجة
  4. ما شاء الله 🌹 اخي وصديقي العزيز فادي منتظرين على احر من الجمر التحفه الفنيه الرائعه من صاحب الافكار خارج الصندوق والاكيد هتكون فى قمة الروعة 🌹🌹🌹🌹🌹
  5. ارفع ملف نشوف ايه الوضع فيه الفعلى قد تحتاج لاضافة كود او تعديل
  6. الاستاذ @كريمو2 حضرتك لست جديد فى المنتدي اعمل موضوع جديد ويمكنك ان تشير الى هذا الموضوع اذا كان له صله لان الموضوع هذا بالفعل قد اغلق على الحل السابق
  7. استاذي الجليل @ابوخليل ممكن تسمحلى اقترح عليك فى فكره ان تجعل لكل مستخدم ترقيم خاص به مثل الاعتماد على رقم معرف المستخدم الحالى لنفترض ان المستخدم الحالى رقمه 1 ممكن تعتمد عليه او تضيف حرف للتفرقه مثل 1A10 حيث 1A ترمز ان المستخدم رقم 1 و10 لرقم السجل الحالى او الاعتماد على رقم مميز عبارة عن الفورمات (yyyymmddhhmmss) وممكن تضيف عليه رقم المستخدم فى بدايته لزيادة التمييز معتقدش ان ممكن يحصل ان 2 فى نفس الثانيه واذا حدث هيكون هناك رقم المستخدم لفصل هذا
  8. ما شاء الله ابداع والموضوع فوق الرائع شئ ممتع ان اجد مثل هذه المواضيع الثمينه بكل ما فيها جذاكم الله عنا كل خير استاذي @ابو جودي انا شايف ان فى نقطه فى الجدل هل هذا يعني ان هناك كود للربط تلقائى بناءا على حالة حقل ActiveAutoLink اين هذا الكود 😁
  9. ممكن مداخله بعد اذن استاذي الجليل @ابوخليل واستكمال لفكرة استاذى الجليل فى نقطة (الترقيم التلقائى) هناك فكره لهذا الموضوع ان تعمل جداول مؤقته فى الواجهه الامامية وبها تخزن جميع البيانات وزر الحفظ يقوم بنقل البيانات الى الجداول الاساسية المرتبطه وواثناء النقل هيتم اعطاء رقم لهذا السجل وبهذا مش هيكون فى اتصال دائم بالقاعده غير لحظه الحفظ وان شاء الله مش هيكون فى مشاكل (والله اعلم) طبعا مع تفريغ الجداول المؤقته بعد الحفظ
  10. الاستاذ جو حضرتك مش جديد معانا والمفترض انك عارف النظام اولا اعمل موضوع جديد بخصوص طلبك وممكن تعمل ارفاق للموضوع ده لو كان طلبك يشمله وعموما ده رقم المعرف للسجل ممكن تضيف حقل جديد فى الجدول ونجعل نوعه نص وتسجل ال بدك ايها
  11. فى نقطه لازم تكون عارفها اولا يمكن لل PHP الوصول لل Mysql (طبيعيا) (ستطلب معرفة جيده للغة php و css و html) ويمكن للاكسيس الوصول لل mysql ايضا (المحلى) وليس اغلب الاستضافات بسبب الحماية لكن لا يمكن لل php الوصول لقاعدة بيانات اكسيس بالتالى اذا كنت تريد تريد معرفة فكرة لربط الاكسيس مع mysql واستخدام ال php معا يمكن النظر فى هذا الموضوع لكن اذكرك انك بحاجه لكى تفهم لغة php ,css,html واذا وصلت فيهم لمستوي جيد حينها قد تستغني عن الاكسيس تماما والتوجه الى واجهات البرمجه php ف هي عالم اوسع وامكانيته اكبر اتمني ان اكون وضحت لك الافكار واذا كان هناك نقطه لم استوفي الشرح فيها لا تتردد فى سؤالى وان شاء الله اذا كان عندي لك اجابه سوف ارد عليها
  12. فعلا لا يمكن تحويل الملف من 64 الى 32 بص انت تنزل نسخه على جهاز وهمي وتسطب فيها اوفيس 32 بت ومنها تفتح الملف وتحول الى accde ف هيكون ان شاء الله شغال عن تجربه
  13. النسخه ال 64 بت شغاله تمام معي
  14. ايوه اخيرا دا انت طلعت عينا لحد ما نشرت اللعبه تسلم يا كبير
  15. هذا ليس له دخل بالكود ال معاك هذا شئ تاني مختلف الحمد لله يا هلا يا هلا باخي فادي يا عم انت هنا المبدع فى افكارك ما شاء الله عيك
  16. المطلوب منك هتعلن عن متغير عام على مستوى النموذج Private SortAscending As Boolean هتحتاج الى هذا الصب Private Sub SortRecords(ByVal FieldName As String) Dim OrderDirection As String If SortAscending Then OrderDirection = " ASC" Else OrderDirection = " DESC" End If Me.OrderBy = FieldName & OrderDirection Me.OrderByOn = True SortAscending = Not SortAscending End Sub وفى كل تسميه هتيجي عن حدث عند الضغط وتستدعي الصب مثل SortRecords "Nr" لاحظ انى هنا احتجت اى اسم الحقل (كما هو فى الجدول) لهذا الصب مرفق الملف بعد التعديل db1.rar
  17. واياكم يا رب العالمين طيب اذا تم حل المسألة برجاء اختيار افضل اجابة لغلق الموضوع
×
×
  • اضف...

Important Information