[atef_020]

السلام عليكم ورحمة الله وبركاتة مشرفى واعضاء المنتدى الكرام 

لدى فورم لادخال الاصناف اريد فى زر الحفظ ان يقوم عمليتن حفظ اذا كان الصنف جديد او تعديل اذا كان هذا االصنف موجود مسبقا 

ودا كود الحفظ 

PHP كود :

  Dim strqury As String = "Insert into  t1([code],[name],[cost],[price],[supl],[unit],[Tax],[Ds],[Exper],[DateItem],[DeprtNUM],[priceFtax],[Stock_ORD],[costFtax],[Q_RAITAL],[BOX],[COST_R])values(@code,@name,@cost,@price,@supl,@unit,@Tax,@Ds,@Exper,@DateItem,@DeprtNUM,@Stock_ORD,@priceFtax,@costFtax,@Q_RAITAL,@BOX,@COST_R)"

        cmd = New OleDb.OleDbCommand(strqury, con)
        cmd.Parameters.Add(New OleDbParameter("@code", OleDbType.VarChar)).Value = T4.Text
        cmd.Parameters.Add(New OleDbParameter("@name", OleDbType.VarChar)).Value = T6.Text
        cmd.Parameters.Add(New OleDbParameter("@cost", OleDbType.Currency)).Value = T7.Text
        cmd.Parameters.Add(New OleDbParameter("@price", OleDbType.Currency)).Value = T8.Text
        cmd.Parameters.Add(New OleDbParameter("@supl", OleDbType.VarChar)).Value = TextBox7.Text
        cmd.Parameters.Add(New OleDbParameter("@unit", OleDbType.VarChar)).Value = ComboBox1.Text
        cmd.Parameters.Add(New OleDbParameter("@Tax", OleDbType.Integer)).Value = T16.Text
        cmd.Parameters.Add(New OleDbParameter("@Ds", OleDbType.Currency)).Value = T15.Text
        cmd.Parameters.Add(New OleDbParameter("@Exper", OleDbType.Date)).Value = d2.Value.Date
        cmd.Parameters.Add(New OleDbParameter("@DateItem", OleDbType.Date)).Value = t23.Value.Date
        cmd.Parameters.Add(New OleDbParameter("@DeprtNUM", OleDbType.VarChar)).Value = TextBox15.Text
        cmd.Parameters.Add(New OleDbParameter("@Stock_ORD", OleDbType.Currency)).Value = T12.Text
        cmd.Parameters.Add(New OleDbParameter("@priceFtax", OleDbType.Currency)).Value = T20.Text
        cmd.Parameters.Add(New OleDbParameter("@costFtax", OleDbType.Currency)).Value = t19.Text
        cmd.Parameters.Add(New OleDbParameter("@Q_RAITAL", OleDbType.Currency)).Value = T9.Text
        cmd.Parameters.Add(New OleDbParameter("@BOX", OleDbType.Currency)).Value = T10.Text
        cmd.Parameters.Add(New OleDbParameter("@COST_R", OleDbType.Currency)).Value = T11.Text
        cmd.Parameters.Add(New OleDbParameter("@QTY", OleDbType.Integer)).Value = 0
        con.Open()
        cmd.ExecuteNonQuery()
        MsgBox("تمت العملية بنجاح ", MsgBoxStyle.Information, "الاضافة")
        clear()
        con.Close()
        Exit Sub 


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