اهلا وسهلا بك فى بوابة الثانوية العامة ... سجل الان

العودة   بوابة الثانوية العامة المصرية > القرية الذكية > شروحات الحاسب الآلي والهاتف المحمول والدورات التدريبية والشهادات العالمية

شروحات الحاسب الآلي والهاتف المحمول والدورات التدريبية والشهادات العالمية قسم خاص بشروحات الكمبيوتر والمحمول وامتحانات الشهادات العالمية MicroSoft &CompTIA & Cisco & ICDL (ممنوع وضع مواد خاضعة لحقوق النشر)

إضافة رد
 
أدوات الموضوع انواع عرض الموضوع
  #61  
قديم 04-11-2016, 05:59 PM
الصورة الرمزية alfa
alfa alfa غير متواجد حالياً
عضو لامع
 
تاريخ التسجيل: Sep 2008
العمر: 61
المشاركات: 2,600
معدل تقييم المستوى: 19
alfa will become famous soon enough
New كيف تنشئ تقويما روزنامة نتيجة سنوية بالأكسيس

كيف تنشئ تقويما روزنامة نتيجة سنوية بالأكسيس
باستخدام
دالة 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
جارى رفع الفيديو
__________________
قناتى على يوتيوب
رد مع اقتباس
  #62  
قديم 05-11-2016, 09:51 AM
الصورة الرمزية alfa
alfa alfa غير متواجد حالياً
عضو لامع
 
تاريخ التسجيل: Sep 2008
العمر: 61
المشاركات: 2,600
معدل تقييم المستوى: 19
alfa will become famous soon enough
افتراضي

الفيديو
https://www.youtube.com/watch?v=xwpO5KD-8wc
__________________
قناتى على يوتيوب
رد مع اقتباس
  #63  
قديم 19-12-2016, 07:28 PM
صبحي جمعه صبحي جمعه غير متواجد حالياً
عضو جديد
 
تاريخ التسجيل: Aug 2016
المشاركات: 29
معدل تقييم المستوى: 0
صبحي جمعه is on a distinguished road
افتراضي

رائع جزاك الله خيرا
رد مع اقتباس
  #64  
قديم 19-12-2016, 07:30 PM
صبحي جمعه صبحي جمعه غير متواجد حالياً
عضو جديد
 
تاريخ التسجيل: Aug 2016
المشاركات: 29
معدل تقييم المستوى: 0
صبحي جمعه is on a distinguished road
افتراضي

رائع رائع رائع
رد مع اقتباس
  #65  
قديم 19-12-2016, 07:32 PM
صبحي جمعه صبحي جمعه غير متواجد حالياً
عضو جديد
 
تاريخ التسجيل: Aug 2016
المشاركات: 29
معدل تقييم المستوى: 0
صبحي جمعه is on a distinguished road
افتراضي

رائع رائع رائع رائع
رد مع اقتباس
  #66  
قديم 19-12-2016, 07:32 PM
الصورة الرمزية alfa
alfa alfa غير متواجد حالياً
عضو لامع
 
تاريخ التسجيل: Sep 2008
العمر: 61
المشاركات: 2,600
معدل تقييم المستوى: 19
alfa will become famous soon enough
افتراضي

وفقكم الله
__________________
قناتى على يوتيوب
رد مع اقتباس
  #67  
قديم 23-12-2016, 04:35 PM
الصورة الرمزية alfa
alfa alfa غير متواجد حالياً
عضو لامع
 
تاريخ التسجيل: Sep 2008
العمر: 61
المشاركات: 2,600
معدل تقييم المستوى: 19
alfa will become famous soon enough
افتراضي

وفقكم الله
شكرا لك أخى الفاضل
__________________
قناتى على يوتيوب
رد مع اقتباس
  #68  
قديم 22-03-2017, 12:48 PM
اسيل اشرف اسيل اشرف غير متواجد حالياً
موقوف
 
تاريخ التسجيل: Mar 2017
العمر: 35
المشاركات: 26
معدل تقييم المستوى: 0
اسيل اشرف is on a distinguished road
افتراضي

شكرااااااااااااااا لكم علي هذا الموضوع الرائع
رد مع اقتباس
  #69  
قديم 22-03-2017, 03:00 PM
الصورة الرمزية alfa
alfa alfa غير متواجد حالياً
عضو لامع
 
تاريخ التسجيل: Sep 2008
العمر: 61
المشاركات: 2,600
معدل تقييم المستوى: 19
alfa will become famous soon enough
افتراضي

اقتباس:
المشاركة الأصلية كتبت بواسطة اسيل اشرف مشاهدة المشاركة
شكرااااااااااااااا لكم علي هذا الموضوع الرائع
بارك الله فيك
__________________
قناتى على يوتيوب
رد مع اقتباس
  #70  
قديم 03-06-2017, 11:30 AM
مهـا صبرى مهـا صبرى غير متواجد حالياً
عضو مجتهد
 
تاريخ التسجيل: Jun 2017
المشاركات: 100
معدل تقييم المستوى: 8
مهـا صبرى is on a distinguished road
افتراضي

جزاك الله خيرا
رد مع اقتباس
  #71  
قديم 03-06-2017, 03:13 PM
الصورة الرمزية alfa
alfa alfa غير متواجد حالياً
عضو لامع
 
تاريخ التسجيل: Sep 2008
العمر: 61
المشاركات: 2,600
معدل تقييم المستوى: 19
alfa will become famous soon enough
افتراضي

و جزاكم خيرا
بارك الله فيكم
__________________
قناتى على يوتيوب
رد مع اقتباس
  #72  
قديم 27-10-2017, 08:21 PM
بسسام بسسام غير متواجد حالياً
عضو جديد
 
تاريخ التسجيل: Oct 2017
العمر: 26
المشاركات: 27
معدل تقييم المستوى: 0
بسسام is on a distinguished road
افتراضي

شكرا على المعلومات المفيدة.
__________________
جوجل كروم
رد مع اقتباس
  #73  
قديم 08-11-2017, 01:14 AM
الصورة الرمزية alfa
alfa alfa غير متواجد حالياً
عضو لامع
 
تاريخ التسجيل: Sep 2008
العمر: 61
المشاركات: 2,600
معدل تقييم المستوى: 19
alfa will become famous soon enough
افتراضي

و جزاكم خيرا
بارك الله فيكم
__________________
قناتى على يوتيوب
رد مع اقتباس
  #74  
قديم 18-03-2018, 06:20 AM
ilyass ilyass غير متواجد حالياً
موقوف
 
تاريخ التسجيل: Mar 2018
العمر: 36
المشاركات: 23
معدل تقييم المستوى: 0
ilyass is on a distinguished road
افتراضي

شكرا لك وجزاك الله خيرا
رد مع اقتباس
  #75  
قديم 18-03-2018, 10:04 PM
الصورة الرمزية alfa
alfa alfa غير متواجد حالياً
عضو لامع
 
تاريخ التسجيل: Sep 2008
العمر: 61
المشاركات: 2,600
معدل تقييم المستوى: 19
alfa will become famous soon enough
افتراضي

ممنون لك أستاذ إلياس
بالتوفيق
__________________
قناتى على يوتيوب
رد مع اقتباس
إضافة رد

العلامات المرجعية


ضوابط المشاركة
لا تستطيع إضافة مواضيع جديدة
لا تستطيع الرد على المواضيع
لا يمكنك اضافة مرفقات
لا يمكنك تعديل مشاركاتك

BB code متاحة
كود [IMG] متاحة
كود HTML معطلة

الانتقال السريع


جميع الأوقات بتوقيت GMT +2. الساعة الآن 07:39 AM.