الاستفادة من خاصية القيمة الافتراضية للحقول

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

السلام عليكم

هذا هو الفديو الثانى فى شروح أكسيس

و لا أدعى أن فى هذه الفديوهات أشياء جديدة على معظمكم

لكنها شروح أرجو أن ينتفع بها عدد غير قليل من زوار المنتدى

و كل إنسان له بداية ضعيفة

ثم بالبحث و المران اكتسب المعلومات و الخبرة

و قد كنا و نحن فى البدايات نبحث عن مثل تلك الشروح

أرفق لكم ملف الأكسيس قيد الشرح

و نتعرض للموضوعات التالية فى هذا الفديو

خاصية القيمة الافتراضية و فوائدها

استخدام الخاصية فى إدراج معرف الموظف تلقائيا

استخدام خاصية وقف علامات الجدولة

دالة iff

dcount

dmax

و أشكر الأخ المراقب أبا خليل لتشجيعه

وفقكم الله

 

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

أرجو ضم هذا الفديو لقسم شروح الفديو المثبتة

و شكرا للأستاذ أبى خليل

[صالح حمادي]

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

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

شكرا لك

أستاذ صالح

كل عام أنتم بخير

[ابوخليل]

3 ساعات مضت, عبد الفتاح كيرة said:

أرجو ضم هذا الفديو لقسم شروح الفديو المثبتة

و شكرا للأستاذ أبى خليل

تم

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

شكرا

إن شاء الله

الفديو الثالث فى الطريق

يسر الله الأمور

[صالح حمادي]

آميييين يا رب العالمين

إن شاء الله الله يكتبلك بكل حرف حسنة و الله يضاعف لمن يشاء

 

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

وفقكم الله

 

[ابو جودي]

في 6/24/2016 at 20:38, عبد الفتاح كيرة said:

السلام عليكم

هذا هو الفديو الثانى فى شروح أكسيس

و لا أدعى أن فى هذه الفديوهات أشياء جديدة على معظمكم

لكنها شروح أرجو أن ينتفع بها عدد غير قليل من زوار المنتدى

و كل إنسان له بداية ضعيفة

ثم بالبحث و المران اكتسب المعلومات و الخبرة

و قد كنا و نحن فى البدايات نبحث عن مثل تلك الشروح

أرفق لكم ملف الأكسيس قيد الشرح

و نتعرض للموضوعات التالية فى هذا الفديو

خاصية القيمة الافتراضية و فوائدها

استخدام الخاصية فى إدراج معرف الموظف تلقائيا

استخدام خاصية وقف علامات الجدولة

دالة iff

dcount

dmax

و أشكر الأخ المراقب أبا خليل لتشجيعه

وفقكم الله

 

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

شرح رائع جدا جدا

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

2 ساعات مضت, ابا جودى said:

شرح رائع جدا جدا

شكرا أخى @ابا جودى  لثنائك الطيب

وفقك الله

[ابو الآء]

بارك الله فيك 

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

شكرا جزيلا لك @أبو آلاء

وفقك الله

[أبو عبدالله الحلوانى]

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

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

أشكرا أخى @أبو عبدالله الحلوانى

بارك الله فيك

[abo3aesha_2014]

في 6/24/2016 at 19:38, عبد الفتاح كيرة said:

السلام عليكم

هذا هو الفديو الثانى فى شروح أكسيس

و لا أدعى أن فى هذه الفديوهات أشياء جديدة على معظمكم

لكنها شروح أرجو أن ينتفع بها عدد غير قليل من زوار المنتدى

و كل إنسان له بداية ضعيفة

ثم بالبحث و المران اكتسب المعلومات و الخبرة

و قد كنا و نحن فى البدايات نبحث عن مثل تلك الشروح

أرفق لكم ملف الأكسيس قيد الشرح

و نتعرض للموضوعات التالية فى هذا الفديو

خاصية القيمة الافتراضية و فوائدها

استخدام الخاصية فى إدراج معرف الموظف تلقائيا

استخدام خاصية وقف علامات الجدولة

دالة iff

dcount

dmax

و أشكر الأخ المراقب أبا خليل لتشجيعه

وفقكم الله

 

شرح وافي وأسلوب تعليمي جميل ، أسأل الله أن يبارك فيك وأن يجعله في ميزان حسناتك

سيدي استخدمت طريقة ترقينك هذه في برنامج خاص بشئون موظفين ولي استفساران

الأول : 

هل من طريقة تجعل الرقم المحذوف خاليا ؟؟ بمعني لو عندى 5 موظفين ولسبب ما قمت بحذف بيانات الموظف رقم 3 ثم أردت تسجيل بيانات موظف جديد فأريد لو ضغضت زر جديد يعطيني ترقيم 3 (مكان المحذوف) وليس 6

الثاني :

هل من طريقة تجعلني إذا كتبت رقم الموظف في مربع النص الخاص برقم الموظف وضغطت زر إنتر أنتقل مباشرة لسجل بياناته ؟؟

ولك مني جزيل الشكر

ترقيم بيانات الموظفين.rar

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

أهلا بك أخى

مع أن طلبك ينبغى أن يكون فى موضوع منفصل عما نحن فيه

طلبك الأول

المحافظة على الترتيب داخل جدول

تفضل المرفق

افتح نموذج 1

مرر للسجل الثانى أو الثالث

اضغط زر حذف نموذج ووافق على الحذف

اضغط زر إضافة نموذج

لاحظ النتيجة

المحافظة على الترتيب.rar

وفقك الله

وهذا هو الكود المستخدم يوضع فى حدث " فى الحالى" للنموذج

Option Compare Database

Private Sub Form_Current()
If Me.NewRecord Then
Dim MySQL As String, MyDB As DAO.Database, rst1 As DAO.Recordset
Dim rst2 As DAO.Recordset
 
MySQL = "Select [DashNum] From tblTest Order By DashNum;"
 
Set MyDB = CurrentDb()
Set rst1 = MyDB.OpenRecordset(MySQL, dbOpenSnapshot)
Set rst2 = rst1.Clone
 
rst1.MoveFirst: rst2.Move 1     'move to the 2nd Record in rst2
 
Do While Not rst2.EOF
  'If the difference between 2 consecutive Dash Numbers is not 1, since
  'they are ordered, this would indicate a gap in sequence
  If rst2![dashnum] <> rst1![dashnum] + 1 Then
    Me.dashnum = rst1![dashnum] + 1
      rst2.Close
      rst1.Close
      Set rst2 = Nothing
      Set rst1 = Nothing
        Exit Sub
  End If
  rst1.MoveNext
  rst2.MoveNext
Loop
 
rst2.Close
rst1.Close
Set rst2 = Nothing
Set rst1 = Nothing

End If
End Sub