ابو جودي

هذا فضل الله وكرمه سحبانه وتعالى الشرح كالاتى الكود الاول والذى كان فى حدث عند تحديث بيانات مربع النص الخاص بتحليل (الكولسترول الكلي) - Total Cholesterol Select Case Nz([Total Cholesterol].Value & vbNullString, vbNullString) Case "": ValTotalCholesterol = vbNullString Case 5.2 To 6.2: ValTotalCholesterol = "Borderline" Case Is < 5.2: ValTotalCholesterol = "Desirable" Case Is > 6.2: ValTotalCholesterol = "High risk of heart disease " End Select تم وضعه فى روتين عام ليسهل استخدمه باستدعاءه من أى مكان وتم استخدام الاسم ValTotalCholesterol لهذا الروتين ويتم استدعاءه من خلال هذا الاسم وكذلك الكود الثانى والذى كان فى حدث عند تحديث بيانات مربع النص الخاص بتحليل (الدهون الثلاثية) - Triglycerides Select Case Nz([Triglycerides].Value & vbNullString, vbNullString) Case "": ValTriglycerides = vbNullString Case Is <= 500: ValTriglycerides = vbNullString Case Is > 500: ValTriglycerides = "increase the risk of heart disease please check for ECG" End Select تم وضعه فى روتين عام ليسهل استخدمه باستدعاءه من أى مكان وتم استخدام الاسم ValTriglycerides لهذا الروتين ويتم استدعاءه من خلال هذا الاسم الجزء الثانى وهو دمج القيم تبعا لبيانات التحاليل فى كل مربع نص تم وضعه كذلك فى روتين عام ليسهل استخدمه باستدعاءه من أى مكان وتم استخدام الاسم StrResult لهذا الروتين ويتم استدعاءه من خلال هذا الاسم If Len(Nz([Total Cholesterol].Value & vbNullString)) = 0 Then _ Me.txtcomment = ValTriglycerides Else: Me.txtcomment = ValTotalCholesterol & vbNewLine & ValTriglycerides وشرح الكود كالاتى .. تم استخدام دالة If الشرطية لو مربع النص Total Cholesterol فارغ وطول السلسة النصيه بداخله يساوى 0 يكون مربع النص txtcomment يساوى قيمة الروتين ValTriglycerides وان كان مربع النص Total Cholesterol غير فارغ ويحتوى على قيم وطول السلسلة النصيه بداخله اكبر من 0 يكون مربع النص txtcomment يساوى قيمة الروتين ValTotalCholesterol + سطر جديد + قيمة الروتين ValTriglycerides بعد ذلك يتم استدعاء هذا الروتين StrResult فى حدث عند تحديث بيانات مربع النص الخاص بتحليل (الكولسترول الكلي) - Total Cholesterol وكذلك فى حدث عند تحديث بيانات مربع النص الخاص بتحليل (الدهون الثلاثية) - Triglycerides --------- -الدالة Len......... طول السلسلة النصية -الدالة Nz ..........مفيدة للتعبيرات التي قد تتضمن قيم Null. لإجبار تعبير على التقييم إلى قيمة غير خالية حتى عندما يحتوي على قيمة Null لذلك يتم استخدم الدالة Nz لإرجاع صفر أو سلسلة فارغة أو قيمة مرجع مخصصة If Len(Nz([Total Cholesterol].Value & vbNullString)) = 0 هذا الجزء يعنى التأكد من طول السلسة النصية داخل مربع النص وان كانت تساوى 0 ان كان مربع النص خالى Then ...... عند تحقق الشرط السابق نفذ الامر اللاحق مربع النص Me.txtcomment = قيمة المتغير العام ValTriglycerides الذى قام مسبقا باختزان بيانات داخله بناء على القيم المكتوبة داخل الروتين الخاص به Else: ...... تعنى --- إن لم يتحقق الشرط السابق وكان مربع النص طول السلسة به اكبر من صفر نفر الامر التالى بدلا من الامر السابق Me.txtcomment = قيمة المتغير العام ValTotalCholesterol الذى قام مسبقا باختزان بيانات داخله بناء على القيم المكتوبة داخل الروتين الخاص به - & vbNewLine & اضافة سطر جديد قيمة المتغير العام ValTriglycerides الذى قام مسبقا باختزان بيانات داخله بناء على القيم المكتوبة داخل الروتين الخاص به

