[bajo]

سلام عليكم
والله يا شباب جزاكم الله كل خير 
الحمد لله تم الاستفاده من الموضوع عن طريق فواتير نقدي و فواتير اجل

 Private Sub autounmber()

        If ComboBox5.Text = "نقدي" Then

            Dim MaxNum1 As New OleDbCommand("select max(Sereyal) from Patient where payid= " & 1 & "", con)

            con.Open()

            If MaxNum1.ExecuteScalar Is DBNull.Value Then

                TextBox10.Text = "C/" & 140001

            Else

                'TextBox10.Text = "F/" & Val(Val(cmd.ExecuteScalar) + 1)

                Dim result As String = MaxNum1.ExecuteScalar

                TextBox10.Text = result.Substring(0, 2) & (Val(result.Substring(2)) + 1).ToString

            End If

            MaxNum1.Dispose()

            con.Close()

        Else

            If ComboBox5.Text = "أجل" Then

                Dim MaxNum1 As New OleDbCommand("select max(Sereyal) from Patient where payid= " & 2 & "", con)

                con.Open()

                If MaxNum1.ExecuteScalar Is DBNull.Value Then

                    TextBox10.Text = "D/" & 140001

                Else

                    'TextBox10.Text = "F/" & Val(Val(cmd.ExecuteScalar) + 1)

                    Dim result As String = MaxNum1.ExecuteScalar

                    TextBox10.Text = result.Substring(0, 2) & (Val(result.Substring(2)) + 1).ToString

                End If

                MaxNum1.Dispose()

                con.Close()

            End If

        End If