مساعدة في تعديل نظام مبيعات

[أبو شرف]

بسم الله الرحمن الرحيم

الأخوة الأعزاء بعد التحية

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

اخوكم ابو شرف

نظام فاتورة.rar

[أبو شرف]

اخواني اعضاء المنتدى الكرام ....................... هل من مساعدة لحل مشكلتي مع التقدير

[عبدالله المجرب]

السلام عليكم

في اكواد الفورم استبدل الكود السابق بهذا

Private Sub TabStrip1_MouseMove(ByVal Index As Long, ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

On Error Resume Next

Dim NN As Integer, S As Integer, R As Integer

Dim MM As Integer, SS As Integer

'If TabStrip1.Value = 1 Then GoTo 1

NN = 0

TextBox43.Text = ""

MM = 2

For SS = 1 To 20

   If Me.Controls.Item(MM).Text <> "" Then

	  Me.Controls.Item(MM + 2).Value = Val(Me.Controls.Item(MM).Text) * Val(Me.Controls.Item(MM + 1).Text)

	  TextBox43 = Val(TextBox43) + Val(Me.Controls.Item(MM + 2))

   End If

   MM = MM + 5

Next

Label22.Caption = "" & NoToTxt2(Val(TextBox43), "دولار", "سنت")

TextBox43 = Format(TextBox43, "#,##0.00")

On Error GoTo 0

1 End Sub

طبعاً هو حذف لعدد من الاسطر الخاصة بالسعر