علي المصري

استخدم =COUNTBLANK(1:1)*COUNTBLANK(A:A)

هي يمكن حل مشكلة الأسماء المركبة؟

تعديل بسيط على البرنامج ( في حالة نسبة النجاح 100 % ) 11LA -11LB -11S.rar

210 مشاهدة ولا يوجد رأي واحد في الواجهات وامكانيات البرنامج بالتالي لا فائدة من تحميل البرنامج على الموقع اريد معرفة الآراء قبل عملية وضع البرنامج على الموقع شكرا للجميع

النسخة مفتوحة للتعديل

برنامج بسيط يقوم بتحليل نتائج 3 فصول معا البرنامج باللغتين الانجليزية والعربية اختار ما تشاء 11LA -11LB -11S.rar

بعد اذن الاستاذ الكبير الاستاذ YasserKhalil والاستاذ سليم حاصبيا جرب الحل التالي إظهار.rar

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

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

شكرا اخي الكريم استاذ أبوخليل أولا لك كل الصلاحيات في عمل أي شيئ في الملف المرفق ------- جزاك الله خيرا هو عنوانك ايه عشان اجي اخذ درس في الاكواد عندك هههههههههههه شكرا جزيلا انا كنت بستخدم الدلة من غير المعيار الاخير فلذلك كانت تعطى نتائج فارغة شكرا جزيلا بعد هذا الكود قمت باستخدامه كالتالي حيث الفكرة عند الضغط على مفتاح عدد الإنذارات السابقة في النموذج frmStuNotes تظهر رسالة عدم وجود مخالفات لهذا الطالب مع اسم الطالب وفي حالة وجود مخالفات يظهر النموذج FrmNumberOfWarning ويظهر العدد في مربع النص المخصص له وبيانات هذا الطالب Dim i As Integer i = DCount("[eSIS#]", "TblStuNotes", "[eSIS#]=" & Me.eSISNo) If i > 0 Then DoCmd.OpenForm "FrmNumberOfWarning", , , , acFormReadOnly Else DoCmd.CancelEvent MsgBox "لا يوجد إنذارات لهذا الطالب" & vbNewLine & " " & vbNewLine & _ "No warnings for the student" & _ vbNewLine & " " & vbNewLine & Me.SName, vbOKOnly, "تنبيه Warning" End If جزاك الله خيرا 

جزاك الله خيرا استاذ عبدالباري البنا عمل ممتاااااااااااااااااااااااااااااااااااااااااز عند اقتراح بالنسبة للأكواد لاحظ تكرار جملة عدة مرات في الكود اقتراحي اختصار هذه الاكواد بالطريقة التالي مثلا الكود التالي 'TX55 = ActiveCell.Offset(0, 1).Text 'TX56 = ActiveCell.Offset(0, 2).Text 'TX57 = ActiveCell.Offset(0, 3).Text 'TX58 = ActiveCell.Offset(0, 4).Text 'TX59 = ActiveCell.Offset(0, 5).Text 'TX60 = ActiveCell.Offset(0, 6).Text 'TX61 = ActiveCell.Offset(0, 7).Text 'TX62 = ActiveCell.Offset(0, 8).Text 'TX63 = ActiveCell.Offset(0, 9).Text 'TX64 = ActiveCell.Offset(0, 10).Text 'TX65 = ActiveCell.Offset(0, 11).Text 'TX66 = ActiveCell.Offset(0, 12).Text 'TX67 = ActiveCell.Offset(0, 13).Text 'TX68 = ActiveCell.Offset(0, 14).Text 'TX69 = ActiveCell.Offset(0, 15).Text 'TX70 = ActiveCell.Offset(0, 16).Text 'TX71 = ActiveCell.Offset(0, 17).Text 'TX72 = ActiveCell.Offset(0, 18).Text 'TX73 = ActiveCell.Offset(0, 19).Text 'TX74 = ActiveCell.Offset(0, 20).Text 'Tx75 = ActiveCell.Offset(0, 21).Text 'Tx76 = ActiveCell.Offset(0, 22).Text 'TX77 = ActiveCell.Offset(0, 23).Text يمكن اختصاره كالتالي Dim i, j As Integer For i = 55 To 77 j = i - 54 Me.Controls("TX" & i) = ActiveCell.Offset(0, j).Text Next i والكود 'TX55 = "" 'TX56 = "" 'TX57 = "" 'TX58 = "" 'TX59 = "" 'TX60 = "" 'TX61 = "" 'TX62 = "" 'TX63 = "" 'TX64 = "" 'TX65 = "" 'TX66 = "" 'TX67 = "" 'TX68 = "" 'TX69 = "" 'TX70 = "" 'TX71 = "" 'TX72 = "" 'TX73 = "" 'TX74 = "" 'Tx75 = "" 'Tx76 = "" 'TX77 = "" 'TX78 = "" يمكن اختصاره Dim i As Integer For i = 55 To 78 Me.Controls("TX" & i) = "" Next i هذا اقتراحي ولكم الرأي شكرا جزيلا ً

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

لدي نموذج اسمه FrmStuNotes اريد عند الضغط على زر عدد الانذارات السابقة إذا كان لا يوجد انذارات لهذا الطالب يظهر مربع نص في وسط النموذج به رسالة " لا يوجد انذارات سابقة للطالب : اسم الطالب " حاولت باستخدام isNull ولم تفلح العملية AAA.rar

?????????????????????????

اعمل تقرير بحيث يكون التجميع حسب الاسم تقرير تجمع حسب نوع التحليل

جمييييييييييييييييييل جدا استاذ حسن

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

بدون الحاجة لحماية الورقة بكلمة مرور أو غيره إليك الكود التالي يمنع الوقوف على في الخلية إذا كانت تحتوي على معادلة ( بشرط لا يوجد دمج لهذه الخلية مع خلية أخرى ) Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.HasFormula = True Then ActiveCell.Offset(0, 1).Select End Sub

افتح الفورم على وضع التصميم ونفذ الشرح في الصورة

جربي الدالة التالية =DLast("date";"المبيعات") حيث يمكنك اضافة معيار بعد اسم الجدول

في حدث بعد التحديث AfterUpdate لمربع النص الموجود به الرقم 5

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

الملف المرفق تنسيق اكسيس 2007 - 2013

السلام عليكم ورحمة الله وبركاته ارجو ان أجد طلبي : مطلوب كود لعمل اخفاء لجميع عناصر قاعدة البيانات من نماذج وتقارير وغيرها حتى لا يتلاعب بها احد غيري ايضا كود لإيقاف مفتاح شفت Shift ( حصلت على واحد ولكن مع اوفيس 2013 لا يعمل )

جميل جدا استاذ عبدالفتاح كيرة عملية اختصارك للكود انا كتبته بالطريقة التالية Private Sub Text0_AfterUpdate() If Me.Text0 = 5 Then Me.Text2.Visible = False Else Me.Text2.Visible = True End If End Sub وبالتالي تعلمت حاجة جديدة من استاذنا الفاضل وهي كيفية اختصار امر مثل ذلك لك جزيل الشكر