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

عضو خبير
  • Content count

    2,488
  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    2

عبد الفتاح كيرة last won the day on July 22 2016

عبد الفتاح كيرة had the most liked content!

السمعه بالموقع

172 Excellent

9 متابعين

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

  • الرتبه
    طالب الأكسيس
  • تاريخ الميلاد 01 نوف, 1963

Profile Information

  • Gender (Ar)
    ذكر
  • Job Title
    teacher
  • Location
    مصر
  • Interests
    excel - Access

Contact Methods

  • MSN
    ahmadkera@hotmail.com
  • Website URL
    http://noormobeen.blogspot.com/
  • ICQ
    0
  • Yahoo
    abokera@yahoo.com
  • Skype
    abdelfattahkeera

اخر الزوار

2,246 زياره للملف الشخصي
  1. وفقك الله أخى و أهلا بك هنا و شكرا لكل من شرف الموضوع
  2. وفقك الله أخى و أهلا بك هنا
  3. شكرا لك أخى أيمن
  4. شكرا أخى أيمن
  5. أشكرك جدا أخى حلبى وفقك الله لكل خير
  6. الله يبارك فيك أستاذ محمد أيمن
  7. كيف تنشئ تقويما روزنامة نتيجة سنوية بالأكسيس باستخدام دالة 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
  8. شكرا لك أستاذ محمد أيمن بارك الله فيك
  9. كيف تجعل قيمة حقل فى النموذج الفرعى تساوى حقلا فى الرئيسى فيديو صامت كود سطر واحد رابط ملف الشرح https://drive.google.com/file/d/0Bw4O7dVd4FBfLXlLQXNRU05sTmM/view?usp=sharing الكود فى حدث بعد التحديث للحقل فى النموذج الرئيسى Me.subf.Form.Controls("smonth") = Me.newm subf النموذج الفرعى smonth الحقل فى النموذج الفرعى newm اسم الحقل فى النموذج الرئيسى الفيديو
  10. بارك الله فيكم على أرض الواقع معرفة عدد الموظفين الذين لديهم بيانات ناقصة =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. المستساغ أن تبحث عن عدد السجلات التى بها حقل فارغ أو أكثر و هى هنا 11 باستخدام المعامل Or
  12. بارك الله فيك
  13. اسم الفيديو فلترة النموذج الفرعى من النموذج الرئيسى الوصف فيديو يشرح طريقة فلترة النموذج الفرعى من النموذج الرئيسى فى أكسيس وطريقة إلغاء هذه الفلترة رابط ملف الشرح 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 شكرا لك