ابو جودي

طيب اتفضل على حسب ما فهمت 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

ممكن مرفق لو تكرمت من قاعدة البيانات يا اهلا باستاذى الجليل ومعلمى القدير اذا حضر الماء بطل التيمم

=([gold import])/2)-[gold export]

فى المرفق السابق تمت عملية الجمع مباشرة من خلال الكود فى المرفق الاتى تمت عملية الجمع من خلال الاستعلام Aziz (3).accdb

اتفضل المرفق القديم بتاعك بعد الاضافة اللى حضرتك طلبتها Aziz (2).accdb

Column(4) اى الرقم الذى يدل على العمود داخل مربع التحرير الذى يخص معرف السجل ID واستخدمت هذا الرقم لان هذا هو الذى يدل على العمود الذى يدل على معرف السجل Aziz (1).accdb

ارفع قاعدتك على https://www.mediafire.com/ او https://www.top4top.io/

استخدم الكود الاتى Private Sub List100_DblClick(Cancel As Integer) DoCmd.GoToRecord , , acGoTo, List100.Column(4) End Sub

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

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

استاذى الجليل ومعلمى القدير و والدى الحبيب الاستاذ @ابوخليل اهلا وميت مليون حياكم الله وبياكم معلمى طيب اذا كان ما فى غير مستخدم واحد فقط من الاساس لم تم وضع الحماية بدخول مستخدمين ؟! وان كان مستخدم واحد فقط ممكن قدرا اى مستخدم يفتح قاعدة البيانات ؟!