+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : كود حذف الصنف في الفاتورة لايعمل الرجاء التعديل (/showthread.php?tid=3675)
كود حذف الصنف في الفاتورة لايعمل الرجاء التعديل - فاضل الحمود - 19-08-14
عندي فاتورة مبيعات عندما اريد حذف صنف بعد عملية اتمام البيع يحصل خطأ أرجو تعديل الكود الموجود في
زر حذف صنف في المثال المرفق وجزاكم الله كل خير
RE: كود حذف الصنف في الفاتورة لايعمل الرجاء التعديل - superwoofer - 20-08-14
معلش مس عامل سيت اب لفيجوال ممكن تحط الكود
RE: كود حذف الصنف في الفاتورة لايعمل الرجاء التعديل - فاضل الحمود - 20-08-14
الكود هو على الشكل التالي
كود :
If Text5.Text = "" Then
MsgBox "ÇáÑÌÇÁ ÊÍÏíÏ ÇáÏæÇÁ ÇáãÑÇÏ ÅäÞÇÕå", 16, " "
Exit Sub
End If
Dim mok
mok = MsgBox(" åá ÃäÊ ãÊÃßÏ Ãäß ÊÑíÏ ÅäÞÇÕ ÇáßãíøÉ ¿ ", 64 + vbYesNo, "")
If mok = vbYes Then
Data3.RecordSource = "select * from [sale2] where [ßæÏ ÇáÕäÝ]='" & Text5.Text & "' " '"
Data3.Recordset.Delete
Data3.Refresh
'ÌãÚ ÇáßãíøÉ ãÚ ÇáãÓÊæÏÚ
With frm_store
.Data1.RecordSource = "select * from [pharstore] where [docode]='" & Text5.Text & "' " '"
.Data1.Refresh
.Data1.Recordset.Edit
.Text5.Text = CLng(.Text5.Text) - CLng(Text7.Text)
On Error Resume Next
.Data1.Recordset.MoveNext
.Data1.Recordset.MovePrevious
.DBGrid1.Refresh
.DBGrid1.ReBind
End With
Unload frm_store
'ÇäÞÇÕ ÇáÞÇÆãÉ
On Error Resume Next
Data1.Recordset.Delete
Data1.Refresh
DBGrid1.ReBind
DBGrid1.Refresh
Text1.Text = ""
Text2.Text = ""
Text3.Text = "0"
Text4.Text = ""
Me.refreshall
Exit Sub
End If
End SubRE: كود حذف الصنف في الفاتورة لايعمل الرجاء التعديل - فاضل الحمود - 26-08-14
ارجو المساعدة لمن يستطيع وشكرا
RE: كود حذف الصنف في الفاتورة لايعمل الرجاء التعديل - فاضل الحمود - 29-08-14
ارجو المساعدة لمن يستطيع وشكرا
RE: كود حذف الصنف في الفاتورة لايعمل الرجاء التعديل - فاضل الحمود - 02-09-14
ارجو المساعدة لمن يستطيع وشكرا
RE: كود حذف الصنف في الفاتورة لايعمل الرجاء التعديل - فاضل الحمود - 22-09-14
ارجو المساعدة لمن يستطيع وشكرا
صار لطلبي اكثر من شهر لم اجد مساعدة الرجاء المساعدة