عمل قاعدة بيانات لدورات الموظفين

[Ahmed kashoob]

السلام عليكم ورحمة الله وبركاته... انا عندي مشروع عمل سجل للدورات للموظفين في الشركة وعاوز معادلة تعطيني رسالة عند إدخال اسم موظف في دورتين تتضارب معا في التاريخ..ويكون جزاكم الله خير الجزاء .. مع العلم اني أعمل على نسخة ٢٠١٦ والشباب في منتدى الأكسس جزاهم الله خير الجزاء عملوا مجهود كبير في إنشاء معادلة تعمل على الأسس المطلوبة ولكن للأسف كانت تعمل على اوفيس ٢٠١٠ فقط وليس ٢٠١٦.. يرجى الافادة اذا امكن ...سجل دورات الموظفين-2.accdb

مرفق لكم الملف المطلوب 

[محمد أبوعبدالله]

وعليكم السلام ورحمة الله وبركاته

المثال يعمل على اوفيس 365 بدون مشاكل

عموماً اضف الكود التالي في بداية الكود

Dim db As Object
Set db = CurrentDb

ثم استبدل

Set Rs = CurrentDb.OpenRecordset("SELECT * FROM tblResult WHERE (tblResult.EmpID)= " & [Forms]![frmResult]![EmpID])

بالنالي

Set Rs = db.OpenRecordset("SELECT * FROM tblResult WHERE (tblResult.EmpID)= " & [Forms]![frmResult]![EmpID])

الكود كاملاً

Private Sub btnTest_Click()
DoCmd.RunCommand acCmdSaveRecord

Dim db As Object
Set db = CurrentDb

Dim i As Long, k As Long, m As Long
Dim Rs As DAO.Recordset

DoCmd.SetWarnings False
m = 0
Set Rs = db.OpenRecordset("SELECT * FROM tblResult WHERE (tblResult.EmpID)= " & [Forms]![frmResult]![EmpID])

  Rs.MoveLast
  k = Rs.RecordCount
  Rs.MoveFirst
  For i = 1 To k
    If Not (Rs!DawraEnd < Me.DawraStart Or Rs!DawraStart > Me.DawraEnd) Then
      m = m + 1
    End If
    Rs.MoveNext
  Next i
  If m > 1 Then
    MsgBox "التاريخ متداخل مع تاريخ دورة اخرى"
  Else
    MsgBox "التاريخ سليم"
  End If

Set Rs = Nothing

DoCmd.SetWarnings True
End Sub

اذا لم يتم حل المشكلة برجاء اظهار الخطأ وتحديد اين المشكلة بالضبط

تحياتي