نجوم المشاركات

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

اتفضل انا عملت نموذج مستمر مصدر بيانات الجدول 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

جرب هذه المعادله =SUMIF($A$2:$A$64;$E2;$B$2:$B$64)

ربما يفيدك هذا الموضوع تفضل اخي

تفضل جرب هذا جمع الاعطال.xlsx

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

جزبل الشكر وهو المطلوب مبدع كالعادة

فقط عليك أن تلغي الربط بين النموذج الأصلي والنموذج الفرعي .. ولكن ما سيحصل أن أي تغيير في النموذج الفرعي سيظهر نفسه في جميع السجلات .. بعد إلغاء الربط.accdb إلا إذا كنت تريد إلحاق نفس السجلات الفرعية لكل سجل في النموذج الأصلي وكل سجل بأرقامه الخاصة فهذا شيء مختلف .

تفضلي هذي اضافة و حذف المواد Project 1-1.zip

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

يا سلام عليك ابواسيل جزاك الله خيرا احسنت احسنت

اذا لم يكن هو المطلوب فاعتقد بأن التعبير ادناه يؤدي الغرض Not Like "[*<<*]" And Not Like "*@*" And Not Like "*$*" And Not Like "*'*'*" And Not Like "*^*" And Not Like "[*+*]" And Not Like "*=*" And Not Like "*!*" And Not Like "*%*" And Not Like "[*#*]" And Not Like "*|*" And Not Like "*<*" And Not Like "*؟*"

السلام عليكم ورحمة الله استخدم هذه المعادلة =IF(LEFT($G2;2)="10";"ذكر";IF(LEFT($G2;2)="11";"أنثى";"رقم غير صحيح"))

تفضل أخي العزيز .. test comment 2.accdb Private Sub Triglycerides_AfterUpdate() If Me.Triglycerides.Value > 500 Then Me.comment = Me.comment & "increase the risk of heart disease please check for ECG" & vbNewLine Else Me.comment = "" End If End Sub

أحسنت دكتورنا الغالي نعم هذا ما قلتة من البداية وفي الحقيقة لم اعرف ما هو المطلوب بالضبظ. فهمي بطيء حبتين ان شاءالله يكون هو المطلوب .

بسبب ربط النموذج مع احد الحقول داخل الفروم Project 1-1.accdb

و اياك جزى اخي الغالي هناك حل و هو عمل جدول بالقيم المطلوبه و من ثم يتم عمل استعلام غير المتطابقات و هذا يسهل عليك اضافة قيم اخرى للمقارنه الى الجدول مباشرة دون التعديل على الاستعلام الجدول tblTfrValues يحمل قيم المقارنه و الاستعلام qryTfr يظهر لك السجلات المطلوبه بالتوفيق اخي الغالي MusndWZwayid 01_Update.rar

جزاك الله خيرا أخي الكريم Moosak .. الاستعلام المذكور أدى المطلوب بخصوص عمود (TFLVL) مع العلم أنه كان قصدي التعامل مع كل عمود لوحده، ولكن يظهر أني لم أوضح المطلوب لكني عدلت على (Quiry 1) ليعمل على كل عمود لوحده، فكانت هذه صيغته في عمود (TFLVL) SELECT TAB.ID, TAB.TNO, TAB.NOM, TAB.NASS, TAB.TFLVL FROM TAB WHERE (((TAB.TFLVL)="0" Or (TAB.TFLVL)="1" Or (TAB.TFLVL)="2" Or (TAB.TFLVL)="3" Or (TAB.TFLVL) Is Null)); وتم المطلوب بحمد الله .. وجزاك الله خيرا وحاولت أن أجرى نفس الطريقة على عمود (TFR) وعدلت الاستعلام إلى SELECT TAB.ID, TAB.TNO, TAB.NOM, TAB.NASS, TAB.TFR FROM TAB WHERE (((TAB.TFR)="@" Or (TAB.TFR)="$" Or (TAB.TFR) Like "*" Or (TAB.TFR)="^" Or (TAB.TFR)="+" Or (TAB.TFR)="=" Or (TAB.TFR)="!" Or (TAB.TFR)="%" Or (TAB.TFR)="#" Or (TAB.TFR)="|" Or (TAB.TFR)=">" Or (TAB.TFR)=">>" Or (TAB.TFR)="؟" Or (TAB.TFR) Is Null)); لكن يظهر أن هذه الجملة بحاجة لتعديل Or (TAB.TFR) Like "*" فعند تشغيل الاستعلام تخرج جميع النتائج

بارك الله فيك اخي Moosak و اكثر من امثالك اذا سمحت لي بالمساهمه في الحل بالمرفق استعلامين لكل حقل من الحقول يوضح القيم الغير مدخله حسب المطلوب بالتوفيق للجميع ان شاء اللهMusndWZwayid 01_Update.rar

بانتظار الاصدار الاحدث والشرح وفقك الله

جميعا بإذن الله

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

تفضل لك ما طلبت دبل كليك1.xlsm

نعم صحيح لأنك تعمل على إصدار 2003 وهو قديم تم التحديث جرب المرفق شاشة دخول - .rar