علي المصري
-
Posts
1,498 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
5
Community Answers
-
علي المصري's post in اظهار فور مع تشغيل كود في نفس الوقت was marked as the answer
تم تعديل الكود الى
frmMyUserForm.Show vbModeless DoEvents --- --- --- --- Unload frmMyUserForm واصبح كل شي تمام
الحمد لله
-
علي المصري's post in كود لا يعمل مع Office 365 App for interprise was marked as the answer
تم التوصل للحل
عن طريق اضافة
.Net Framework 3.5
اذا امكن كود لا يعتمد على هذه
-
علي المصري's post in طريقة ترتيب الطلاب دون القفز على المرتبة الثانية was marked as the answer
جرب المعادلة التالية
=SUM(IF(F6<$F$6:$F$22,1/COUNTIF($F$6:$F$22,$F$6:$F$22)))+1 بعد كتابتها اضغط على shift +ctrl +Enter
Students Rank.xlsx
-
علي المصري's post in البحث عن البيانات بالرقم القومى was marked as the answer
حمل المرفق
البحث بالرقم القومى.xlsx
-
علي المصري's post in ارجو المساعدة فى كود البحث يعطى خطا was marked as the answer
جرب هذا التعديل
fc = Application.WorksheetFunction.CountIfs(Sheet13.Range("C2:C5000"), invs, Sheet13.Range("B2:B5000"), invn)
-
علي المصري's post in كود طباعة وحذف صفوف was marked as the answer
بعد اذن استاذنا الفاضل الاستاذ سليم
اجريت التعديل التالي على الكود الأول
Sub My_Print_Area() With Sheets("ورقة1") .Rows.Hidden = False .PageSetup.PrintArea = _ .Range("A" & Cells(1, 5) + 1 & ":B" & Cells(1, 7) + 1).Address .PrintPreview End With End Sub or
Sub My_Print_Area() With Sheets("ورقة1") .Rows.Hidden = False .PageSetup.PrintArea = _ .Range("A" & Cells(1, 5) + 1 & ":B" & Cells(1, 7) + 1).Address .PrintOut End With End Sub
-
علي المصري's post in انشاء رسالة تنبيه وجوب تحديد سجل was marked as the answer
السلام عليكم ورحمة الله وبركاته
بعد إذن الاستاذ الفاضل : عبدالرحمن هاشم
تفضل المرفق التالي سوف تجد ما طلبت ان شاء الله
رسالة وجوب تحديد السجل.rar
-
علي المصري's post in سؤال: طباعه تقرير له باراميتر مع تغير الباراميتر اوتماتيكيا was marked as the answer
استخدم نموذج به مربعين نص
من إلى
في الاستعلام اكتب المعيار التالي
between forms!AAA!from and forms!AAA!to
حيث AAA هو اسم النموذج الذي يوجد به مربع النص " من " from ومربع النص " إلى " to
ثم اعمل تجميع في التقرير حسب أمر الشراء أو رقم الفاتورة حسب المطلوب الذي تريده
-
علي المصري's post in عند اختيار كود الصنف اريد أن تظهر بياناته! was marked as the answer
تفضل اخي
مبيعات.rar
-
علي المصري's post in اريد الحل نموذج فرعي و بداخله فرعي اخر was marked as the answer
في النموذج الاساسي اعمل زر امر واكتب الكود التالي في حدث عند الضغط
DoCmd.Quit -
علي المصري's post in اضافة سجلات فارغة بعد الخروج من النموذج was marked as the answer
الحمد لله تم معرفة مكان الخطأ في الكود وتم اصلاحه
شكرا جزيلا
-
علي المصري's post in اضافة كومبوكس ثاني لفترة النموذج الفرعي ؟ was marked as the answer
تفضل
db3_1.rar
-
علي المصري's post in كشوف المناداة was marked as the answer
تفضل لعل المرفق يكون هو المطلوب
كشوف المناداة.rar
-
علي المصري's post in سؤال:: هل يمكن عدم حفظ البيانات الا بتوفر شرط ولكن عن طريق كود was marked as the answer
استخدم الجملة التالية
DoCmd.SetWarnings False في البداية للكود
ثم في نهاية الكود
DoCmd.SetWarnings True -
علي المصري's post in المساعده فى عمل احصاء اعلى قائمه الفصل was marked as the answer
تفضل استاذ أبو آلاء
لعله يكون المطلوب
2السجل.rar
-
علي المصري's post in المساعدة في دمج المراسلات في (بطاقات التهنئة) was marked as the answer
إذا اردت ان تقوم بعمل اكثر من بطاقة في الصفحة
فعليك تقسيم الطلاب على حسب عدد البطاقات في الصفحة
فمثلا إذا اردنا عمل 3 بطاقات
فيكون تقسيم كالتالي
الاسم 1
الصف1
الدرجة1
الاسم 2
الصف2
الدرجة2
الاسم 3
الصف3
الدرجة3
كما هو موضح بالمرفق
أو يمكنك استخدام اكسيل أو أكسيس
ملف.rar
-
علي المصري's post in إستخدام نموذج واحد لإدخال البيانات لأكثر من جدول was marked as the answer
نظرا لعدم وجود روابط بين الجداول
تم عمل نموذج لكل جدول ثم دمج النماذج كلها في نموذج واحد اسمه frmData
حيث عن طريق القائمة المنسدلة يمكنك اختيار النموذج الذي تريد العمل عليه
Data1.rar
-
علي المصري's post in اظهار اسم الموظف مع بياناته في التقرير was marked as the answer
المرفق التالي
Data3_1.rar
-
علي المصري's post in جمع عدد الحقول التي تحتوي على قيمة في الصف was marked as the answer
الاستاذ : khaled_ksa
تفضل المرفق التالي لعله يكون المطلوب
count.rar
-
علي المصري's post in هل يمكن اخفاء اعمدة من التقرير عند الطباعة اذا كانت تحتوى على قيم معينة was marked as the answer
الاستاذ الفاضل : أبو عبدالله الحلوانى
أولا : كل عام انتم بخير
إن شاء الله نعم يمكن ذلك
وإليك مثال
Hide column in report with condition.rar
-
علي المصري's post in أريد المساعدة في تحديث النموذج الفرعي was marked as the answer
جزاك الله خيرا يا أستاذ أبو عبير 2005
على الكلام الجميل والدعاء
ان شاء لله لك مثله من الجزاء والثواب
تم حذف الماكرو والاستعاضه عنه بالسطر التالي في الكود
DoCmd.GoToRecord acForm, "frmKhetab", acNewRec
333_4.rar
-
علي المصري's post in كيف يمكن اختصار الكود التالي was marked as the answer
شكرا استاذ ابو خليل لمتابعتك للموضوع ولنصائك المفيدة دائما
بعد محاولا الاساتذة الذين شاركوا في الموضوع
وبالتجريب
توصلت إلى التالي منذ قليل
الكود يمكن اختصارة كالتالي :
Dim i As Integer For i = 1 To 68 Me.Controls("C" & i) = [Forms]![TStu2SBehTeam].Controls("C" & i) Next i فلله الحمد من قبل ومن بعد
جزاكم الله خير على سعة صدوركم ومحاولاتكم الدؤوبة لمساعدة الغير
تم تجربته على اكسس 2013
-
علي المصري's post in فلترة تراكمية لنموذج فرعي على ثلاث كمبوبوكس في الرئيسي was marked as the answer
تفضل اخي الكريم
لعله يكون المطلوب
bbb.rar
-
علي المصري's post in كيفية جمع حقلين للحصول علي المجموع الكلي was marked as the answer
الافضل ان يكون المجموع في التقرير
جرب المرفق
المشتريات.rar
-
علي المصري's post in فتح النموذج حسب احتيار البحث was marked as the answer
تفضل اخي الكريم
اتمنى ان يكون فيه طلبك
بحث عن عميل.rar