PDA

View Full Version : سوال: جمع مقادير وارد شده يك فيلد با استفاده از كد



abas1388
سه شنبه 03 آذر 1388, 11:12 صبح
با سلام
در فايل ضميمه سه تكست باكس وجود دارد . در تكست باكس اول اگر با اضافه نمودن ركورد مقاديري را در آن وارد كنيم در تكست باكس دوم جمع آن نمايش داده ميشود .مي خواهم همين كاري كه در تكست باكس دوم انجام ميشود در تكست باكس سوم نيز انجام شود اما از طريق كد نويسي در قسمت ماژول كمند باتن .
با تشكر

smderfan
سه شنبه 03 آذر 1388, 13:16 عصر
سلام ؛ از این کد استفاده کن.

Text11 = DSum("[a]", "Table1")

abas1388
سه شنبه 03 آذر 1388, 14:33 عصر
سلام ؛ از این کد استفاده کن.

Text11 = DSum("[a]", "Table1")

با سلام و عرض تشكر
اگر در جدول هر شخصي داراي كدي با شد و بخواهيم جمع مقدار a را براي هر فرد جداگانه بدست آوريم با استفاده از كد فوق چگونه بايد عمل كنيم ؟
با تشكر

smderfan
سه شنبه 03 آذر 1388, 15:11 عصر
سلام
برای این کار شما می توانید از ساختار DSum Function بصورت زیر استفاده کنید و شرط مورد نظر را در قسمت criteria قرار دهید.

DSum(expr, domain, [criteria])

مثال :

Text11 = DSum("[a]", "Table1", "[Person] = 'نام شخص'")

abas1388
سه شنبه 03 آذر 1388, 16:59 عصر
سلام
برای این کار شما می توانید از ساختار DSum Function بصورت زیر استفاده کنید و شرط مورد نظر را در قسمت criteria قرار دهید.

DSum(expr, domain, [criteria])

مثال :

Text11 = DSum("[a]", "Table1", "[Person] = 'نام شخص'")
با سلام مجدد
با استفاده از كد جنابعالي مورد جمع مقدار فيلد c كه مربوط به كد a ميباشد درست محاسبه شد .



Text11 = DSum("[c]", "Table1", "[Table1]![a] = Forms![Form1]![a]")


حال اگر اينكار را از طريق كوئري بخواهيم انجام بدهيم كد فوق را بايد به چه صورتي بنويسيم ؟
با تشكر

smderfan
سه شنبه 03 آذر 1388, 19:23 عصر
سلام تصویر زیر را ببینید: