[Taha Okla]

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


جرب :

كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
   If Conne.State <> ConnectionState.Open Then Conne.Open()
   TextBox1.Text = 1500 & "- " & (Val(NoInvo("Id", "Table1", Conne)) + 1)
   If Conne.State <> ConnectionState.Closed Then Conne.Close()
End Sub

Function NoInvo(pField As String, pTable As String, pConn As OleDbConnection)
   Dim cmd As New OleDbCommand("SELECT max(" + pField + ") as theinvono FROM [" & pTable & "] ", pConn)
   If cmd.ExecuteScalar Is DBNull.Value Then Return 0
   Return cmd.ExecuteScalar
End Function

---

أو جرب هذا :

كود :

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       If Conne.State <> ConnectionState.Open Then Conne.Open()
       TextBox1.Text = 1500 & "- " & (Val(NoInvo("Id", "Table1", Conne)) + 1)
       If Conne.State <> ConnectionState.Closed Then Conne.Close()
   End Sub

   Function NoInvo(pField As String, pTable As String, pConn As OleDbConnection)
       Dim cmd As New OleDbCommand("SELECT IIF(MAX(" & pField & ") IS NULL, 0, MAX(" & pField & ")) FROM [" & pTable & "] ", pConn)
       Return cmd.ExecuteScalar
   End Function