اتفضل اضفت العديد من الفلاتر لاضفاء الكثير من المرونة وايضا الترتيب تصاعديا وتنازليا Customers.mdb

شفافيــــــــــــTransparent Formsــــــــــــة النماذج Transparent Forms.mdb

شفافيــــــــــــTransparent Formsــــــــــــة النماذج Transparent Forms.mdb

.

هههههههه ولا يهمك انا دائما ما بافهم نفسى المهم الحمد لله انك وجدت ضالتك 👍

نعم يمكن ذلك الجزء الاول وهو رفع القاعدة على الانترنت ... سوف ابحث بالمنتدى لاتيك بالطريقة الجزء الثانى بحيث يمكن لبعض الأشخاص المشاركة في إدخال بيانات عليها والبعض الآخر البحث فيها يمكن ذلك ولكن يتطلب وضع الية للمستخدمين لتحديد صلاحيات كل مستخدم

العفو تحت امر حضرتك... لا شكر على واجب انا مش فافهم بصراحة تقصد ايه تحديدا ياريت لو توضح اكتر علشان اقدر افهمك على حسب فهمى ان كنت لا تريد انشاء زر امر لاضافة سجل جديد وتريد نفس النتيجة بالمرفق ممكن فى الحدث الحالى للنموذج تضع الكود فيكون بالشكل الاتى Private Sub Form_Current() If NewRecord Then maktab = DLookup("[maktab]", "m3lomat") End Sub

اعرض الملف ToolTip - تلميح داخل مربع النص مع علامة مائية عند التركيز - يختفى كل من التلميح والعلامة المائية بمجرد كتابة البيانات داخل مربع النص أو عند فقدان التركيز اذا كان مربع النص لا يختوى على اى قيم صاحب الملف ابا جودى تمت الاضافه 19 أكت, 2021 الاقسام قسم الأكسيس  

طيب اتفضل على حسب ما فهمت asd (1).accdb

التلميح داخل مربع النص مع علامة مائية فى حالة كان مربع النص فارغ ويختفيان بمجرد التركيز داخل مربه النص او الكتابة ... ToolTip.mdb

التلميح داخل مربع النص مع علامة مائية فى حالة كان مربع النص فارغ ويختفيان بمجرد التركيز داخل مربه النص او الكتابة ... ToolTip.mdb

اتفضل 122.accdb

ممكن المرفق النهائى لو تكرمت حتى تعم الفائدة

اتفضل test comment (1).accdb

السلام عليكم ورحمة الله تعالى وبركاته فكرتى المتواضعة أن يكون هذا الموضوع متجدد باستمرار او على الاقل لى شخصيا ليكون بمثابة هامش صغير ليحتوى على شخابيط وافكار وتلميحات هامة ومتعدده ليسهل الوصول اليها لانى الان اتعب جدا جدا جدا جدا فى البحث داخل المنتدى للوصول الى اى معلومة او فكرة قديمة سوف احاول جاهدا جمع أفكارى بصفة مستمرة ليسهل لى او لاحبائى الرجوع اليها مستقبلا .................. على بركة الله

وجزاكم الله الخير كله ان شاء الله انتم وكل اساتذتنا الكرام ولكن رجاء انتبه للملاحظة السابقة

