حذف 2 رقم اعشار از فیلد مبلغ ، در لیست باکس و راست چین شدن آن

[hr1353shayan]

با سلام خدمت اساتید محترم ، می خواستم بدونم آیا در لیست باکس امکان حذف دو رقم اعشار از فیلد ریال و راست چین شدن آن امکان پذیر است ؟

[royasaz_bam]

دوست عزیز این موضوع بر میگردد به زمانیکه شما جدوال را ایجاد کردیه اید زمان ساخت فیلد مبلغ مطابق عکس
84011
در قسمت مربوطه را عدد صفر را بگذار
حال به دلیل اینکه لیست باکس شما قبل از این عمل ساخته شده بود خاصیت قبلی به آن به ارث رسیده که برای حل این موضوع ساده ترین راه ساخت مجدد لیست باکس میباشد ... البته بعد از اینکه در جدول مربوطه خاصیت مورد نظر را به صفر تغییر دادی

[hr1353shayan]

ضمن تشکر از شما ، طبق راهنمایی تون ابتدا خصوصیت جدول رو تغییر دادم و بعد لیست باکس رو ساختم ، اما نمی دونم چرا دوباره اعشار رو میاره
لطفاً فایل پیوست رو چک کنید

[royasaz_bam]

لطفا فرمت 2003 را ارسال نمایید

[hr1353shayan]

با سلام خدمت شما دوست عزیز و ممنون از اینکه پیگیری می فرمایید
فایل 2003 جهت بررسی شما ضمیمه شد

[mhkavian]

با سلام
براي حل اين مشكل بايد قيد استفاده از ويرگول رو بزنيد و نوع فيلد رو هم number كنيد و در قسمت فرمت هم چيزي ننويسيد ( null )
براي راست چين كردن هم بايد listbox را تبديل به textbox كني وبعد از راست چين كردن مجددا تبديل به listbox شود . بعد اطلاعات rowsource و تعداد ستونها و عرض ستون ها مجددا تنظيم گردد .
اگر ويرگول خيلي مهم هست مي تونيد با استفاده از يك تابع مثل تابع format اين كار رو انجام بديد .
اين موضوع به نسخه اكسس بي ارتباط است .
موفق باشيد .

[Hedesh]

برای حذف دو رقم اعشار یا داشتن یک رقم اعشار کافیس در قسمت کویری در قسمت Field از فرمت زیر استفاده کنید.

اگر نام فیلد شما و مقدار آن به این صورت باشد .
[NumberField] = 123.32
آنگاه برای یک رقم اعشار
Expr1:Format([NumberField];"#.0") که نتیجه آن عدد 123.3 است
و برای اینکه بدون اعشار نمایش داده شود .
Expr1:Format([NumberField];"#") که نتیجه آن نمایش عدد 123 است.

این هم لینکش :
http://www.justskins.com/forums/formatting-decimals-in-a-135464.html

[Hedesh]

ضمنا اگر در قسمت help اکسس کلمه فرمت را سرچ کنید در قسمت Format Function به فرمت های جالبی می رسید که برای نمونه یک سری از آنها را میگذارم.

Dim MyTime, MyDate, MyStr
MyTime = #17:04:23#
MyDate = #January 27, 1993#

' Returns current system time in the system-defined long time format.
MyStr = Format(Time, "Long Time")

' Returns current system date in the system-defined long date format.
MyStr = Format(Date, "Long Date")

MyStr = Format(MyTime, "h:m:s") ' Returns "17:4:23".
MyStr = Format(MyTime, "hh:mm:ss AMPM") ' Returns "05:04:23 PM".
MyStr = Format(MyDate, "dddd, mmm d yyyy") ' Returns "Wednesday,
' Jan 27 1993".
' If format is not supplied, a string is returned.
MyStr = Format(23) ' Returns "23".

' User-defined formats.
MyStr = Format(5459.4, "##,##0.00") ' Returns "5,459.40".
MyStr = Format(334.9, "###0.00") ' Returns "334.90".
MyStr = Format(5, "0.00%") ' Returns "500.00%".
MyStr = Format("HELLO", "<") ' Returns "hello".
MyStr = Format("This is it", ">") ' Returns "THIS IS IT".


همچنین می توانید در ادامه فرمت های پست قبلی نوع فرمت را بنوسید مثلا:

Expr2: Format([m];"Standard")

Expr2: Format([m];"Currency")

Expr2: Format([m];"Fixed")

Expr2: Format([m];"General")

و در آخر برای نمایش اعداد به صورت سه رقم سه رقم و حذف 2 رقم اعشار از فیلد مبلغ از فرمت زیر باید استفاده کرد.


Expr2: Format([m];"#,##0")
:تشویق:

[Hedesh]

برای نمایش اعداد منفی در پرانتز () از فرمت زیر را می بایست استفاده کرد.

Format([Fieldname];"#,##0;(#,##0)")