درج سال در شماره نامه و ریست شدن شماره در سال جدید

[Kourosh1977]

سلام
من این مورد رو تو تاپیکها سرچ کردم اما چیزی دستگیرم نشد، من کد نویسی بلد نیستم لطفا یکی از دوستان کمکم کنه اگه ممکنه فایلی که توش کد نوشته شده رو برام بزارن ممنون میشم
من میخوام یک دیتا بیس برای نامه های صادره بنویسم، و میخوام یک فیلد شماره اتوماتیک داشته باشه بصورت
IR-YY-0000 که در آغاز هرسال جدید وقتی یک مقدار به سال اضافه بشه شماره دوباره از 1 شروع بشه یعنی:
IR-91-0001
IR-91-0002
IR-91-0003
..
..
IR-92-0001
IR-92-0002
مرسی

[hasanhzd]

درود
دوستان قبلا کدهای تبدیل میلادی به شمسی رو گذاشتن

در فرمتون یک تکست باکس به اون اختصاص بدین

تو فیلدهای خودتون از سال تکست تاریخ و ارقام دیگر خودتون استفاده کنید

[Abbas Amiri]

تابع زیر شماره جدید را برحسب سال برمی گرداند:


Function NewCode(yr As Integer) As String
k = Nz(DMax("Code", "Table1", "Mid(Code,4,2)=" & yr), "IR-" & yr & "-0000")
j = Split(k, "-")
n = Val(j(2)) + 1
NewCode = j(0) & "-" & j(1) & "-" & Format(n, "0000")
End Function


اگر فرمتان در حالت DataEntery است در AfterUpdate تکست باکس سال و درغیر اینصورت یک باتون جهت درج کدجدید، ایجاد و درآن تایپ کنید:
Code = NewCode(Sal)

درمثالهای بالا Code همان شماره موردنظر ، Table1 جدول مربوطه و Sal نام تکست باکس سال است

[Kourosh1977]

ممنونم از هر دوی دوستان ولی من کد نویسی بلد نیستم اگر فایلشو میشه لطف کنین برام بنویسین توش کمک بسیار بزرگی به من میشه

[Kourosh1977]

97874

ممنون اگه کد رو در فرم برام بزند

[Abbas Amiri]

سلام
تاریخ رو به میلادی وارد میکنید؟ چون DataType فیلد Date of Letter در جدول شما Date/Time است به همین دلیل چندتاریخ شمسی را قبول نمیکند
و دوم اینکه سال تاریخ رو 4رقمی یا دورقمی وارد میکنید؟

[Kourosh1977]

سال تاریخ باید 2 رقمی باشد و فرمت شمسی داشته باشد. فرمت باکس تاریخ روهم میشه عوض کرد مهم نیست
اگر اینجوری سخته میشه یک باکس هم برای وارد کردن سال شمسی وارد کرد و سال شماره نامه رو از روی اون بخونه، ممنون از وقتی که میگذارید واقعا کمک بزرگی به من میشه

[Abbas Amiri]

فایل شما اصلاح شد

[Kourosh1977]

واقعا ممنونم، کارتون عالی بود و کمک بسیار بزرگی بود فقط جسارتا یک مورد دیگه هم هست اینکه من میخوام به این فرم فرمهای دیگه و دکمه اضافه کنم ولی این فایل دیزاین ویو ش بسته شده اگر لطف کنید و ب فایل با امکان ادیتشو بزارین ممنون میشم میدونم یکم زیاده رویه!:خجالت:
دوست دارم تلفنی ازتون تشکر کنم اگر دوست داشتین تلفنتونو بزارین برام : kourosh1977@gmail.com

[Abbas Amiri]

منظور شما از دیزاین ویوش بشته شده یعنی چی ؟ پس چطوری تغییرات بهش اعمال شده؟
شاید منظورشما نوع آرایش کنترلهاست. دراین صورت به تب Arrange ودر قسمت Control Layout بعد ازاینکه تمام کنترلها را انتخاب کردید ، گزینه Remove رابزنید

[Kourosh1977]

ممنون از شما عالی بود و مشکل منو حل کرد، حالا یک مشکل کوچولوی دیگه هم داشتم اگر اینو هم جواب بدید واقعا ممنون میشم اگر حالا بخوایم به اون شماره نامه از یک فیلد دیگه دو حرف اضافه بشه یعنی توی یک باکس دیگه ای دو حر ف اینگلیسی دیگه تایپ بشه یا کومبو باشه(نشان دهنده بخش سازمانی نامه) یعنی فرمت شماره نامه اینجوری بشه : IR-XX-91-0001 که در اون XX رو از یک کومبو باکس با 11 حالت بخونه (یا اینکه تایپ بشه اونجا) و توی فرمت شماره اضافه بشه (فایل پیوست.)98035

اگه لطف کنید و این رو هم حل کنید سپاس گزارتون میشم مرسی