[غزة العزة]

(21-05-18, 04:22 AM)حريف برمجة كتب : مرحبا مره أخرى اخي عبدالعزيز ،، ولك بالمثل وأكثر حتى ترضى ،، وشكراً على دعواتك لي

بخصوص الخطأ لن يحدث إلا في الحالة التي تكلمت عنها انا فقط .

بمعنى حالتك لو قمت بادخال الترقيم يدوي عادي لن يحدث خطأ اذا التزمت بتنسيق الترقيم السنوي .

بالنسبة للحل سوف ازودك به عندما اهدأ شوي واكون مهيأ لاستنتاج الحل .

PHP كود :

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
    
    Dim maxId As Object
    Using Command As New OleDbCommand("SELECT MAX(IDD) FROM SCHOOL", Con)
        If Con.State = ConnectionState.Closed Then Con.Open()
        maxId = Command.ExecuteScalar()
        Con.Close()
    End Using
    
    Call SetState("Add")
    InfoBookmark = InfoManager.Position
    InfoManager.AddNew()
    
    If IsDBNull(maxId) Then
        TextBox1.Text = "1"
    Else
        TextBox1.Text = (Convert.ToInt32(maxId) + 1).ToString()
    End If
    
    Call Show_New_Year()
    TextBox3.Focus()
End Sub

Sub Show_New_Year()
    Dim currentYear As Integer = Date.Now.Year
    Dim latestYear As Integer = currentYear

    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 = currentYear & " - " & "0001"
    Else
        Dim idall As String = dt.Rows(0)(0).ToString()
        idall = idall.Replace(" - ", "-")
        Dim strArr() As String = idall.Split("-"c)
        latestYear = Convert.ToInt32(strArr(0))
        
        If latestYear < currentYear Then
            TextBox2.Text = currentYear & " - " & "0001"
        Else
            TextBox2.Text = currentYear & " - " & (Convert.ToInt32(strArr(1)) + 1).ToString("0000")
        End If
    End If
End Sub 


هذا هو التعديل المناسب لمن يهمه الامر