بعد التحية والتقدير في النموذج ftraining يوجد حقل باسم رقم المتدرب اريد ان يظهر الترقيم حسب السنة ورقم الدفعة مثلا للدفعة الأولي وهذه السنة يكون الترقيم 11101 ، 11102، 11103 وهكذا للدفعة الثانية 11201 ،11202 ، 11203 وهكذا وللعام القادم 12101 ، 12102 ، 12103 وهكذا وللدفعة الثانية 12201 ، 12202، 12203 وهكذا مع ظهور ذالك في جدول المتدرب مرفق ملف ولكم الشكر Database2.rar
ترقيم تلقائي برقم الدفعة والسنة الحالية
سلام عليكم للرفع والتذكير الموضوع صعب ام غير واضح المطلوب
تفضل التعديل أتمنى أن تجد فيه مطلوبك
اخى خالد لو تكرمت شرح الكود الخاص بالمنيوبار فى كيفية الكتابة علية ولك جزيل الشكر
اللهم اقدر لنا الخير حيث كان
غرّام العقول كتب:تفضل التعديل أتمنى أن تجد فيه مطلوبك
كل عام وانتم بالف خير ولك الشكر والتقدير اخي غرّام العقول عمل جميل ولكن لو لاحظت عندما تأتي السنة الجديدة يعني العام 2012 ورقم الدفعة 1 يعني رقم الدفعة 1/2012 الترقيم لايبدأ من الأول يعني يأخذ اخر رقم ويضيفه وانا ما اريده هو عند العام 2011 ورقم الدفعة 1/2011 ياخذ الترقيم 11101 و 11102 وهكذا وعند الدفعة 2/2011 ياخذ الترقيم 11201 وعند العام 2012 ورقم الدفعة 1/2012 يبدأ من الأول يعني ياخذ 12101 و12102 وهكذا وعند الدفعة الثانية 2/2012 ياخذ الترقيم 12201 و 12202 وهكذا ولك الشكر
xman3123 كتب:اخى خالد لو تكرمت شرح الكود الخاص بالمنيوبار فى كيفية الكتابة علية ولك جزيل الشكر
Option Compare Database
Private strText As String
في خصائص النموذج في الخاصية on load نكتب الكود ادناه
Private Sub Form_Load()
strText = "النص المراد ظهوره "
strText = Space(110) & strText
End Sub
في خصائص النموذج في الخاصية on Timer نكتب الكود ادناه
Private Sub Form_Timer()
strText = Mid(strText, 2) & Left(strText, 1)
Me.Caption = strText
End Sub
في خصائص النموذج في الخاصية Timer Interval نحدد الفترة مثلاً 50
xman3123 كتب:اخى خالد لو تكرمت شرح الكود الخاص بالمنيوبار فى كيفية الكتابة علية ولك جزيل الشكر
Option Compare Database
Private strText As String
في خصائص النموذج في الخاصية on load نكتب الكود ادناه
Private Sub Form_Load()
strText = "النص المراد ظهوره "
strText = Space(110) & strText
End Sub
في خصائص النموذج في الخاصية on Timer نكتب الكود ادناه
Private Sub Form_Timer()
strText = Mid(strText, 2) & Left(strText, 1)
Me.Caption = strText
End Sub
في خصائص النموذج في الخاصية Timer Interval نحدد الفترة مثلاً 50
خالد يحي الامام كتب:كل عام وانتم بالف خير ولك الشكر والتقدير اخي غرّام العقول عمل جميل ولكن لو لاحظت عندما تأتي السنة الجديدة يعني العام 2012 ورقم الدفعة 1 يعني رقم الدفعة 1/2012 الترقيم لايبدأ من الأول يعني يأخذ اخر رقم ويضيفه وانا ما اريده هو عند العام 2011 ورقم الدفعة 1/2011 ياخذ الترقيم 11101 و 11102 وهكذا وعند الدفعة 2/2011 ياخذ الترقيم 11201 وعند العام 2012 ورقم الدفعة 1/2012 يبدأ من الأول يعني ياخذ 12101 و12102 وهكذا وعند الدفعة الثانية 2/2012 ياخذ الترقيم 12201 و 12202 وهكذا ولك الشكر
وأنتم بألف خير .. عفواً لم أنتبه -في المثال السابق- للقيود المطلوبة, هذا تعديل يشمل الشروط التي طلبتها أرجو أن يحقق المطلوب.
غرّام العقول كتب:وأنتم بألف خير .. عفواً لم أنتبه -في المثال السابق- للقيود المطلوبة, هذا تعديل يشمل الشروط التي طلبتها أرجو أن يحقق المطلوب.
لك الشكر اخي ولكن لم يعمل ارجو ان تجربه وياتي الخطأ في الكود الاتي
Run-Time error '94'
Invalid use of Null
Xx = Nz(CLng(DMax("tr_no", "training", "Left([Gr_No], 1)='" & Y & "'" & " and right([Gr_No], 2)='" & i & "'") + 1), 0)
خالد يحي الامام كتب:لك الشكر اخي ولكن لم يعمل ارجو ان تجربه وياتي الخطأ في الكود الاتي
Run-Time error '94'
Invalid use of Null
Xx = Nz(CLng(DMax("tr_no", "training", "Left([Gr_No], 1)='" & Y & "'" & " and right([Gr_No], 2)='" & i & "'") + 1), 0)
هذا أمرٌ يسير التدبير , انظر المثال بعد التعديل.
غرّام العقول كتب:هذا أمرٌ يسير التدبير , انظر المثال بعد التعديل.
لك الشكر والتقدير عمل جميل جداً هذا هو المطلوب وربنا يجعله في ميزان حسناتك واكرر الشكر - تمت الاجابة على السؤال