السلام عليكم ورحمة الله وبركاتة
في البداية احب ان ارحب بكل اعضاء ومشرفين هذا المنتدي وجزاكم الله خير
سؤالي : هل من الممكن ادراج خاصية مثل ( التذكير ) التابعة للأوت لوك في الأكسس
نفرض انني اقوم بانشاء برنامج في الاكسس واريد ان يذكرني بميعاد معين للمريض مثلا هل هذا ممكن
وشكرا لسعة صدركم
ثانياً : لي طلب اري انة مفيد جدا الاحظ انة يتم المساعدة للمشاكل التي تواجة زملائنا مباشراً هل من الممكن ان نوضح لهم كيف تم حل المشكلة بالشرح لكي تكون
الاستفادة اكبر ;)
اخي الفاضل
السلام عليكم ورحمة الله وبركاته
يمكن ادراج خاصية تنبية في برنامج الاكسيس سواء عن طريق صوت يصدر مع كل سجل اقترب موعده او بقي له يوم او يومين او عن طريق رسالة تنبيه او عن طريق مربع نص وامض للتذكير فجميع هذه الطرق ممكنه
في هذا المثال عند التنقل بين السجلات ستظهر لك سجلات بها خاصية التنبيه قبل الموعد وقد تم تحديد التنبيه قبل الموعد بيومين
وهذا مثال على ذلك
اما بخصوص سؤالك الاخير فجميع الاعضاء لا يبخلون على احد بمعلومة يمكن ان يستفيد منها الاخرين بناء على طلب العضو او السائل فقد يكون السائل لديه غموض في جزئية معينه ويسأل عنها ويضع مثال على ذلك ويتم التعديل او التصحيح للخطأ او المشكلة وعندها يعرف السائل اين كان الخطأ عن طريق المقارنه لانه لو تم الشرح لكل سائل عن الاخطاء التي وقع فيها فلن ننتهي من هذه الدوامه ولكن اذا دعت الضروره لذلك فلن نتوانى عن الشرح المفصل اذا رأينا ان الموضوع او المشكلة معقده وتحتاج الى شرح الآلية او الطريقة المتبعة لحلها .
الاخت الكريمة زهر
شكرا لكي علي مجهودك وجزاك الله خيرا
اولا اسف لعدم متابعتي للموضوع لاسباب خارجة عن ارادتي
ثانيا فتحت المثال المرفق وحولت ان افهم هل تم كتابة كود لعمل هذا الامر ارجو توضيحة بالشرح للاستفادة وشكرا جزيلا
اخوكي في الله
اخي الفاضل ابو احمد
السلام عليكم ورحمة الله وبركاته
حدث التنبيه الوامض تم عمله بالكود كل ما عليك هو فتح النموذج في وضع التصميم ومن ثم مشاهدة الكود او اضغط من لوحة المفاتيح على المفتاحين ALT+F11 وسيظهر لك محرر الفيجول بيسك الذي به الاكواد التالية
Private Sub Form_Current() Me.Refresh If Me![DateEntered].Value < Date + 2 And za = True Then Me.M.Visible = True Me.TimerInterval = 300 Else Me.M.Visible = False Me.TimerInterval = 0 End If End Sub
اولا : حدث التنبيه في حدث الحالي من النموذج
هذا الكود يتأكد من ان قيمة حقل التاريخ المدخل تكون اصغر من تاريخ الجهاز بيومين ليتم التنبيه قبل الموعد بيومين مضافا الي التاريخ خانة الاختيار ( علامة الصح في النموذج ) وهي بإسم za فإذا كانت هذه المعلومات صحيحة عندها تظهر لوحة التنبيه الحمراء اما عدى ذلك فتكون مخفيه اذا لم يتحقق اي شرط او موعد قريب
Private Sub Form_Open(Cancel As Integer) Me.zName.SetFocus Me.M.Visible = False End Sub
ثانيا : في حدث عند فتح النموذج
يكون المؤشر الخاص بالماوس موجود في حقل الاسم استعدادا لكتابة اسم جديد
ويكون لوحة التنبية الحمراء مخفية .
Private Sub Form_Timer() With Me.M .ForeColor = (IIf(.ForeColor = vbRed, 65535, vbRed)) .BackColor = (IIf(.ForeColor = 65535, vbRed, 65535)) End With End Sub
ثالثا : حدث المؤقت الزمني لعمل الوميض والتنبيه
هنا يتم تغيير الالوان من الاحمر الى الاصفر الى الاحمر
ثم يتم عكس الالوان من الاصفر الى الاحمر الى الاصفر
لهذا تراه يعطي وميض متغير الالوان
هذا الموضوع مغلق.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…
