الفيديو
https://youtu.be/_e10IKSpaAU

الفيديو
https://www.youtube.com/watch?v=Htjd...ature=youtu.be

طباعة التقرير مباشرة من نموذج
• طباعة التقرير من داخل التقرير
رابط ملف الشرح
https://drive.google.com/file/d/0Bw4...ew?usp=sharing

اسم الفيديو
طباعة التقرير من الداخل
الوصف
فيديو يشرح
• طباعة التقرير مباشرة من نموذج
طباعة التقرير من داخل التقرير
رابط ملف الشرح
https://drive.google.com/file/d/0Bw4...ew?usp=sharing

و كيفية إخفاء زر الأمر عند الطباعة
رابط برنامج
Pdfcreator
http://www.pdfforge.org/pdfcreator/download
الفيديو
https://www.youtube.com/watch?v=evDg...ature=youtu.be

جزاك الله خيراً

اسم الفيديو
فلترة النموذج الفرعى من النموذج الرئيسى
الوصف
فيديو يشرح طريقة فلترة النموذج الفرعى من النموذج الرئيسى
فى أكسيس
وطريقة إلغاء هذه الفلترة
رابط ملف الشرح
https://drive.google.com/file/d/0Bw4...ew?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=AOeQ...ature=youtu.be

كيف تنشئ تقويما روزنامة نتيجة سنوية بالأكسيس
 

كيف تنشئ تقويما روزنامة نتيجة سنوية بالأكسيس
باستخدام
دالة date******
دالة mod
حلقة التكرار for...next
رابط ملف الشرح
https://drive.google.com/file/d/0Bw4...ew?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(Date******([Forms]![mf1]![mmm], 1, Me.Controls("d" & i)), "ddd")

Next i

For i = 1 To 30
Me.Controls("no" & i) = Format(Date******([Forms]![mf1]![mmm], 11, Me.Controls("d" & i)), "ddd")
Next i


For i = 1 To 31
Me.Controls("de" & i) = Format(Date******([Forms]![mf1]![mmm], 12, Me.Controls("d" & i)), "ddd")
Next i

For i = 1 To 31
Me.Controls("oc" & i) = Format(Date******([Forms]![mf1]![mmm], 10, Me.Controls("d" & i)), "ddd")
Next i

For i = 1 To 30
Me.Controls("se" & i) = Format(Date******([Forms]![mf1]![mmm], 9, Me.Controls("d" & i)), "ddd")
Next i


For i = 1 To 29
Me.Controls("f" & i) = Format(Date******([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(Date******([Forms]![mf1]![mmm], 3, Me.Controls("d" & i)), "ddd")
Next i
For i = 1 To 30
Me.Controls("ap" & i) = Format(Date******([Forms]![mf1]![mmm], 4, Me.Controls("d" & i)), "ddd")
Next i

For i = 1 To 31
Me.Controls("may" & i) = Format(Date******([Forms]![mf1]![mmm], 5, Me.Controls("d" & i)), "ddd")
Next i

For i = 1 To 30
Me.Controls("yo" & i) = Format(Date******([Forms]![mf1]![mmm], 6, Me.Controls("d" & i)), "ddd")
Next i

For i = 1 To 31
Me.Controls("yl" & i) = Format(Date******([Forms]![mf1]![mmm], 7, Me.Controls("d" & i)), "ddd")
Next i

For i = 1 To 31
Me.Controls("og" & i) = Format(Date******([Forms]![mf1]![mmm], 8, Me.Controls("d" & i)), "ddd")
Next i
1:
End Sub
جارى رفع الفيديو

الفيديو
https://www.youtube.com/watch?v=xwpO5KD-8wc

رائع جزاك الله خيرا

رائع رائع رائع

رائع رائع رائع رائع

وفقكم الله

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

شكرااااااااااااااا لكم علي هذا الموضوع الرائع

بارك الله فيك

جزاك الله خيرا

و جزاكم خيرا
بارك الله فيكم

شكرا على المعلومات المفيدة.

و جزاكم خيرا
بارك الله فيكم

شكرا لك وجزاك الله خيرا

ممنون لك أستاذ إلياس
بالتوفيق

شكراااااااااااااااااااا

تشرفنا أستاذ فارس

رائع جدا جدا جدا جدا

شكرا لمرورك
جدا جدا جدا

thanksssssssssssssssssssssssssssss

جزاكم الله خيرااا

شكرا لحضراتكم

رائع جدا شكرا لك اخي

جزاك الله خيرا

جزاك الله خيرا

جميل جدا شكرا لك