Name: مشروع المشتريات والمبيعات للمهندس محمد محمود الصقار
Author: غير محدد

أعلان

نحن نحترم حقوق الملكية الفكرية اذا رأيت كتاب له حقوق ملكية فضلاً أبلغنا فوراً لحذفه

بحث عن كتاب

أعلان

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

المؤلف : غير محدد

التصنيف : كتب منوعة

الفئة : كتب فجوال بيسك 6

سنة النشر : غير محدد

عدد الصفحات : غير محدد

عن الكتاب : سيتم فى هذا المشروع تصميم مشروع المشتريات والمبيعات بإستخدام مكتبة الداو ومن هنا يتم التدريب على اكثر من شاشة والتدريب على أسلوب المخازن بطريقه جيده تأليف: المهندس/ محمد محمود الصقار 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 .

أعلان

روايات pdf

أعلان

الملكية الفكرية محفوظة لمؤلف الكتاب المذكور فى حالة وجود مشكلة بالكتاب الرجاء الإبلاغ من خلال الايميل الخاص بنا فى صفحة حقوق النشر أو من خلال صفحتنا على الفيس بوك.

نبذة عن كتاب مشروع المشتريات والمبيعات للمهندس محمد محمود الصقار

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

سيتم فى هذا المشروع تصميم مشروع المشتريات والمبيعات بإستخدام مكتبة الداو ومن هنا يتم التدريب على اكثر من شاشة والتدريب على أسلوب المخازن بطريقه جيده تأليف: المهندس/ محمد محمود الصقار 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 .

هذا الكتاب من تأليف غير محدد و حقوق الكتاب محفوظة لصاحبها

أعلان