Portable b.zipسلام
ممنونم
من لینک شما رو دیدم و کدش رو رفتم توابعش رو از help آفیس آنالیز کردم و سعی کردم با مدل خودم تطبیق بدم ولی ارور می ده،فایل رو براتون می زارم و همچنین کد رو لطفا ایراد کار رو بگید بهم:
Function NewCode(yr As String) As String
K = Nz(DMax("ID", "list", Mid("id", 2, 1)), "yr" & "-" & "-00")
j = Split(K, "-")
N = Val(j(1)) + 1
NewCode = j(0) & "-" & Format(N, "00")
End Function
و در فرم این مدلی صد زدم:
Private Sub Form_Current()
ID = NewCode(hava)
End Sub
مدلی که می خوام ایدی سازی کنه اینه :مثلا با صدا زدن(NewCode(hava :
hava01
hava02
hava03 و..
را بسازد!!
****اگر مشکل کدم را فهمیدی و این نیاز حل شد،می خوام بدونم آیا راهی هست که این کلمه hava رو از رکورد اول جدول دیگری با نام tbl_group و فیلد group_name اش بگیرد!!!اگر محتوا فارسی باشد مشکلی پیش می آید؟
ممنون!!!