[aftfm]

جزيت خيراً اخي العزيز

هذا الكود يقوم بالتعديل

لكن اريده بشروط معينة

1- عدم التكرار في حالة وجود نفس تاريخ اليوم


بيحث يتم نقل البيانات والتعديل على التاريخ في حالة ما إذا كان التاريخ غير موجود

كود :

    Dim cmdUpdate As New OleDbCommand
            cmdUpdate.CommandText = "UPDATE tblAtten SET DateOfDay= #" & Me.txtDateOfDay.MyText & "#"
            cmdUpdate.CommandType = CommandType.Text
            cmdUpdate.Connection = Con
            cmdUpdate.ExecuteNonQuery()

---

وضعت شرط التحقق من التاريخ

كود :

 Dim cmd As New OleDbCommand(" Select DateOfDay From tblAtten Where DateOfDay = #" & Me.txtDateOfDay.MyText & "#", Con)
        Dim dr As OleDbDataReader = cmd.ExecuteReader
        If dr.HasRows Then

        endif

ولكنه يقوم بتعديل التاريخ في حميع ا لسجلات

---

للتوضيح

اريد كل يوم نقل البيانات مع تاريخ جديد
وفي حالة التاريخ موجود لا يتم نقل البيانات