مساعدة في ترقيم فاتورة

وعليكم السلام ورحمة الله وبركاته ,,,,

المثال بعد التعديل المطلوب في المرفقات

تم عمل جدول جديد يتم حفظ به اخر ترقيم لكل سنة وعند الإضافة يذهب الى هذا الجدول ويستدعي اخر ترقيم موجود للسنة الحالية ويزيد عليه واحد , وان لم يكن هناك ترقيم للسنة الحالية يضيفه في الجدول بقيمة واحد

من خصائص هذه الطريقة انها تعمل نفس عمل الترقيم التلقائي للجدول ( هذا ان لم يدخل احد الى هذا الجدول ويحاول تعديل او إضافة بعض القيم ) , فمثلا لو اضفنا 1 , 2 , 3 , 4 وحذفنا 3 , 4 سيكمل الترقيم من 5 ولن يستخدم ما تم حذفه

وبالتوفيق ,,,,,,,,,,,,,

billing_AutoNum.rar

السلام عليكم و رحمة الله الأخ الكريم محمد مصطفي غريب

إجابة شافية و كافية من أخ محترف جزاك الله كل الخير

السلام عليكم و رحمة الله

ارجو مساعدتي فيمايلي:

أريد عند حلول سنة2011 بإذن الله لا تظهر سنة 2010 إلا بأرادتي

و هذا حتى لا يظهر خلط في تواريخ الفواتير

مثلا:

1/2009

1/2010

1/2011

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

1/2011

2/2011

3/2011

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

Private Sub Form_Load()
On Error Resume Next

Dim FileSource As String
FileSource = App.Path & "\billing.mdb;Persist Security Info=False;Jet OLEDB:Database Password=11"
sConnect = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source= " & FileSource & ""

Adodc1.ConnectionString = sConnect
Adodc1.RecordSource = "billing"
Adodc1.Refresh

Adodc1.RecordSource = "SELECT DISTINCT number From billing order by number ASC"
Adodc1.Refresh

Do While Not Adodc1.Recordset.EOF
ComboBox1.AddItem Adodc1.Recordset!Number
Adodc1.Recordset.MoveNext
Loop

End Sub

أنا في غاية الحاجة لهذه العملية جزاكم الله مسبقا

لنفترض ان السنة ستُكتب في Text1 ويتم الضغط على الزر Command3 للفلترة بالسنة المكتوبة

Private Sub Command3_Click()

Adodc1.RecordSource = "Select * From Employes Where Right(Number,(Len(Number)-instr(Number,'/')))='" & Text1.Text & "'"
Adodc1.Refresh

End Sub

أنا في غاية الحاجة لهذه العملية جزاكم الله

سوف أجرب تشكر

بارك الله فيك الأخ الكريم محمد مصطفي غريب

بالتمام