[adel27]

حــدث اللود لصفحة نموذج تعببئه البيانات

طبعاً في هذا الفورم يوجد تكست بكس تستقبل قيم من المستخدم الأسم - رقم الهويه -وإلى أخــره من ضمنها TextBox1.Text  وهذا التكست عبـاره عن أسم الملف  له شرط وشرطه موجود بالأسفل مفعل فيه خاصيه أنيبل = ترو   
هنـا كود تحميل الجدول داخل الدتا قريد فـيو

+
 Dim max As Integer
 For i As Integer = 0 To ds.Tables("All_Data").Rows.Count - 1

                If ds.Tables("All_Data").Rows(i).Item("ID") > max Then
                    max = ds.Tables("All_Data").Rows(i).Item("ID")
                End If
            Next
           ( TextBox1.Text = CStr(max + 1

هذا الكود يضع لي في  TEXTBOX1.TEXT   رقم ID اللي راح يتسجل فيه هذا الشخص 

الكود شغال معاي تمام ولكن عندي مشـكله وهي أنه سيستخدم البرنامج أكثر من شخص فعند فتح النافذه لمستخدمين في نفس الوقت سيظهر لهم في التسكت بكس نفس الرقم

أنـا أبيه إذا فتح مستخدم نموذج تعبئة البيانات يعطيه رقم بس ما يكرره عن مستخدم أخر