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

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


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [vb6.0] كيف يمكن إخفاء عمود رقم الصنف و إظهاره برمجياً نامل المساعدة في المثال التالي ؟ Microformt 2 387 19-11-23, 10:49 PM
آخر رد: Microformt
  ريد عند النقر على الصف من الجدول المجود على الفورم يظهر رقم الصنف في Text ؟ Microformt 1 327 04-11-23, 10:34 PM
آخر رد: Amir_Alzubidy
Question [vb6.0] نامل المساعدة في المثال المرفق يوجد مشكلة في إضافة رقم الصنف الى قاعدة البيانات لا اع Microformt 1 241 23-10-23, 12:11 AM
آخر رد: Taha Okla
  التعديل على كود استخراج الطلبة العشرة الأوائل مصمم هاوي 11 2,246 14-03-23, 07:07 PM
آخر رد: مصمم هاوي
  (تم التعديل) تعديل كود حذف بيانات طالب مصمم هاوي 3 1,228 12-10-22, 07:36 PM
آخر رد: مصمم هاوي
  طلب التعديل على كود الجمع مصمم هاوي 2 1,153 10-04-22, 12:02 AM
آخر رد: مصمم هاوي
  التعديل على كود جلب بيانات من جدولين مصمم هاوي 8 1,546 24-11-21, 10:51 PM
آخر رد: مصمم هاوي
  [vb6.0] ارجو التعديل على كود الطباعه ragab_most 3 951 14-11-21, 04:45 AM
آخر رد: ragab_most
Question [vb6.0] كيف اجعل المستخدم التعديل على الأرقام في text1 فقط ولا يمكن مسحها ؟ Microformt 5 1,795 30-08-21, 11:54 PM
آخر رد: اسلام الكبابى
  طلب كود استدعاء الصنف في شاشة المبيعات ahmed201 0 857 15-01-21, 08:15 AM
آخر رد: ahmed201

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


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