[0theghost0]

السلام عليكم

وجدة كود ولكن لم يعمل لدي فبحثت طويلا ان انواع الاكواد وسورسات جاهزة لوضيفه الكود هذا ولكن للأسف لم اوفق في الحصول على سورس .

الكود

كود :

Using conn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Database1.accdb;Persist Security Info=False;")
           conn.Open()

           TextBox5.Text = Database1DataSet.Rent_Equipment.Compute("max(Ren_NO)", Nothing)
       End Using

وضيفة الكود :
انه يقرأ اخر رقم موجود :
مثلا :
ان هناك اخر رقم موجود رقم 10 فالكود يعطيني رقم 11 ليتم المواصلة 
للعلم الكود لم يعمل عندي الرجاء ثم الرجاء لمن عنده كود سهل وبسيط الرجاء وضعه هنا ليتم الاستفادة من الاكواد

اما الكود الثاني :

كود :

Dim C As Control
       For Each C In Me.Controls
           If TypeOf C Is TextBox Then
               C.Text = ""
           End If
       Next
       TextBox1.Text = obj.SelectMaxValue("tbl_employees", "empid")

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