عبد الفتاح كيرة

السلام عليكم شرح فيديو طلب منى فارتأيت وضعه هنا لتعميم الفائدة لمن يريد كم عدد الطلاب الحاصلين على مجموع من 22 إلى 35 فيديو للمبتدئين

السلام عليكم https://www.youtube.com/watch?v=U5AfBSHXzuE&t=16s

السلام عليكم https://www.youtube.com/watch?v=U5AfBSHXzuE&t=16s

وفقك الله أخى و أهلا بك هنا و شكرا لكل من شرف الموضوع

وفقكم الله

وفقك الله أخى و أهلا بك هنا

السلام عليكم حسابى على سناب

شكرا لك أخى أيمن

شكرا أخى أيمن

أشكرك جدا أخى حلبى وفقك الله لكل خير

الله يبارك فيك أستاذ محمد أيمن

كيف تنشئ تقويما روزنامة نتيجة سنوية بالأكسيس باستخدام دالة dateserial دالة mod حلقة التكرار for...next رابط ملف الشرح https://drive.google.com/file/d/0Bw4O7dVd4FBfUkt5VjZCejhvNDg/view?usp=sharing الكود Private Sub تفصيل_Format(Cancel As Integer, FormatCount As Integer) On Error GoTo 1 Dim i As Integer For i = 1 To 31 Me.Controls("j" & i) = Format(DateSerial([Forms]![mf1]![mmm], 1, Me.Controls("d" & i)), "ddd") Next i For i = 1 To 30 Me.Controls("no" & i) = Format(DateSerial([Forms]![mf1]![mmm], 11, Me.Controls("d" & i)), "ddd") Next i For i = 1 To 31 Me.Controls("de" & i) = Format(DateSerial([Forms]![mf1]![mmm], 12, Me.Controls("d" & i)), "ddd") Next i For i = 1 To 31 Me.Controls("oc" & i) = Format(DateSerial([Forms]![mf1]![mmm], 10, Me.Controls("d" & i)), "ddd") Next i For i = 1 To 30 Me.Controls("se" & i) = Format(DateSerial([Forms]![mf1]![mmm], 9, Me.Controls("d" & i)), "ddd") Next i For i = 1 To 29 Me.Controls("f" & i) = Format(DateSerial([Forms]![mf1]![mmm], 2, Me.Controls("d" & i)), "ddd") Next i Dim ss As Integer ss = [Forms]![mf1]![mmm] Mod 4 Me.f29.Visible = ss = 0 For i = 1 To 31 Me.Controls("ma" & i) = Format(DateSerial([Forms]![mf1]![mmm], 3, Me.Controls("d" & i)), "ddd") Next i For i = 1 To 30 Me.Controls("ap" & i) = Format(DateSerial([Forms]![mf1]![mmm], 4, Me.Controls("d" & i)), "ddd") Next i For i = 1 To 31 Me.Controls("may" & i) = Format(DateSerial([Forms]![mf1]![mmm], 5, Me.Controls("d" & i)), "ddd") Next i For i = 1 To 30 Me.Controls("yo" & i) = Format(DateSerial([Forms]![mf1]![mmm], 6, Me.Controls("d" & i)), "ddd") Next i For i = 1 To 31 Me.Controls("yl" & i) = Format(DateSerial([Forms]![mf1]![mmm], 7, Me.Controls("d" & i)), "ddd") Next i For i = 1 To 31 Me.Controls("og" & i) = Format(DateSerial([Forms]![mf1]![mmm], 8, Me.Controls("d" & i)), "ddd") Next i 1: End Subالفيديو https://www.youtube.com/watch?v=xwpO5KD-8wc

شكرا لك أستاذ محمد أيمن بارك الله فيك

كيف تجعل قيمة حقل فى النموذج الفرعى تساوى حقلا فى الرئيسى فيديو صامت كود سطر واحد رابط ملف الشرح https://drive.google.com/file/d/0Bw4O7dVd4FBfLXlLQXNRU05sTmM/view?usp=sharing الكود فى حدث بعد التحديث للحقل فى النموذج الرئيسى Me.subf.Form.Controls("smonth") = Me.newm subf النموذج الفرعى smonth الحقل فى النموذج الفرعى newm اسم الحقل فى النموذج الرئيسى الفيديو

بارك الله فيكم على أرض الواقع معرفة عدد الموظفين الذين لديهم بيانات ناقصة =DCount("[name]";"A07_Data";"[Code] is null or[date_taeen] is null or [Takhasos] is null or [Moahel] is null or [Kader] is null or [Date_Moahel] is null ")

المستساغ أن تبحث عن عدد السجلات التى بها حقل فارغ أو أكثر و هى هنا 11 باستخدام المعامل Or

بارك الله فيك

اسم الفيديو فلترة النموذج الفرعى من النموذج الرئيسى الوصف فيديو يشرح طريقة فلترة النموذج الفرعى من النموذج الرئيسى فى أكسيس وطريقة إلغاء هذه الفلترة رابط ملف الشرح https://drive.google.com/file/d/0Bw4O7dVd4FBfZHQzRDk0NUJXTTQ/view?usp=sharing كود الفلترة Private Sub mym_Change() Me.subf.SetFocus Me.subf.Form.Filter = "[smonth]=" & Me.mym Me.subf.Form.FilterOn = True End Sub كود إلغاء الفلترة Private Sub أمر15_Click() Me.subf.Form.FilterOn = False End Sub رابط الفيديو https://www.youtube.com/watch?v=AOeQTh1r7xM&feature=youtu.be شكرا لك

مشكور اخي الكريم على ردك

جزاك الله خيرا أبا خليل معلومة جميلة أضاءت لنا الطريق

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

أخى أبا جودى لا يمكن وضع توتال أو جمع لحقل فى التقرير فى رأس الصفحة أو تذييل الصفحة يمكن ذلك فى تذييل التقرير فقط و الله أعلم راجع هذا http://arabteam2000-forum.com/index.php?/topic/111879-جمع-كل-صفحة-من-صفحات-التقرير-على-حدة/

السلام عليكم هنا لا نستخدم دالة sum لجمع حقل فى التقرير مع وضعها برأس أو تذييل الصفحة نستخدم dsum لجمع الحقل فى الاستعلام المعتمد عليه التقرير ضع فى إجمالى الجافة ما يلى =DSum("jafah_c";"qry1") أكمل الباقى على نفس الطريقة

طباعة التقرير مباشرة من نموذج • طباعة التقرير من داخل التقرير رابط ملف الشرح https://drive.google.com/file/d/0Bw4O7dVd4FBfd0R5bERleUdBVzA/view?usp=sharing اسم الفيديو طباعة التقرير من الداخل الوصف فيديو يشرح • طباعة التقرير مباشرة من نموذج طباعة التقرير من داخل التقرير رابط ملف الشرح https://drive.google.com/file/d/0Bw4O7dVd4FBfd0R5bERleUdBVzA/view?usp=sharing و كيفية إخفاء زر الأمر عند الطباعة رابط برنامج Pdfcreator http://www.pdfforge.org/pdfcreator/download الفيديو