• الإعلانات

    • فيصل الحربي

      تسجيل عضوية جديدة في المنتدى   01/31/2016

      السلام عليكم ورحمة الله وبركاته  عزيزي العضو الجديد :  حاليا رسالة الإيميل لتأكيد صحة إيميلكم تذهب للبريد العشوائي ( جاري حل المشكلة )  فإذا لم تجد رسالة التحقق من إيميلكم في صندوق الوارد لديكم إتجه للبريد العشوائي ( JUNK)  وقم بتفعيل إشتراككم من هناك   

alfaaleh

اعضاء جدد
  • عدد المشاركات

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

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

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

0 عادي

عن alfaaleh

  • الرتبة
    عضو جديد

معلومات الملف الشخصي

  • الجنس ذكر
  1. لدي نموذج رئيسي وبه نموذج فرعي يتم تسجيل الإجازات بداية الاجازة ونهايتها ومدتها  وعليه يعرض التقريرللسجل نفسه آخر اجازه  المطلوب في هذا التقرير بالإضافة إلى تسجيل بيانات الاجازه الجديده حقلين  الأول آخر اجازه  والثاني مدتها  يعني يستثني الحقل الأخير من التجميع وشكرا لكم
  2. مشروعي واقف على هذي النقطه تكفون الي يعرف الحل يرد علي 
  3. يوجد لدي قاعدة بيانات ويوجد جدولين الاول به حقل حالة المريض ( عناية . طوارئ. خروج)  والجدول الثاني لزيارات ذلك المريض ومن ضمن حقوله حالة المريض ( عناية . طواري . خروج) عملت نموذج اساسي للجدول الاول وبه جدول فرعي للجدول الثاني وسجلاته مستمرة المطلوب عند تغيير حالة المريض في النموذج الفرعي ياخذ قيمة اخر حقل ( ممكن المريض طوارئ في السجل الاول والسجل الثاني طواري والثالث خروج فياخذ اخر قيمة وهي خروج ) ويحدث حالة المريض في الجدول الاساسي بناء على اخر قيمة في النموذج الفرعي  الجدولين مرتبطه 
  4. If [password] = [n1] And [n2] = [n3] Then [password] = [n3] [n1] = "" [n2] = "" [n3] = "" Else If [password] <> [n1] Then Ms$ = "كلمة السر القديمة سيتم غلق البرنامج" Ti$ = "خطا في كلمة السر" Re = MsgBox(Ms$, 0, Ti$) DoCmd.Quit Else If [n2] <> [n3] Then Ms$ = "كلمة السر الجديدة غير متطابقتان" Ti$ = "خطا كلمة السر" Re = MsgBox(Ms$, 0, Ti$) Else End If End If End If الكود بعاليه لتغيير كلمة السر ويعمل ما فيه مشكلة بس حاب اضيف 1- رسالة تاكيد مفادها :       تم تغيير كلمة المرور للمستخدم/ اسم المستخدم  بنجاح وياخذ الكود اسم المستخدم من حقل اسم المستخدم وشكرا لكم
  5. Private Sub BirthDate_LostFocus() EWorkDate = DateAdd("yyyy", 60, [BirthDate]) Dim DGP As Integer Dim MGP As Integer Dim YGP As Integer Call EndWork(Me.BWorkDate, Me.EWorkDate, DGP, MGP, YGP) Me.CWorkDate = YGP & " سنه " & " æ " & MGP & " يوم" & " æ " & DGP & " شهر " Me.ZXY = YGP Me.ZXM = MGP Me.ZXD = DGP If Me.EWorkDate > Date Then Me.Status = "لازال على راس العمل" Else Me.Status = "متقاعد" End If End Sub   ارجو التعديل على هذا الكود اخذته من احد الاخوان بموقعكم المصون في حال وصل سن التقاعد يضيف متقاعد الى حقل اخر حيث يوجد لدي مربع تحرير وسرد اسمه vizites في جدول visitوفيه قيمتين فقط زيارة داخلية وزيارة خارجية والمطلوب بعد اختيار قيمة زيارة خارجية يعدل قيمة حقل مربع تحرير وسرد اخراسمه  Caseالى زيارة خارجية في جدول اخر اسمهalnzeel والنموذج A مصدر بياناته جدول alnzeel ويحوي نموذج فرعي مصدر بياناته جدول visit  والجدولين مرتبطين علاقة راس باطراف
  6. الف شكر لكم تم التوصل للمطلوب  
  7. السلام عليكم ورحمة الله وبركاته يوجد لدي قاعدة بيانات والدخول باسم مستخدم وكلمة مرور وصلاحيات ويظهر اسم المستخدم في النموذج الاساسي المطلوب عند دخولي على اضافة بيانات سجل جديد  من الاسم والتاريخ والعمر والجنسية ........الخ يتم اضافة اسم المستخدم لحقل nem للجدول تلقائيا بناء على اسم المستخدم الذي تم دخول البرنامج باسمه . جربت الكود [Forms]![user_name]![nem]  ووضعته في القيمة الافتراضية لحقل nem ولم اوفق  user_name اسم المستخدم  nem اسم الحقل في جدول اضافة البيانات ارجوا التكرم وافادتي ولكم الشكر والتقدير
  8. يومين ولم يتم الرد مع ان الحل بسيط
  9. هل من مجيب مضوع بسيط ولم اجد احل Spoiler    
  10. يا اخوان خلصت من قاعدة البيانات وتوقفت عند اخر نقطة مربع البحث من يعرف الحل يتكرم ويعدل على المرفق وله دعوة في ظهر الغيب
  11. يوجد لدي نموذج يحتوي على نموذج فرعي ارغب تصميم مربع بحث في النموذج الاساسي يبحث عن الحقول في النموذج الاساسي والنموذج الفرعي ليس له علاقة بالبحث وفي المثال المرفق شرح للمطلوب ارجو مساعدتي وتعديل المرفق وشكرا لكم Database3.rar