ایجاد جمع ضربدری حسابداری

[behzad5952]

سلام :

اساتید محترم :

1) آیا ایجاد جمع ضربدری در محیط اکسس مطابق نمونه زیر امکان پذیر هست...؟

2) آیا امکان تغییر رنگ در پس زمینه ردیفهای خاصی از یک گزارش وجود دارد به نحوی که کاربر پس از انتخاب کردن ردیف با کلید خاصی
مثلا کلید insert پس زمینه ردیف را تغییر دهد و همزمان هم بتواند جمع مبلغ یا تعداد ردیف انتخاب شده (تغییر رنگ داده شده) را مشاهده کند.

کسی از دوستان یا اساتید محترم میتونه این مشکل رو حل کنه ....؟

با احترام و تشکر.



105042

[behzad5952]

اساتید محترم لطفا راهنمایی کنید.

قسمت دوم سوال رو خودم حل کردم لطفا در مورد قسمت اول راهنمایی بفرمایید.

[com12151337]

سلام
QrySampl زا سرج کنید فکر کنم بدرتان بخورد

[behzad5952]

دوست عزیز توی اون تایپیک من نتونستم مطلب مرتبطی با سئوال خودم پیدا کنم.

لطفا راهنمایی جدید بفرمایید.

[Abbas Amiri]

سلام

منظور شما نمایش صحیح همان ستون مانده است ؟

در این صورت در Control Source تکست باکس مانده تایپ کنید
= [Bed] - [Bes]

و در خصوصیت Running Sum آن Over Group را انتخاب کنید

[saeed1234n]

با سلام

جناب امیری

اگر مطلب ذکر شده توسط دوستمان را بخواهیم به نوعی در فرم به نمایش در آوریم چگونه باید عمل کنیم .

با تشکر .

[Abbas Amiri]

با سلام

جناب امیری

اگر مطلب ذکر شده توسط دوستمان را بخواهیم به نوعی در فرم به نمایش در آوریم چگونه باید عمل کنیم .

با تشکر .

در مورد فرم ها در Control Source تکست باکس مانده تایپ کنید:


= DSum("[Bed] - [Bes]";"TableName";"ID<=" & ID)


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

[saeed1234n]

با سلام

ببخشید جناب استاد امیری
مگر تکست بکس هم دارای RecordSource میباشد ؟

[Abbas Amiri]

با سلام

ببخشید جناب استاد امیری
مگر تکست بکس هم دارای RecordSource میباشد ؟

منظورم Control Source بود.

[behzad5952]

دوستان عزیز مشکل هنوز پا برجاست لطفا اگر کسی نمونه ساده داره بگذاره من نتونستم راهنمایی آقای امیری رو عملی کنم .

[Abbas Amiri]

دوستان عزیز مشکل هنوز پا برجاست لطفا اگر کسی نمونه ساده داره بگذاره من نتونستم راهنمایی آقای امیری رو عملی کنم .

خیلی ساده انجام پذیره .

در Control Source تکست باکس مربوط به مانده عبارت تفاضل فیلدهای بدهکار وبستانکار رو بنویسید در تصویر زیر در قسمت Detail گزارش نمایش داده شده است .

105151

[saeed1234n]

با سلام

با اجازه استاد امیری

این هم نمونه که هر دو حالت فرم و ریپورت را نمایش میدهد.

[behzad5952]

آقا سعید عالی بود , لطفا راهنمایی کنید نمونه فوق رو چه جوری میشه توی یه لیست باکس و یا کوئری هم عملی کرد .

فقط یه مطلب اونم این که چکار کنم با ایجاد تغییر در یک ردیف از نمونه پیوستی شما بقیه ردیفها آپ دیت بشه من از کدهای زیر استفاده کردم ولی زیاد موفق نبود:
Me.Refresh
Me.Form.Requery
حتی فرم را هم که باز و بسته می کنم سایر رکورد ها آپ دیت نمی شه مگر تک تک توی هر رکورد یک بار تیک کنم.

یک دنیا ممنون:تشویق:

[behzad5952]

اساتید محترم:
من یه نمونه از فایل خودم رو با توضیح و تفسیر پیوست کردم ولی مشکلش اینه که وقتی از فیلتر در فرم استفاده میشه دچار اشتباه محاسباتی در مانده میشه لطفا کدها رو بررسی بفرمایید.

با احترام.

[Abbas Amiri]

اساتید محترم:
من یه نمونه از فایل خودم رو با توضیح و تفسیر پیوست کردم ولی مشکلش اینه که وقتی از فیلتر در فرم استفاده میشه دچار اشتباه محاسباتی در مانده میشه لطفا کدها رو بررسی بفرمایید.

با احترام.

برای حل مشکل شما ابتدا تابع sumTotal را مانند زیر تغییر داده :


Function sumTotal(ID As Double) 'Use this
Dim db As Database, rst As Recordset
Dim strSQL As String, sum As Double
Set db = CurrentDb
strSQL = "SELECT SUM(Bed - Bes) AS Mandeh FROM Table1 " & _
"WHERE Name Like '*" & [Forms]![Form1]![Text9] & "*' AND ID<=" & ID & ";"
Set rst = db.OpenRecordset(strSQL)
sumTotal = rst(0)
Set rst = Nothing
End Function


و در Row Source میست باکس هم عبارت زیر را جایگزین کنید:


SELECT Table1.ID, sumTotal([ID]) AS مانده, Table1.BED, Table1.BES, Table1.NAME FROM Table1 WHERE (((Table1.NAME) Like "*" & [Forms]![Form1]![Text9] & "*"));

[behzad5952]

سلام و خسته نباشید خدمت استاد عزیز آقای امیری , کدهای شما مشکل من رو به نوعی حل کرد ولی وقتی خواستم توی پروژه خودم اجرایی شون کنم یادم اومد که توی نمونه ای که گذاشته بودم یک نکته رو درج نکرده بودم لطفا بررسی مجدد بفرمایید .
در ضمن ستون شماره ردیف لیست باکس هم نتونستم ایجاد کنم.
با احترام و تشکر.

[behzad5952]

اساتید محترم اکسس لطفا کمک کنند.

[نوشیروانی]

:تشویق::تشویق:
با سلام خیلی مفید بود