تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مساعده في عمل ترقيم تلقائي لفاتورة مبيعات
#1
نرجو من الاخوة المساعدة في عمل ترقيم تلقائي لفاتورة مبيعات
الرد }}}
تم الشكر بواسطة:
#2
ارفق المثال ليتم التعديل عليه
[صورة مرفقة: images?q=tbn:ANd9GcT72OLJW7D1E5QW-HUeWeJ...TGoNeg2jnQ]
الرد }}}
تم الشكر بواسطة:
#3
[color=#008000 كتب :تركي الحلواني[/color]][SIZE=5]ارفق المثال ليتم التعديل عليه


مثل ماقال استاذي تركي الحلوني

[/SIZE]
الرد }}}
تم الشكر بواسطة:
#4
حضرتك جربى الكود ده

اول حاجة ها تعملى ها تكتبى الكود ده فى الموديولGlobal ar_m As New ADODB.Recordset

وبعدين تحت كمومند جديد ها تكتبى الكود ده If ar_m.State = 1 Then ar_m.Close
ar_m.Open "select max (sal_inv)from sal", cn, 1, 2
If IsNull(ar_m(0)) Then
Text13.Text = 1
Else
Text13.Text = ar_m(0) + 1

بالنسبة sal_inv حضرتك ها تغيره على حسب انت مسمياه ايه فى الجدول وده خاص برقم الفاتورة
الرد }}}
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم