[alshandodi]

السلام عليكم ورحمة الله وبركاته اخي العزيز لقد جربت بنفس الاسماء ونفس نوع الحقول وتم الحفظ للعلم اخي العزيز ان الرقم لا يقبل اكثر من 10 ارقام ولا اعلم اذا هناك طريقه جعله يقبل الشي الثاني ezn_code يجب ان لا يتكرر ويمكنك استخدام جلب اكبر رقم او تقوم بجعل الحقل ترقيم تلقائي من داخل قاعدة البيانات وتحذفه من مكان كود الحفظ وهذا والله ولي التوفيق واتمنى ان تكون المعلومه وصلت

كود :

    Dim Cmd As New OleDbCommand
       With Cmd
           .Connection = con
           .CommandType = CommandType.Text
           .CommandText = "Insert Into ozenat ( ezn_code,ezn_date,reson_,pro_code_,pro_name_,qty_,user_name)values(@ezn_code,@ezn_date,@reson_,@pro_code_,@pro_name_,@qty_,@user_name)"
           .Parameters.Clear()
           .Parameters.AddWithValue("@ezn_code", ezn_code.Text)
           .Parameters.AddWithValue("@ezn_date", ezn_date.Value)
           .Parameters.AddWithValue("@reson_", reson_.Text)
           .Parameters.AddWithValue("@pro_code_", pro_code_.Text)
           .Parameters.AddWithValue("@pro_name_", pro_name_.text)
           .Parameters.AddWithValue("@qty_", qty_.Text)
           .Parameters.AddWithValue("@user_name", user_name.Text)
       End With
       If con.State = 1 Then con.Close()
       con.Open()
       Cmd.ExecuteNonQuery()
       con.Close()
       MsgBox("تم إضافة السجل بنجاح", MsgBoxStyle.Information, "حفظ")
       Cmd = Nothing