كتاب مشروع المشتريات والمبيعات للمهندس محمد محمود الصقار مجموعه مؤلفين

سيتم فى هذا المشروع تصميم مشروع المشتريات والمبيعات بإستخدام مكتبة الداو ومن هنا يتم التدريب على اكثر من شاشة والتدريب على أسلوب المخازن بطريقه جيده تأليف: المهندس/ محمد محمود الصقار Sales Project Private Sub Command3_Click() On Error Resume Next Command2.Enabled = True Command3.Enabled = False itm.FindFirst "itm_nm='" & Text2.Text & "'" If itm.EOF Then MsgBox "ÚÝæÇ áã íÊã ÊÍÏíÏ ÕäÝ" Exit Sub End If Dim q As Integer q = itm("Item_qu") If q < Val(Text10.Text) Then MsgBox "ÚÝæÇ áÇ íãßä ÈíÚ ßãíå ÃßËÑ ãä ÇáãæÌæÏå Ýì ÇáãÎÒä" MsgBox q Exit Sub End If itm.Edit itm("Item_qu") = q - Val(Text10.Text) itm.Update Sal("sal_VN") = Combo1.Text Sal("sal_ID") = Text1.Text Sal("sal_QU") = Text10.Text Sal("sal_PRC") = Text11.Text Sal("sal_VAL") = Text12.Text Sal("sal_NO") = Text13.Text Sal("sal_dte") = Text14.Text Sal("sal_dev") = Text15.Text If Combo1.Text = "" Then MsgBox "ÇÎÊÑ ÅÓã ÇáãæÑÏ" Combo1.SetFocus Exit Sub End If If Text1.Text = "" Then MsgBox "ÚÝæÇ ÃÏÎá ÑÞã ÇáÕäÝ" Text1.SetFocus Exit Sub End If Sal.Update .