PDA

View Full Version : حاصل جمع فیلدها



ramsess
شنبه 08 تیر 1387, 13:21 عصر
سلام اهل فن خسته نباشید از راهنماییهای همتون ممنونم
من دو نوع محاسبه روی فیلدها رو می خوام البته البته البته بانکم اکسس هستش
اول اینکه دو فیلد با نام های t1 و t2 دارم که می خوام جمع این دو تا در فیلد t3 قرار بگیره
و مورد دوم اینکه یک فیلد با نام t1 دارم و فرض کنید برای بار اول مقدار عدد 30 و برای بار دوم عدد 50 را وارد می کنم و اگر برای بار سوم بخواهم وارد کنم در داخل فیلد عدد 80 را نشان دهد یعنی هر بار مقداری که وارد می شود با مقدار قبلی جمعه داده بشود مرسی

ali_habibi1384
شنبه 08 تیر 1387, 16:31 عصر
مشکل اول:


adodc1.recordset.fields("t3")=val(t1)+val(t2)

مشکل دوم:
از یک متغییر کمکی استفاده کنید.

amini699
یک شنبه 09 تیر 1387, 23:35 عصر
این رو هم یک نگاهی بنداز برای هر فیلد میتونی یک جمع بزنی و در یک تکس ذخیره یا هم که می تونی مستقیما توی بانک ذخیره کنی

Dim SQLS As String
Dim RecSet As New Recordset
Dim SQLS1 As String
Dim RecSet1 As New Recordset

SQLS = "SELECT * FROM G_Ashkhas "
SQLS = "SELECT SUM(ti) as SUMt1 FROM G_Ashkhas "

RecSet.Open SQLS, DB_AD, adOpenStatic, adLockBatchOptimistic

Text1 = RecSet.Fields("SUMt1")