𝐡𝐚𝐬𝐬𝐚𝐧 قام بنشر يونيو 27 مشاركة قام بنشر يونيو 27 اخواني الاعزاء الرجاء مساعدتي في الكود المرفق الخاص بالترقيم لكل عام رقم جديد هو مضبوط معي تمام ل عامين فقط اريد ان اضيف عدة اعوام بنفس الطريقة تكرموا بمساعدتي ولكم جزيل الشكر التقدير رابط هذا التعليق شارك More sharing options...
أفضل إجابة M.Abd Allah قام بنشر يونيو 28 أفضل إجابة مشاركة قام بنشر يونيو 28 4 ساعات مضت, 𝐡𝐚𝐬𝐬𝐚𝐧 said: اخواني الاعزاء الرجاء مساعدتي في الكود المرفق الخاص بالترقيم لكل عام رقم جديد هو مضبوط معي تمام ل عامين فقط اريد ان اضيف عدة اعوام بنفس الطريقة تكرموا بمساعدتي ولكم جزيل الشكر التقدير تقدر تضيف اكتر من سنه بنفس الطريقه انا زودت لحضرتك سنتين وتقدر تزود اكتر من سنه بنفس الطريقه Private Sub x_AfterUpdate() If x1 <> 0 Then ' لا تفعل شيئًا إذا كانت x1 ليست صفرًا Else Select Case x Case "1446" x1 = Nz(DMax("[m]", "mm", "yy = '1446'") + 1, 4600001) Case "1447" x1 = Nz(DMax("[m]", "mm", "yy = '1447'") + 1, 4700001) Case "1448" x1 = Nz(DMax("[m]", "mm", "yy = '1448'") + 1, 4800001) Case "1449" x1 = Nz(DMax("[m]", "mm", "yy = '1449'") + 1, 4900001) ' يمكنك إضافة حالات أخرى للأعوام الأخرى بنفس الطريقة Case Else MsgBox "السنة غير مدعومة." End Select End If End Sub 1 رابط هذا التعليق شارك More sharing options...
𝐡𝐚𝐬𝐬𝐚𝐧 قام بنشر يونيو 28 الكاتب مشاركة قام بنشر يونيو 28 الف الف شكر وجزاك الله خير رابط هذا التعليق شارك More sharing options...
شايب قام بنشر يونيو 28 مشاركة قام بنشر يونيو 28 19 ساعات مضت, 𝐡𝐚𝐬𝐬𝐚𝐧 said: اريد ان اضيف عدة اعوام بنفس الطريقة بداية مع التحية والتقدير للاستاذ @M.Abd Allah على جهوده فان الاخ العزيز شايب يعتقد ان وضع معيار بشكل مباشر في محرر الاكواد وهو هنا كتابة السنة امر غير صحيح ولا ينصح به لان المستخدم للبرنامج مجرد مدخل بيانات وكان الاجدى ان تستخلص السنة من التاريخ وبالتي لسنا بحاجة الى اجراء تعديل على الكود في بداية السنة الجديدة او السنوات التالية وايضا نختصر كتابة الكود ونقلل من الاحتمال مع ذلك هي وجهة نظر غير ملزمة اخونا الشايب 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان