[ابو ليلى]

السلام عليكم و رحمة الله و بركاته
الاخ عبد الله هل مشكلتك فقط مع تعديل رقم الشارة.

---

حملت المثال الاخير,بعد الاطلاع
هناك شيئ خطأ او سيناريو غير صحيح في هذا المثال.
اولا الدالة max_Main ليس من معنى لوجودها كونك تعتمد على حقول ترقيم تلقائي.
ثانياً عمليات الادخال الى الجدول tb2 وفق الجمل التالية :

PHP كود :

   Public Sub insert_Main(ByVal ID As Integer, ByVal FName As Integer, ByVal Shara As Integer, ByVal Tel As String, ByVal Cost As String, ByVal DDate As Date)

        Dim cmd As New OleDbCommand("insert into tb2 (ID,FName,Shara,Tel,Cost,DDate) values(@ID,@FName,@Shara,@Tel,@Cost,@DDate)", con)
        cmd.Parameters.Add("@ID", OleDbType.Integer).Value = max_Main() + 1
        cmd.Parameters.Add("@FName", OleDbType.Integer).Value = FName
        cmd.Parameters.Add("@Shara", OleDbType.Integer).Value = Shara
        cmd.Parameters.Add("@Tel", OleDbType.VarChar).Value = Tel
        cmd.Parameters.Add("@Cost", OleDbType.VarChar).Value = Cost
        cmd.Parameters.Add("@DDate", OleDbType.Date).Value = DDate.ToString("yyyy/MM/dd")
        con.Open()
        cmd.ExecuteNonQuery()
        con.Close()
    End Sub



    Private Sub btnAdd_Click(sender As Object, e As EventArgs) Handles btnAdd.Click
        If cmbName.Text = "" Or txtCost.Text = "" Then
            MsgBox("قم بتعبئة الحقول الفارغة", MsgBoxStyle.Information, "تنبيه")
            Exit Sub
        Else
            '-----------------------------------------------------------------

            insert_Main(txtid.Text, ID, ID, txtTel.Text, txtCost.Text, dtDate.Value)
            dgv.DataSource = dt2
                MsgBox("تمت عملية الإضافة بنجاح", MsgBoxStyle.Information, "الإضافة")
                'AllClear()
                FillDGV()
            End If

        'If txtShara.Text = "" Then
        '    MsgBox("قم بكتابة رقم الشارة لإتمام عملية الإضافة", MsgBoxStyle.Information, "تنبيه")
        '    Exit Sub
        'End If

        'If txtCost.Text = "" Then
        '    MsgBox("أدخل المبلغ لإتمام عملية الإضافة", MsgBoxStyle.Information, "تنبيه")
        '    Exit Sub
        'End If


    End Sub 


غير صحيحة بالنظر الى هذه الجملة من الدالة الثانية

PHP كود :

insert_Main(txtid.Text, ID, ID, txtTel.Text, txtCost.Text, dtDate.Value) 


بالمقارنة يتم ادخال ID بدل رقم الشارة ؟؟ لا ادري ما الهدف.
و بالتالي فان اي جملة استعلام  على الجدول tb2 لفحص رقم الشارة لن يجدي نفعاً.
لا توجد ضوابط في الكود السابق ولا عمليات تحقق لا في الحفظ ولا في التعديل.
كما ان دالة التعديل في الكود لا تعالج تعديل رقم الشارة اساساً؟؟
هل المطلوب ان كل شخص يمتلك شارة فريدة لا يمتلكها غيره, سواء عند الادخال او التعديل.
بانتظار التوضيح؟؟