-
Posts
1498 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
5
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
كل منشورات العضو علي المصري
-
ألغاز إكسيلية (موضوع ترفيهي)
علي المصري replied to ياسر خليل أبو البراء's topic in منتدى الاكسيل Excel
استخدم =COUNTBLANK(1:1)*COUNTBLANK(A:A) -
تقسيم وتوزيع النص على عدة حقول ( تجزئة الاسم الرباعي )
علي المصري replied to ابوخليل's topic in قسم الأكسيس Access
هي يمكن حل مشكلة الأسماء المركبة؟ -
تعديل بسيط على البرنامج ( في حالة نسبة النجاح 100 % ) 11LA -11LB -11S.rar
-
دليل المستخدم لبرنامج المتابعة اليومية للطلاب الإصدار الثاني
علي المصري replied to علي المصري's topic in قسم الأكسيس Access
210 مشاهدة ولا يوجد رأي واحد في الواجهات وامكانيات البرنامج بالتالي لا فائدة من تحميل البرنامج على الموقع اريد معرفة الآراء قبل عملية وضع البرنامج على الموقع شكرا للجميع -
النسخة مفتوحة للتعديل
-
برنامج بسيط يقوم بتحليل نتائج 3 فصول معا البرنامج باللغتين الانجليزية والعربية اختار ما تشاء 11LA -11LB -11S.rar
-
بعد اذن الاستاذ الكبير الاستاذ YasserKhalil والاستاذ سليم حاصبيا جرب الحل التالي إظهار.rar
-
هل يوجد كود او طريقة لاخفاء رسالة نص التحقق من الصحة
علي المصري replied to ابو جودي's topic in قسم الأكسيس Access
على حد علمي استاذنا الفاضل انه لابد من الرسالة حتى تنبهك على تجاوزك الشرط الذي وضعته لهذا الحقل فلماذا تريد إلغائها فما هي الفكرة التي تريد تطبيقها من وراء ذلك ارفق الملف مع شرح الفكرة شكرا جزيلا -
شكرا اخي الكريم استاذ أبوخليل أولا لك كل الصلاحيات في عمل أي شيئ في الملف المرفق ------- جزاك الله خيرا هو عنوانك ايه عشان اجي اخذ درس في الاكواد عندك هههههههههههه شكرا جزيلا انا كنت بستخدم الدلة من غير المعيار الاخير فلذلك كانت تعطى نتائج فارغة شكرا جزيلا بعد هذا الكود قمت باستخدامه كالتالي حيث الفكرة عند الضغط على مفتاح عدد الإنذارات السابقة في النموذج 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
-
?????????????????????????
-
ما هو الكود المناسب لإخراج تقارير صحيحة لهذا النموذج ؟
علي المصري replied to ابراهيم ابو منة's topic in قسم الأكسيس Access
اعمل تقرير بحيث يكون التجميع حسب الاسم تقرير تجمع حسب نوع التحليل -
جمييييييييييييييييييل جدا استاذ حسن
-
شكراً لفريق الموقع وكل من شرف الموضوع بالرد جزاكم الله خيرا كلامكم جميل جدا ولكن هل كل من يستخدم الاكسيل في عبقريتكم هذا الكود للحماية حتى لا يتم تغيير المعادلة او العبث فيها دون قصد وبالتالي تعطي نتائج خاطئة وذلك مثلا عند عملي لبرنامج لتحليل النتائج بالمدرسة باستخدام هذ الكود لمنع باقي المعلمين من الكتابة فوق هذه الخلية شكرا جزيلا وشكر استاذ حمادة على اضافة حالة الدمج جزاكم الله خيرا
-
بدون الحاجة لحماية الورقة بكلمة مرور أو غيره إليك الكود التالي يمنع الوقوف على في الخلية إذا كانت تحتوي على معادلة ( بشرط لا يوجد دمج لهذه الخلية مع خلية أخرى ) Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.HasFormula = True Then ActiveCell.Offset(0, 1).Select End Sub
-
ظهور الفورم فقط دون ظهور صفحة الاكسيس
علي المصري replied to احمد حبيبه's topic in قسم الأكسيس Access
-
احتاج كود لإستدعاء تاريخ اخر طلبية للعميل
علي المصري replied to noneta's topic in قسم الأكسيس Access
جربي الدالة التالية =DLast("date";"المبيعات") حيث يمكنك اضافة معيار بعد اسم الجدول -
في حدث بعد التحديث AfterUpdate لمربع النص الموجود به الرقم 5
-
مطلوب كود لعمل اخفاء لجميع عناصر قاعدة البيانات
علي المصري replied to علي المصري's topic in قسم الأكسيس Access
شكرا استاذنا الفاضل على الاهتمام ولكن اريد كود واحد يقوم بهذه العملية مع حماية عناصر قاعدة البيانات بجانب الاخفاء ومنع التعديل عليها شكرا جزيلا جزاك الله خيرا -
مشكلة في الترقيم التلقائي في النموذج
علي المصري replied to nacer_alger's topic in قسم الأكسيس Access
الملف المرفق تنسيق اكسيس 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 وبالتالي تعلمت حاجة جديدة من استاذنا الفاضل وهي كيفية اختصار امر مثل ذلك لك جزيل الشكر