21-07-15, 01:41 PM
السلام عليكم
وجدة كود ولكن لم يعمل لدي فبحثت طويلا ان انواع الاكواد وسورسات جاهزة لوضيفه الكود هذا ولكن للأسف لم اوفق في الحصول على سورس .
الكود
وضيفة الكود :
انه يقرأ اخر رقم موجود :
مثلا :
ان هناك اخر رقم موجود رقم 10 فالكود يعطيني رقم 11 ليتم المواصلة
للعلم الكود لم يعمل عندي الرجاء ثم الرجاء لمن عنده كود سهل وبسيط الرجاء وضعه هنا ليتم الاستفادة من الاكواد
اما الكود الثاني :
لم استوعبه ابدا ويقال انه يعمل بشكل جيد ولكن لم افهم طريقته ليعمل لدي ارجو التوضيح لهذا الكود او جعله ابسط بكثير من التعقيدات الموجودة
وجدة كود ولكن لم يعمل لدي فبحثت طويلا ان انواع الاكواد وسورسات جاهزة لوضيفه الكود هذا ولكن للأسف لم اوفق في الحصول على سورس .
الكود
كود :
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")
لم استوعبه ابدا ويقال انه يعمل بشكل جيد ولكن لم افهم طريقته ليعمل لدي ارجو التوضيح لهذا الكود او جعله ابسط بكثير من التعقيدات الموجودة