[naden]

السلام عليكم
مطلوب كود يقوم بالتنبيه بأن كمية الصنف على وشك النفاد من المخزن
مثلا يوجد عندي جدول اصناف وجدول مخازن وجدول مبيعات عندما يتم بيع الاصناف ويكون هناك صنف معين قابل للنفاد بمعنى يوجد منه 2 فقط في المخزن اريد ان يظهر تنبيه بأنه على وشك النفاد

[مساعدة]

السلام عليكم

عليك باجراء استعلام
وهذا يعتمد على طريقتك في التعامل مع قاعدة البيانات

[Hazim Elabd]

يمكنك إستخدام الكود التالى وهو يقوم بالذى تريد ويمكنك أستدعاءة بعد كل عملية بيع تقوم بها

كود :

   Public sub checkitemcount(ByVal itemid As Integer)
Dim DataSet1 As New DataSet
       DataSet1.Clear()
       Dim SQLstr As String = "SELECT * FROM dnname WHERE itemid = " & itemid &"
       Dim Da1 As New MySqlDataAdapter(SQLstr, newConnection)
       newConnection.Open()
       Da1.Fill(DataSet1, "suppitems")
       newConnection.Close()
       If DataSet1.Tables(0).Rows(0).item(3) < 2 Then
msgbox("يرجى الإنتباه أن هذا الصنف لم يتبقى منه الكثير فى المخزن")
       Else
       End If
   End sub

إذا كان فى اي استفسار انا موجود .

[naden]

(28-12-16, 08:23 AM)Hazim Elabd كتب : يمكنك إستخدام الكود التالى وهو يقوم بالذى تريد ويمكنك أستدعاءة بعد كل عملية بيع تقوم بها

كود :

   Public sub checkitemcount(ByVal itemid As Integer)
Dim DataSet1 As New DataSet
       DataSet1.Clear()
       Dim SQLstr As String = "SELECT * FROM dnname WHERE itemid = " & itemid &"
       Dim Da1 As New MySqlDataAdapter(SQLstr, newConnection)
       newConnection.Open()
       Da1.Fill(DataSet1, "suppitems")
       newConnection.Close()
       If DataSet1.Tables(0).Rows(0).item(3) < 2 Then
msgbox("يرجى الإنتباه أن هذا الصنف لم يتبقى منه الكثير فى المخزن")
       Else
       End If
   End sub

إذا كان فى اي استفسار انا موجود .

بارك الله فيك جزاك الله كل خير ان شاء الله في ميزان حسناتك