[mmali127]

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

استاذ على الكعبى

هشرح لحضرتك الفكرة بصورة مختصره 

لكى يكون الترقيم يبدا من مسلسل (1) لكل سنة يجب اتباع التالى 

1 - انشاء كود لتحويل التاريخ المدخل الى سنة وتسجيل الناتج (السنة ) فى تكست اخر
وده الكود المخصص لذلك 
 ("txtmy_year.Text = Format(CDate(aa3.Text), "yyyy

2-  استدعاء نوع الوارد (كما هو فى مثالك) فى تكست اخر (وانا ارى انه كان افضل ان يكون جدول منفصل يتم ملىء الكومبو بكس منه  )
وده الكود 
 If aa4.SelectedIndex = 0 Then
            txtaa4.Text = 0
        ElseIf aa4.SelectedIndex = 1 Then
            txtaa4.Text = 1
        End If

-------------------
هنا لدينا ناتج السنة الظاهر من ادخال التاريخ txtmy_year 
ولدينا كود نوع الحركة  txtaa4

وعن طريق عمل استعلام لاستدعاء اخر رقم مسجل بقاعدة البيانات للسنة txtmy_year  و نوع الحركة txtaa4   
يكون الناتج التى تريده 

"select top 1 (NoteID) from tblname where MyYear= " & txtmy_year .Text & "  and NoteType = " & txtaa4 .Text

حيث ان NoteID سجل رقم الوارد بالجدول

MyYear سجل السنة بالجدول
NoteType  سجل نوع الحركة بالجدول

حاولت التعديل على مثالك ولكن انا لا فاهم طبيعة الجداول لديك 
وادركت مثال صغير لتوصيل الفكرة لك 

تحياتى للجميع

[attachment=23743]

---

(22-12-19, 11:33 PM)asemshahen5 كتب : معليش بس عندي سؤال .
اذا كل سنة يبدا الترقيم كده حيتكرر الرقم 1 اكثر من مرة على حسب عدد السنوات التي مرت على البرنامج .

السلام عليكم 

فى شركات كتير بتفضل ابتداء كل سنة بمسلسل جديد لكل انوع المستندات 

وده بيساعد حفظ وارشفة المستندات Save documents - Filling

وكمان بيكون السنة جزء من مسلسل المستند مثل 2019-001

بحيث يعرف السنة ورقم المستند 

تحياتى لحضرتك