ابو جودي

ومشاركة مع اساتذتى الافاضل واحبائى الكرام واثراء للموضوع ممكن الحل باستخدام الكود الاتى عن طريق استخدام دالة 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 ابشر ان شاء الله اعمل على تحقيق طلبكم

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

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

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

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

انا مش قادر افهم المطلوب بصراحة وتوهت حبتين فى المرفق رجاء استاذى الفاضل حاول وضع مثال مصغر بالسؤال على اقل تقدير بحيث لا يحتوى على اى عناصر الا التى تخص السؤال ففهم السؤال هو شطر الجواب ولانى مش فاهم جرب وشوف هو ده طلبك واللا لاء وان كان لا رجاء تسهيلا على من يريد مد يد العون اليكم استاذى حاول رسم التصور من خلال المرفق المبسط الاتى بالارقام وتحديد موضع النتائج بالارقام كذلك معلش فهمى على اد حالى وللعلم تمت الاجابة حسب فهمى مرتبطا بعنوان المشاركة .... Test Sum On PageHeader.mdb

طيب ولا تزعل اتفضل بالتطبيق مثال شامل منتظر ردك بعد التجربة وخد بالك دى مجرد أفكار ممكن تلاقى حلول أفضل إن لم ترضيك هذه النتيجة لاحظ الأتى - قبل المقارنة بين النصوص يتم ازالة كل حركات التشكيل فقط لم أقترب من الهمزات والالف المدود بلا بلا بلا بلا بلا يعنى لا تزعق إن تريد التغلب عليها - فى المويدول فقط قمت بأعادة الكود مرة أخرى مع تغيير اسم الـ Function فقط حتى استطيع اظهار النتيجة فى الاستعلامات CompareText.zip

اتفضل If StrComp(name1, name2) = 0 Then MsgBox ("النصوص متماثلة") Else MsgBox ("النصوص مختلفة") End If

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

للاسف هذا فقط ما استطعت استراجاعة استاذى الجليل و معلمى القدير و والدى الحبيب الاستاذ @ابوخليل ممكن اسم البرنامج المستخدم من قبلكم APE (AccessFIX).accdb

اثراء للموضوع تلك فكرتى المتواضعة موديول يحتوى على الاكواد الاتية ليتم اسناد اسم المستخدم الحالى الى متغير عام وجلبه بسهولة من خلال روتين عام فى اى نموذج دون الابقاء على نموذج الدخول مفتوح بصفة مستمرة والذى قد يجبرك مستقبلا لاخفاء النموذج Global strCUser As String Public Function CUser() CUser = strCUser End Function يتم استدعاء اسم المستخدم من خلال احدى الطريقتين اولا وضع الكود الاتى مصدرا لعنصر التحكم ( textbox) =CUser() او وضع كود على النموذج عند القتح txtCurrentUser = CUser sample_ 02.accdb

وهذا ملف التطبيق OpenImage.zip

اتفضل قم بإنشاء موديول جديد وضع بع الكود الاتى Function OpenImage(ImagePath As String) Dim officena As Long officena = Shell("mspaint " & Chr$(34) & ImagePath & Chr$(34), vbMaximizedFocus) End Function ويمكنك استدعاء الكود حسب رغبتك من خلال الكود الاتى OpenImage "D:\My Phone\DCIM\Camera\officena.jpg" طبعا مع تغير مسار الصورة D:\My Phone\DCIM\Camera\officena.jpg كما تريد حسب موقعها

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