برنامج تخزين..........ولكن

الذي قدرت أن أتوصل إليه أنني لو وضعت عملية(حذف) في الفاتورة, سوف تحل المشكلة.......... فهل من يساعدني على الكود؟ :rolleyes:

راجع موضوع الفاتوره الذكيه للاخ احمد بروف

اقتباس

1-

عندما أقوم بعملية المسح في أي فورم, يرد البرنامج بالرفض

تم المسح ولم يظهر رسالة رفض

اقتباس

Call MDIForm_Unload

Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Dim strmsg As String
strmsg = "Are you Sure, You want's to Close Sales Invoice System"
If MsgBox(strmsg, vbQuestion + vbYesNo + vbDefaultButton2) = vbYes Then
Call MDIForm_Unload(1)
Else: Cancel = True
End If
End Sub

في هذا الكود في حالة الضغط علي علامة X

سيتم سؤالك عن الخروج ام لا فاذا كان نعم سيتم نداء هذا الـ Sub

MDIForm_Unload

الذي يحوي هذه الوامر

Private Sub MDIForm_Unload(Cancel As Integer)
	Unload frmcustomer
	Unload frmfindcust
   Unload frmfindsupp
	Unload frminvoice
	Unload frmmain
	Unload frmproduct
	Unload frmPurchaseOrder
	Unload frmsupplier
	Unload frmfindproduct
	Unload frmmain
	Unload MDImainfrm
	Unload customerreport
	Unload SupplierReport
	Unload ProductReport
	Unload Me
UnloadAllForms

End Sub

في حالة case فهي مساوية بـ IF

اقتباس

Case 1 To 2

يعني بيقولة في حالة 1 الي 2 نفذ الكود التالي

datinvoice.UpdateRecord
datinvoice.Recordset.Bookmark = datinvoice.Recordset.LastModified
DBGrid1.Columns("InvoiceNo") = txtinvoiceno.Text
DBGrid1.Columns("Price").Text = DBGrid1.Columns("Sales_Price").Text
DBGrid1.Columns("Qty").Text = 1
datinvoice.UpdateRecord