سوال: درمورد ذخیره اطلاعات [بایگانی]

moghadam1372

یک شنبه 04 تیر 1391, 11:18 صبح

mohammadriano

دوشنبه 05 تیر 1391, 15:20 عصر

با سلام خدمت اساتید محترم

با چه کدی می شود اطلاعات در بصورت زیر ذخیره کرد

مثلا text 1.text= 10000 این رقم در دیتا بیس اکسس در فیلدی بنام tt ذخیره می شود

این رقم در فیلد دیگری هم به نام cc ذخیره شود

حلا رقم بعدی که در فیلد tt ذخیره می شود با مانده فیلد cc جمع شده و در ccذخیره شود

tt cc
10000 10000
20000 10000
70000 50000

data.recordset.movelast
dim i as long
if data.recordset.bof <> true then i = data.recordset.fields("cc").value
data.refresh
data.addnew
data.recordset.fields("cc").value = text.text
if data.recordset.bof <> true then
data.recordset.fields("tt").value = text.text + i
else
data.recordset.fields("tt").value = text.text
end if
data.refresh