[ahmed_elwerfalli]

بعد جهد ليس بقليل .. 
جللت المشلة ولله الحمد 
و الكود التالي يوضح الحل لعل احد المتصغحين يستفيد منه 

كود :

Function add_id()
       Dim noa As Integer
       Dim billno As New OleDbCommand("SELECT max(std_no) From stdinfo WHERE (((stdinfo.std_year)=" & TextBox3.Text.Trim & "))", cn)

       
       Dim total = Convert.ToInt32(IsDBNull(billno.ExecuteScalar))
       If cn.State = ConnectionState.Closed Then
           cn.Open()
       End If
       If IsDBNull(total.ToString) Then
           noa = 1
       Else
           If IsDBNull(billno.ExecuteScalar) Then
               noa = 1
           Else
               noa = total.ToString(billno.ExecuteScalar) + 1
           End If


       End If
       Return noa
   End Function