ورود

View Full Version : حرفه ای: جمع داده های access و نمایش در textbox



omid aboozari
یک شنبه 18 فروردین 1392, 20:22 عصر
سلام دوستان .
به مشکل بر خوردم . لطفا کمکم کنین .

یه برنامه نوشتم که توی اون از پایگاه داده access استفاده می شه و دارای 2 تا table هستش که در tabale1 اسم و نام خانوادگی افراد رو می گیره و در tabale2 مبلغ دریافت شده از اونها و مبلغ پس داده شده به اونها در 2 ستون جداگونه .

حالا می خوام تو صفحه ای که مربوط به شرح دریافتی و پرداختی فردی که تو table1 وارد کردیم رو نمایش بده . خوشبختانه تونستم از طریق database این کار رو انجام بدم و حالا 3 تا textbox درست کردم که تو اونا می خوام جمع مبلغی که دادن و جمع مبلغی که دریافت کردن و مبلغ باقیمونده چه منفی چه مثبت واسه اون شخص خاص رو نشون بده .
لطفا کمک کنید .
برای این textbox 1 , 2 , 3 چه sql ای باید بنویسم ؟؟؟؟؟؟؟؟؟


فرم اول ثبت نام اشخاص .
فرم دوم مبلغ دریافتی که این فرم به id نام شخص وابسته هستش و هر چی در این فرم ایجاد بشه به id همون فرد نسبت داده می شه .
فرم سوم مبلغ پرداختی که مانند مبلغ دریافتی کار می کنه
و فرم چهارم که گزارش کارکرد فرد هست .

BookWorm
چهارشنبه 21 فروردین 1392, 20:29 عصر
سلام دوستم.
برای textbox اولی

select sum(field2) from table2 where field_id=vaule


برای textbox دومی

select sum(field3) from table2 where field_id=vaule

مقدار value همون مقدار کلید اصلی هست
برای textbox سومی در رویداد textchange دو textbox قبلی (1 و 2) کد زیر رو بنویس

text3.text = val(text1.text) - abs(val(text2.text))

omid aboozari
پنج شنبه 22 فروردین 1392, 17:24 عصر
سلام دوستم.
برای textbox اولی

select sum(field2) from table2 where field_id=vaule


برای textbox دومی

select sum(field3) from table2 where field_id=vaule

مقدار value همون مقدار کلید اصلی هست
برای textbox سومی در رویداد textchange دو textbox قبلی (1 و 2) کد زیر رو بنویس

text3.text = val(text1.text) - abs(val(text2.text))



مرسی از راهنمائیت ولی هر کاری کردم جواب نداد .

وقی برای TEXTBOX اول و دومم این دستور رو می نویسم اصلا هیچ تغییری توشون به وجود می آد و اگه تو فرم بنویسم که کلا خطا می ده و کلا نوشتم قرمزه . البنه تغییراتی دادم که به پایگاه دادم بخوده.


select sum(MAJMU) from FROOSH where field_id=vaule

moghadam1372
یک شنبه 22 اردیبهشت 1392, 06:27 صبح
با سلام
با این روش هم می شود جمع وتفریق کرد
On Error Resume Next
sql = "SELECT * from kala WHERE Left(codk, " & Len(Text6) & ")='" & Trim(Text6) & "'"
Adodc3.RecordSource = sql
Adodc3.Refresh
Adodc3.Recordset.Sort = "codk"


Adodc3.Recordset.Filter = "codk =' " & Text6.Text & " ' "

Adodc3.Recordset.MoveFirst
vkol = 0
While Adodc3.Recordset.EOF <> True
bd= Adodc3.Recordset.Fields("bd")
vkol = vkol + bd
Adodc3.Recordset.MoveNext
Wend
Text20 = vkol
Adodc3.Refresh
Adodc3.Recordset.Filter = "codk =' " & Text6.Text & " ' "
Adodc3.Recordset.MoveFirst
vkol = 0
While Adodc3.Recordset.EOF <> True
bs= Adodc3.Recordset.Fields("bs")
vkol = vkol + bs
Adodc3.Recordset.MoveNext
Wend
Text21 = vkol
Adodc3.Refresh



Text22 = Text21 - Text20