سوال درباره کوئری در اکسس

[sama84]

با سلام و خسته نباشید
کوئری هایی که توی اکسس 2007 نوشتم دارای خروجی عدد است -یک سری عدد single را با هم جمع می کند ولی در خروجی یک عدد با تعداد ارقام اعشاری زیاد می دهد مثلا 2.4 را بصورت 2.39999654 نشان می دهد برای اینکه عدد را نهایتا تا دو رقم اعشار نشان دهد چه باید کرد؟ با تشکر

[hf.farhadi]

با سلام
شما خروجی این کوئری رو میخواین در کجا مشاهده کنین ؟

اگه توی گزارش و یا فرم میخوای خروجی رو مشاهده کنی در properties در سر برگ Format و در قسمت Format گزینه Standard و در قسمت Dicimal Places تعداد اعدادی که بعد از اعشار میخوای نمایش داده بشه رو انتخاب کن (مثلاً 1 رو انتخاب کن که خروجی همون 2.4 خودت بشه)

[sama84]

با سلام
شما خروجی این کوئری رو میخواین در کجا مشاهده کنین ؟

اگه توی گزارش و یا فرم میخوای خروجی رو مشاهده کنی در properties در سر برگ Format و در قسمت Format گزینه Standard و در قسمت Dicimal Places تعداد اعدادی که بعد از اعشار میخوای نمایش داده بشه رو انتخاب کن (مثلاً 1 رو انتخاب کن که خروجی همون 2.4 خودت بشه)

با سلام
خروجی کوئری در یک لیست باکس (چون نمی شد در تکست باکس مشاهده کرد از لیست استفاده کردم )که در صفحه گزارش قرار دارد مشاهده می شود ولی لیست این گزینه ها رو properties ندارد راه دیگه ای می دونید؟ باتشکر فراوان

[sama84]

با سلام
خواهش می کنم اگه یه کمک کنه؟

[hf.farhadi]

میشه دلیل این موضوع رو واضح تر عنوان کنین :

(چون نمی شد در تکست باکس مشاهده کرد از لیست استفاده کردم )

و در صورت امکان نمونه بزارین

[emami.sie]

سلام
به این تاپیک یه سری بزنید...
کاربر Hedesh به نکات خوبی اشاره کردن...
http://barnamenevis.org/showthread.php?331937-%D8%AD%D8%B0%D9%81-2-%D8%B1%D9%82%D9%85-%D8%A7%D8%B9%D8%B4%D8%A7%D8%B1-%D8%A7%D8%B2-%D9%81%DB%8C%D9%84%D8%AF-%D9%85%D8%A8%D9%84%D8%BA-%D8%8C-%D8%AF%D8%B1-%D9%84%DB%8C%D8%B3%D8%AA-%D8%A8%D8%A7%DA%A9%D8%B3-%D9%88-%D8%B1%D8%A7%D8%B3%D8%AA-%DA%86%DB%8C%D9%86-%D8%B4%D8%AF%D9%86-%D8%A2%D9%86
هر فرمتی که مد نظرتونه رو باید در کوئری سورس لیست باکستون اعمالش کنید...
موفق باشید
یا علی

[sama84]

