ممیز

[azadich]

عرض سلام خدمت اساتید بزرگوار، در نمونه ای که گذاشتم می خوام هم در کوئری و هم در فرم میانگین اعدادی که به صورت اعشاری هست عدد اعشار با ممیز از هم جدا بشه به این صورت 11/75 نه 11,75 یعنی به صورت کاما نباشد ممنون

[Abbas Amiri]

در RecordSourse فیلد Expr مقدار آنرا پا کنید وبجای آن بنویسید:


=Replace(([a]+[b])/2;".";"/")

[azadich]

در RecordSourse فیلد Expr مقدار آنرا پا کنید وبجای آن بنویسید:


=Replace(([a]+[b])/2;".";"/")

با تشکر فراوان، حالا می خوام فیلد های aو b هم به صورت ممیز باشه.ممنون میشم

[Abbas Amiri]

برای این مورد فیلدهای a,b را مخفی کنید ودو تکست باکس دیگر جای آنهاقراردهید و در رویداد Form_Current


Private Sub Form_Current()
txtA = Replace(a, ".", "/")
txtB = Replace(b, ".", "/")
End Sub


ضمن اینکه دقت کنید خصوصیت Format تکست باکسهای جدید خالی باشد . باز اگر می خواهید تغییرات در این کنترلها ایجاد کنید وبه فیلدهای اصلی منتقل شود در خصوصیت


Private Sub txtA_AfterUpdate()
a = Replace(Nz(txtA, 0), "/", ".")
End Sub

[azadich]

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

[Abbas Amiri]

روی نمونه شما تغییراتی دادم به این روش راحتتر می توان کارکرد. برای تغییر مقادیر درفرم F3 را بزنید