[ابراهيم ايبو]

السلام عليكم ورحمة الله وبركاته
اخي الكريم هذا كود النقل واضافة التاريخ وان كانت السجلات قد تم نقلها اليوم سوف لن يتم نقلها
اتمنى ان اكون قد فهمت منك ماتريد وان يلبي هذا الكود مرادك
1- قم بحذف السجلات من الحدول ثم شغل الكود ولاحط اضافة تاريخ اليوم
2 - اعد النقر على كود النقل سوف يخبرك ان بيانات هذا اليوم قد تم نقلها
3 - اذهب الى قاعدة البيانات الجدول الثاني وغير التاريخ الى تاريخ اقدم ثم شعل البرنامج وقم بنقل السجلات ستلاحط انه تم النقل واضافة تاريخ اليوم
بقي مسألة التاريخ الهجري يمكنك تعديله او حلها حسب ماترى
دمت بخير

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Me.ArabicDate1.MyText = Class1.GetTodayHijriDate
       Me.lblDays.Text = Class1.GetTodayHijriDay
       '--------------------------------------'
       ' تعاريف
       Dim strSQL As String = ""
       Dim Command As New OleDbCommand()
       Dim cmd1, cmd2, cmd3, cmdUpdate As New OleDbCommand()
       ' فتح الاتصال
       If Con.State = ConnectionState.Open Then Con.Close()
       Con.Open()
       ' الاستعلام عن السجلات التي تحتوي تاريخ اليوم
       cmd1 = New OleDbCommand(" Select DateOfDay From tbl2 WHERE DateOfDay=#" & Me.ArabicDate1.MyText & "#", Con)
       Dim dr1 As OleDbDataReader = cmd1.ExecuteReader
       If dr1.HasRows Then
           MsgBox("بيانات هذا اليوم تم نقلها سابقا")
           Exit Sub
       Else
           ' اذا لم يكن هناك سجلات تحمل تاريخ اليوم سيتم اضافتها
           '-----نقل البيانات-------'
           strSQL = " INSERT INTO tbl2 (ManagEmp, UserName, EmpGrade)SELECT ManagEmp, UserName, EmpGrade FROM tbl1 "
           cmd2 = New OleDbCommand(strSQL, Con)
           cmd2.ExecuteNonQuery()
           '-----الاستعلام عن حقل التاريخ الفارغ ثم التعديل-------'

           cmd3 = New OleDbCommand(" Select DateOfDay From tbl2 WHERE ( DateOfDay IS NULL)", Con)
           Dim dr3 As OleDbDataReader = cmd3.ExecuteReader
           If dr3.HasRows Then
               cmdUpdate.CommandText = "UPDATE tbl2 SET DateOfDay= #" & Me.ArabicDate1.MyText & "# WHERE (DateOfDay IS NULL)"
               cmdUpdate.CommandType = CommandType.Text
               cmdUpdate.Connection = Con
               cmdUpdate.ExecuteNonQuery()

           End If
       End If
       ' اغلاق الاتصال
       Con.Close()
       Load_Data()
       Me.DataGridView1.DataSource = DataDT

   End Sub