19-08-14, 08:01 PM
عندي فاتورة مبيعات عندما اريد حذف صنف بعد عملية اتمام البيع يحصل خطأ أرجو تعديل الكود الموجود في
زر حذف صنف في المثال المرفق وجزاكم الله كل خير
زر حذف صنف في المثال المرفق وجزاكم الله كل خير
19-08-14, 08:01 PM
20-08-14, 01:01 AM
معلش مس عامل سيت اب لفيجوال ممكن تحط الكود
20-08-14, 02:07 AM
الكود هو على الشكل التالي
كود :
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 Sub26-08-14, 04:17 PM
ارجو المساعدة لمن يستطيع وشكرا
29-08-14, 02:38 PM
ارجو المساعدة لمن يستطيع وشكرا
02-09-14, 01:31 AM
ارجو المساعدة لمن يستطيع وشكرا
22-09-14, 01:53 PM
ارجو المساعدة لمن يستطيع وشكرا
صار لطلبي اكثر من شهر لم اجد مساعدة الرجاء المساعدة
صار لطلبي اكثر من شهر لم اجد مساعدة الرجاء المساعدة