شمارش

[reza2371]

سلام
یه مشکل دارم. توضیح در نمونه هست. ممنون میشم راهنمایی بفرمایید

[ariayekta]

سلام
با این توضیحی که دادید این میشه

[Mehr@ban]

سلام

این کد ما رو هم یه نگاهی بنداز! :لبخند:
در افتر آپدیت چک باکس بنویسش

If Me.tex_r3.Value = True Then
Me.Tex_sharh = Me.Tex_sharh & Me.tex_r2 & ", "
Else
Me.Tex_sharh = Replace(Me.Tex_sharh, Me.tex_r2 & ", ", "")
End If

[reza2371]

از توجه دوستان ممنونم
کد دوم مد نظر بود بازهم تشکر

یه ایراد دیگه هم دارم لطف میکنید کمک کنید (توضیح داخل نمونه)