* ملاحظة هامة إن أردت الناتج فقط ولن تقوم بتكرار تلك العملية مستقبلا المرفق يحتوى على الناتج فى تلك الحالة إن اردت التجربة للمثال المرفق والالية التى تتم بها العملية للوصول الى النتيجة التى تريدها قم اولا بحذف كل سجلات الجدول tb2 ثم قم بعمل ضغط واصلاح للقاعدة ثم افتح النموذح frmAddRecordRelated ومن بعد ذلك اضغط زر الامر لتتم تنفيذ الاحداث تباعا الى نهاية الحلفة التكرارية ------------ ان كنت تريد مستقبلا تنفيذ هذا الموضوع نفكر تانى فى فوكيرة جديدة لان الطريقة دى سوف تقوم بتكرار كل السجلات عند الضغط على زر الامر فى كل مرة

اتفضل انا عملت نموذج مستمر مصدر بيانات الجدول tb2 وقمت بوضع زر امر وكود حلقة تكرارية والكود كالاتى Dim intCounter As Integer For intCounter = 0 To 1535 Me.id1 = intCounter + 1 Me.xm = "0.0" Me.xn = "0.3" Me.xb = "rem" DoCmd.GoToRecord , , acNext Me.id1 = intCounter + 1 Me.xm = "0.2" Me.xn = "0.4" Me.xb = "in" DoCmd.GoToRecord , , acNext Me.id1 = intCounter + 1 Me.xm = "0.9" Me.xn = "0.0" Me.xb = "out" DoCmd.GoToRecord , , acNext Next MsgBox "Done , successfully", vbOKOnly, "Judy (*_^) " New Microsoft Access قاعدة بيانات (4).accdb

ممكن ترفق ملف الاكسل لو تكرمت

ومشاركة مع اساتذتى الافاضل واحبائى الكرام واثراء للموضوع ممكن الحل باستخدام الكود الاتى عن طريق استخدام دالة SELECT CASE Private Sub Triglycerides_AfterUpdate() Select Case Nz(Triglycerides.Value, "") Case "" Me.comment = "" Case Is <= 500 Me.comment = "" Case Is > 500 Me.comment = "increase the risk of heart disease please check for ECG" End Select End Sub انا عن نقسى افضل الدالة SELECT CASE لان دالة IF احيانا تكون لدى البعض صعبة القراءة و نسبة الخطأ قد تكون كبيرة في كتابتها test comment.accdb

الحمد لله الذى تتم بنعمته الصالحات انا كمان طويلب علم وان كنا انا وانت تعلمنا شيئا فكل ذلك بفضل الله سبحانه وتعالى ثم اساتذتنا الكرام الأجلاء بارك الله فيهم وجعل ذلك لهم فى موازين اعمالهم وحسناتهم وفى الاخير سبحانك لا علم لنا الا ما علمتنا انك انت العليم الحكيم

شرح دالة DateAdd تعد دالة DateAdd من دوال الوقت والتاريخ المهمة حيث تستخدم في إضافة مدة معينة على تاريخ معين تتطلب دالة DateAdd تحديد ثلاثة متغيرات هي : 1- نوع الفترة التي تريد إضافتها وهل هي يوم ِأم شهر أم سنة أم ساعة أو ..... إلخ ( التي تريد إضافتها ) 2- العدد أي ما هو عدد الأيام أو الأشهر أو السنوات أو الساعات أو ..... إلخ ( التي تريد إضافتها ) 3- التاريخ الذي تريد الإضافة إليه وتستخدم الدالة بالصيغة التالية : 'Syntax : DateAdd(interval, number, date) DateAdd(التاريخ, العدد, نوع الفترة) 'Examples : x = DateAdd("yyyy", 1, Date()) x = DateAdd("m", 5, Date()) x = DateAdd("d", 14, Date()) Interval Description yyyy Year q Quarter m month y Day of the year d Day w Weekday ww Week h hour n Minute s Second

اتفضل Private Sub Date1_AfterUpdate() Date2 = DateAdd("yyyy", 1, Date1) End Sub المرفق New.accdb