تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كود حذف الصنف في الفاتورة لايعمل الرجاء التعديل
#1
عندي فاتورة مبيعات عندما اريد حذف صنف بعد عملية اتمام البيع يحصل خطأ أرجو تعديل الكود الموجود في

زر حذف صنف في المثال المرفق وجزاكم الله كل خير


الملفات المرفقة
.rar   Phatora.rar (الحجم : 121.81 ك ب / التحميلات : 90)
الرد }}}}
تم الشكر بواسطة:
#2
معلش مس عامل سيت اب لفيجوال ممكن تحط الكود
الرد }}}}
تم الشكر بواسطة:
#3
الكود هو على الشكل التالي


كود :
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 Sub
الرد }}}}
تم الشكر بواسطة:
#4
ارجو المساعدة لمن يستطيع وشكرا
الرد }}}}
تم الشكر بواسطة:
#5
ارجو المساعدة لمن يستطيع وشكرا
الرد }}}}
تم الشكر بواسطة:
#6
ارجو المساعدة لمن يستطيع وشكرا
الرد }}}}
تم الشكر بواسطة:
#7
ارجو المساعدة لمن يستطيع وشكرا
صار لطلبي اكثر من شهر لم اجد مساعدة الرجاء المساعدة
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مساعدة تكملة فكرة الفاتورة حافظ حافظ 6 164 04-09-17, 11:04 PM
آخر رد: Amir_alzubidy
  [vb6.0] ارجوا التعديل على المشروع المرفق عبدالقادرعواد 12 356 06-03-17, 01:58 AM
آخر رد: عبدالقادرعواد
  'نرجو التعديل على المرفق gadr 2 277 14-10-16, 03:41 AM
آخر رد: gadr
  كود البحث بين تاريخين لايعمل بشكل صحيح فاضل الحمود 8 3,543 12-08-16, 07:57 PM
آخر رد: Ahmed tantawy
  [كود] ارجو التعديل على كود الترتيب التصاعدي فاضل الحمود 1 301 13-07-16, 02:01 AM
آخر رد: فاضل الحمود
  [مشروع] كود النسخ لايعمل عندما احول المشروع إلى ملف تنفيذي فاضل الحمود 7 396 26-06-16, 12:55 AM
آخر رد: فاضل الحمود
  الرجاء مساعدتى فى المعادله التالية Ashraf Elafify 5 355 21-04-16, 02:38 PM
آخر رد: Ashraf Elafify
  كيف اخصم من قيمة الفاتورة في برنامجي المرفقه 3 بالمائة ؟؟ Microformt 3 914 12-12-15, 04:13 PM
آخر رد: awidan76
  مساعدة في الفاتورة tighrmte 6 689 01-12-15, 01:40 AM
آخر رد: tighrmte
  الرجاء المساعدة في كود تعديل البست فيو فاضل الحمود 8 596 27-09-15, 02:08 PM
آخر رد: فاضل الحمود

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم