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

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


الملفات المرفقة
.rar   Phatora.rar (الحجم : 121.81 ك ب / التحميلات : 118)
الرد
تم الشكر بواسطة:
#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
ارجو المساعدة لمن يستطيع وشكرا
صار لطلبي اكثر من شهر لم اجد مساعدة الرجاء المساعدة
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مطلوب كود اضافة الضريبة 5 % على اجمالي الفاتورة fahad fbs 3 413 19-06-19, 01:22 AM
آخر رد: محمود بكرى
  زر الحذف لايعمل hannileo 3 259 12-11-18, 01:39 PM
آخر رد: elgokr
  [vb6.0] كيف احفظ ملف اكسل تم التعديل عليه باسم جديد و يتغير في كل مرة تلقائيا king basel 4 402 05-10-18, 12:24 AM
آخر رد: السيد الغالي
  مثال لارسال ايميل ويعمل جيداً - واحتاج الى التعديل فى التنسيق Ashraf Elafify 2 369 15-08-18, 12:23 PM
آخر رد: Ashraf Elafify
  [vb6.0] طلب كود بحث عن مجلد يحتوي على مجموعة صور و التعديل عل اسم الصورة adad 3 377 09-08-18, 06:36 PM
آخر رد: elgokr
  التعديل علا اليست بوكس wolf1120 7 484 08-08-18, 06:58 AM
آخر رد: Ahmed_Mansoor
  [vb6.0] الرجاء المساعده asto 3 326 30-06-18, 10:01 PM
آخر رد: elgokr
  برجاء التعديل على المثال المرفق خاص بعرض الاجمالي في الليست فيو w123eg 1 275 17-02-18, 08:52 AM
آخر رد: Amir_Alzubidy
  التعديل على الاختيار من الليست فيو الحزين اوى 5 416 23-01-18, 04:01 PM
آخر رد: الحزين اوى
  التعديل على هذا الكود جزاكم الله خيرا bidaya 4 348 10-01-18, 03:38 AM
آخر رد: bidaya

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


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