[عبد العزيز البسكري]

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

إضافة لما تفضّل به أخي الكريم الغالي " SENDBAD100 " ..بارك الله فيه و له و جزاه خير الجزاء

لمسة من لمسات أخي الكريم " حريف برمجة " .. بارك الله فيه .. تفي بنسبة 80 بالمئة بالغرض .. ما يهمك الكود الثاني للتسلسل السنوي فقط بقي أن تضيف الشهر

كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
   If MsgBox("هل تريد إضافة سجل جديد ؟ ", MsgBoxStyle.Exclamation + MsgBoxStyle.MsgBoxRight + MsgBoxStyle.OkCancel, "تنبيه") = MsgBoxResult.Cancel Then Exit Sub
   Using Command As New OleDbCommand("SELECT MAX(IDD) FROM SCHOOL", Con)
       If Con.State = ConnectionState.Closed Then Con.Open()
       If Command.ExecuteScalar Is DBNull.Value Then
           Call SetState("Add")
           InfoBookmark = InfoManager.Position
           InfoManager.AddNew()
           TextBox1.Text = 1
           Call Show_New_Year()
           TextBox3.Focus()
       Else
           Call SetState("Add")
           InfoBookmark = InfoManager.Position
           InfoManager.AddNew()
           TextBox1.Text = Command.ExecuteScalar().ToString() + 1
           Call Show_New_Year()
           TextBox3.Focus()
       End If
       Con.Close()
   End Using
End Sub
Sub Show_New_Year()
   If Date.Now.Month = 1 And Date.Now.Day = 1 Then
       TextBox2.Text = Date.Now.Year & " - " & "0001"
       Exit Sub
   End If
   Dim dp As New OleDbDataAdapter("SELECT TOP 1 NEW_YEAR FROM SCHOOL ORDER BY NEW_YEAR DESC", Con)
   Dim dt As New DataTable
   dp.Fill(dt)
   If dt.Rows.Count = 0 Then
       TextBox2.Text = Date.Now.Year & " - " & "0001"
   Else
       Dim idall As String = dt.Rows(0)(0).ToString
       idall = Replace(idall, " - ", "-")
       Dim strArr() As String = idall.Split("-")
       TextBox2.Text = Date.Now.Year & " - " & Val(strArr(1) + 1).ToString("0000")
   End If
End Sub

تحياتي