نجوم المشاركات
Popular Content
Showing content with the highest reputation on 10/18/21 in all areas
-
السلام عليكم ورحمة الله تعالى وبركاته فكرتى المتواضعة أن يكون هذا الموضوع متجدد باستمرار او على الاقل لى شخصيا ليكون بمثابة هامش صغير ليحتوى على شخابيط وافكار وتلميحات هامة ومتعدده ليسهل الوصول اليها لانى الان اتعب جدا جدا جدا جدا فى البحث داخل المنتدى للوصول الى اى معلومة او فكرة قديمة سوف احاول جاهدا جمع أفكارى بصفة مستمرة ليسهل لى او لاحبائى الرجوع اليها مستقبلا .................. على بركة الله6 points
-
اتفضل انا عملت نموذج مستمر مصدر بيانات الجدول 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).accdb2 points
-
جرب هذه المعادله =SUMIF($A$2:$A$64;$E2;$B$2:$B$64)2 points
-
2 points
-
السلام عليكم و رحمة الله تعالى وبركاته إخوتي الكرام حياكم الله. إليكم هذا البرنامج الصغير الذي يقوم بإظهار شريط طباعة مع كل تقرير و بإستعمال أكواد قليلة يقوم شريط الطباعة بضبط إعدادات الصفحة ، طباعة الصفحة الحالية، طباعة الصفحات التي تريدها حسب الإختيار، التكبير و التصغير ، الإنتقال بين السجلات، عرض مجموعة من الصفحات في التقرير. رغم أنه يوجد مثال من قبل للأستاذة زهرة حفظها الله. إلا أنني في هذا المثال إستعملة طريقة مغايرة قليلا و بإستعمال أسطر أقل. إنشاء شريط طباعة.rar1 point
-
1 point
-
وجزاكم الله الخير كله ان شاء الله انتم وكل اساتذتنا الكرام ولكن رجاء انتبه للملاحظة السابقة1 point
-
1 point
-
فقط عليك أن تلغي الربط بين النموذج الأصلي والنموذج الفرعي .. ولكن ما سيحصل أن أي تغيير في النموذج الفرعي سيظهر نفسه في جميع السجلات .. بعد إلغاء الربط.accdb إلا إذا كنت تريد إلحاق نفس السجلات الفرعية لكل سجل في النموذج الأصلي وكل سجل بأرقامه الخاصة فهذا شيء مختلف .1 point
-
1 point
-
ومشاركة مع اساتذتى الافاضل واحبائى الكرام واثراء للموضوع ممكن الحل باستخدام الكود الاتى عن طريق استخدام دالة 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.accdb1 point
-
1 point
-
اذا لم يكن هو المطلوب فاعتقد بأن التعبير ادناه يؤدي الغرض 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 "*؟*"1 point
-
السلام عليكم ورحمة الله استخدم هذه المعادلة =IF(LEFT($G2;2)="10";"ذكر";IF(LEFT($G2;2)="11";"أنثى";"رقم غير صحيح"))1 point
-
تفضل أخي العزيز .. 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 Sub1 point
-
أحسنت دكتورنا الغالي نعم هذا ما قلتة من البداية وفي الحقيقة لم اعرف ما هو المطلوب بالضبظ. فهمي بطيء حبتين ان شاءالله يكون هو المطلوب .1 point
-
1 point
-
و اياك جزى اخي الغالي هناك حل و هو عمل جدول بالقيم المطلوبه و من ثم يتم عمل استعلام غير المتطابقات و هذا يسهل عليك اضافة قيم اخرى للمقارنه الى الجدول مباشرة دون التعديل على الاستعلام الجدول tblTfrValues يحمل قيم المقارنه و الاستعلام qryTfr يظهر لك السجلات المطلوبه بالتوفيق اخي الغالي MusndWZwayid 01_Update.rar1 point
-
جزاك الله خيرا أخي الكريم 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 "*" فعند تشغيل الاستعلام تخرج جميع النتائج1 point
-
بارك الله فيك اخي Moosak و اكثر من امثالك اذا سمحت لي بالمساهمه في الحل بالمرفق استعلامين لكل حقل من الحقول يوضح القيم الغير مدخله حسب المطلوب بالتوفيق للجميع ان شاء اللهMusndWZwayid 01_Update.rar1 point
-
1 point
-
1 point
-
تفضل لك ما طلبت دبل كليك1.xlsm1 point
-
نعم صحيح لأنك تعمل على إصدار 2003 وهو قديم تم التحديث جرب المرفق شاشة دخول - .rar1 point