با سلام
از راهنمایی هاتون ممنونم . نمونه کوئری:SELECT nz(Sum([chaman.masahatchaman]),0) FROM segment INNER JOIN chaman ON segment.no_segment=chaman.[no-segment]
WHERE (((segment.segment_name)=forms!Form2!combo2.value)
And ((segment.no_rigion)=forms!Form2!text0.value
این کوئری اسم ناحیه و منطقه رو از فرم می گیرد و مجموع مساحت چمنکاری موجود در آن ناحیه را نمایش می دهد . در صفحه گزارشم وقتی تکست باکس میذاشتم و کنترل سورس آن رو نتونستم به این کوئری ارتباط بدم برای همین وقتی دیدم با لیست جواب میده از اون استفاده کردم ولی الان اگر نتیج کوئری 120.5 باشد بصورت 120.4999999 نمایش می ده چیکارش کنم.

[hf.farhadi]

دوست عزیز منظور از نمونه آپلود کردن نمونه ای از برنامتون برای اصلاح است .

در ضمن در لینک قرار داده شده در پست 6

کاربر Hedesh به نکات خوبی اشاره کردن...
http://barnamenevis.org/showthread.p...6-%D8%A2%D9%86 (http://barnamenevis.org/showthread.php?331937-%D8%AD%D8%B0%D9%81-2-%D8%B1%D9%82%D9%85-%D8%A7%D8%B9%D8%B4%D8%A7%D8%B1-%D8%A7%D8%B2-%D9%81%DB%8C%D9%84%D8%AF-%D9%85%D8%A8%D9%84%D8%BA-%D8%8C-%D8%AF%D8%B1-%D9%84%DB%8C%D8%B3%D8%AA-%D8%A8%D8%A7%DA%A9%D8%B3-%D9%88-%D8%B1%D8%A7%D8%B3%D8%AA-%DA%86%DB%8C%D9%86-%D8%B4%D8%AF%D9%86-%D8%A2%D9%86)
میتونین مشکلتون رو حل کنین .



آنگاه برای یک رقم اعشار 1
Expr1:Format([NumberField];"#.0")

[emami.sie]

سلام
این هم یک نمونه خیلی ساده...
یا علی

[sama84]

با سلام از اینکه جواب دادید خیلی ممنونم ببخشید نتونسته بودم نمونه بذارم ، اگه نمونه رو ببینید ممنون می شم

[abdoreza57]

با سلام

با توجه به نمونه های دوستان و روشهای یاد شده تو قسمت فرم اتفاقی که می افته اینه :
اعداد صحیح که فاقد اعشار هستند به صورت 2.00 نمایش داده میشه
کسی راهی سراغ داره که بشه اعداد اعشار را به صورت دو رقم نشون بده و در صورت ورود عدد صحیح این دو تا صفر آخر را نمایش نده ؟

[Abbas Amiri]

سلام
ازتابع Round استفاده کنید:

Round(expression [,numdecimalplaces])

[abdoreza57]

با سلام

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

[Abbas Amiri]

سلام


Dim k as Single
k=12.5236
k=Round(k,2)
Debug.Print k
k=5
k=Round(k,2)
Debug.Print k

این کدها را درک زیرروال در یک ماژول قراربدید و آنرا صدا بزنید ونتیجه را ببینید

[abdoreza57]

ضمن سلام و خسته نباشید خدمت دوستان و استاد امیری گل

یه سوال و اینکه با ایجاد این ماژول اعداد با فرمت سینگل همه روند میشند ؟ اگه این طور باشه خیلی عالیه ! یا من متوجه نشدم
تو نمونه ای که ضمیمه کردم من قبلا اعداد را روند میکردم ولی ایرادی که داشت این بود که با کلیک روی تکست باکس تمام اعشار به نمایش در می آمد یا تو گزارشات دوباره مشکل ساز میشد متاسفانه نتونستم از کد شما استفاده کنم چون با وجود این ماژول هنگام روند کردن خطا میگیره اگه لطف کنی نمونه را اصلاح و جواب سوالاتم را بدید ممنون میشم


یا علی

[Abbas Amiri]

سلام
باید یک تابع ویا زیرروال تعریف ودرداخل آن کد نویسی کنید


Sub RoundSample()
Dim k As Single
k = 12.5236
k = Round(k, 2)
Debug.Print k
k = 5
k = Round(k, 2)
Debug.Print k
End Sub



حالا در Immediate Window تایپ کنید : RoundSample

[abdoreza57]

سلام

شرمنده متوجه نشدم و گزینه Immediate Window را تو 2003 پیدا نکردم :ناراحت:

[Abbas Amiri]

1 - VBE>View>Immediate
2 - Ctrl + G