[سعود]

آمل من كل قلبي ان اكون وفقت لتسهيل عليك ولو نسبة قليلة من المهمة.

هذا الفورم كامل

كود :

Public Class Form1
   Dim str As String = "provider=microsoft.ace.oledb.12.0;data source='" & Application.StartupPath & "\db.accdb'"
   Dim buttons As Integer '= Panel1.Controls.Count
   Dim rows As New List(Of String)
   Dim sts As New List(Of Boolean)
   Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click

       Using con As New OleDb.OleDbConnection(str)
           Using cm As New OleDb.OleDbCommand("select count(tid) from tb", con)
               If con.State = ConnectionState.Closed Then con.Open()

               If cm.ExecuteScalar >= 1000 Then
                   If con.State = ConnectionState.Open Then con.Close()

                   MsgBox("لا تحتاج لهذا الاجراء لوجود الف سجل للتجربة")
                   Exit Sub
               End If
           End Using
       End Using






       Button11.Enabled = False
       Using con As New OleDb.OleDbConnection(str)
           If con.State = ConnectionState.Closed Then con.Open()

           For r = 1 To 1000
               Using cm As New OleDb.OleDbCommand("insert into tb(korsi) values(@korsi)", con)
                   cm.Parameters.AddWithValue("@korsi", "korsi_" & r)
                   cm.ExecuteNonQuery()
               End Using
           Next
           If con.State = ConnectionState.Open Then con.Close()
       End Using
       Button11.Enabled = True
   End Sub

   Private Function setbc(ByVal st As Boolean) As Color
       If st = True Then
           Return Color.Red
       Else
           Return Color.YellowGreen
       End If
   End Function
   Private Sub btn_first_Click(sender As Object, e As EventArgs) Handles btn_first.Click
       rows.Clear()
       sts.Clear()

       Using con As New OleDb.OleDbConnection(str)
           If con.State = ConnectionState.Closed Then con.Open()
           Using cm As New OleDb.OleDbCommand("select top " & Panel1.Controls.Count & " * from tb", con)
               Using dr As OleDb.OleDbDataReader = cm.ExecuteReader
                   While dr.Read
                       rows.Add(dr(1))
                       sts.Add(dr(2))
                   End While

                   For i = 0 To Panel1.Controls.Count - 1
                       Panel1.Controls(i).Text = rows(i)
                       Panel1.Controls(i).BackColor = setbc(sts(i))
                   Next

               End Using
           End Using
           If con.State = ConnectionState.Open Then con.Close()
       End Using




   End Sub

   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       buttons = Panel1.Controls.Count
   End Sub

   Private Sub Btn_next_Click(sender As Object, e As EventArgs) Handles Btn_next.Click
       ' MsgBox(buttons)


       rows.Clear()
       sts.Clear()
       buttons += Panel1.Controls.Count
       Using con As New OleDb.OleDbConnection(str)
           If con.State = ConnectionState.Closed Then con.Open()
           Using cm As New OleDb.OleDbCommand("select top " & Panel1.Controls.Count & " * from tb where tid not in (select top " & buttons & " tid from tb)", con)
               Using dr As OleDb.OleDbDataReader = cm.ExecuteReader
                   While dr.Read
                       rows.Add(dr(1))
                       sts.Add(dr(2))
                   End While

                   For i = 0 To Panel1.Controls.Count - 1
                       Panel1.Controls(i).Text = rows(i)
                       Panel1.Controls(i).BackColor = setbc(sts(i))
                   Next

               End Using
           End Using
           If con.State = ConnectionState.Open Then con.Close()
       End Using

       ' MsgBox(buttons)

   End Sub
   Private Function replace(ByVal bc As String) As Boolean
       If bc = "Color [YellowGreen]" Then
           Return True
       Else
           Return False
       End If
   End Function
 
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click, Button2.Click, Button3.Click, Button4.Click, Button5.Click, Button6.Click, Button7.Click, Button8.Click, Button9.Click, Button10.Click
       Using con As New OleDb.OleDbConnection(str)
           If con.State = ConnectionState.Closed Then con.Open()
           Using cm As New OleDb.OleDbCommand("update tb set st=@st where korsi=@korsi", con)
               cm.Parameters.AddWithValue("@st", replace(sender.backcolor.ToString))
               cm.Parameters.AddWithValue("@korsi", sender.text)
               cm.ExecuteNonQuery()
           End Using
           If con.State = ConnectionState.Open Then con.Close()
       End Using

   End Sub

   Private Sub Btn_priv_Click(sender As Object, e As EventArgs) Handles Btn_priv.Click
       rows.Clear()
       sts.Clear()

       If buttons <= Panel1.Controls.Count Then btn_first.PerformClick() : Exit Sub


       buttons -= Panel1.Controls.Count
       Using con As New OleDb.OleDbConnection(str)
           If con.State = ConnectionState.Closed Then con.Open()
           Using cm As New OleDb.OleDbCommand("select top " & Panel1.Controls.Count & " * from tb where tid not in (select top " & buttons & " tid from tb)", con)
               Using dr As OleDb.OleDbDataReader = cm.ExecuteReader
                   While dr.Read
                       rows.Add(dr(1))
                       sts.Add(dr(2))
                   End While

                   For i = 0 To Panel1.Controls.Count - 1
                       Panel1.Controls(i).Text = rows(i)
                       Panel1.Controls(i).BackColor = setbc(sts(i))
                   Next

               End Using
           End Using
           If con.State = ConnectionState.Open Then con.Close()
       End Using

   End Sub

   Private Sub Btn_last_Click(sender As Object, e As EventArgs) Handles Btn_last.Click
       rows.Clear()
       sts.Clear()
       buttons += Panel1.Controls.Count
       Using con As New OleDb.OleDbConnection(str)
           If con.State = ConnectionState.Closed Then con.Open()
           Using cm As New OleDb.OleDbCommand("select top " & Panel1.Controls.Count & " * from tb where tid not in (select top " & (1000 - Panel1.Controls.Count) & " tid from tb)", con)
               Using dr As OleDb.OleDbDataReader = cm.ExecuteReader
                   While dr.Read
                       rows.Add(dr(1))
                       sts.Add(dr(2))
                   End While

                   For i = 0 To Panel1.Controls.Count - 1
                       Panel1.Controls(i).Text = rows(i)
                       Panel1.Controls(i).BackColor = setbc(sts(i))
                   Next

               End Using
           End Using
           If con.State = ConnectionState.Open Then con.Close()
       End Using

   End Sub
End Class

فقط تفحص الفكرة وقل رايك.
والسلام عليكم ورحمة الله وبركاته