لطفا مشکل این کد رو هم بگید

[evilboy]

DataEnvironment1.rshesab! -mablaghtasfie = Text6.Text
چجوری می تونم منفی ثبت کنم
الان اینی که نوشتم ارور می ده

[tiktikboom]

منفی ثبت کنم یعنی چی؟
یه خورده شفاف سازی کن

[Neeloofar]

سلام

شما اگه بخوای منفی تو دیتابیس ثبت کنی اینطوری:

DataEnvironment1.rshesab!mablaghtasfie = -1 * Val(Text6.Text)

اگه بخوای مثبت از دیتابیس بگیری و منفی تو تکست پر کنی اینطوری:

Text6.Text = -1 * (DataEnvironment1.rshesab!mablaghtasfie)

اگر فیلد mablaghtasfie در دیتابیس از نو عدد نیست این کد رو بجای دومی بکار ببر:

Text6.Text = -1 * Val(DataEnvironment1.rshesab!mablaghtasfie)

ضمنا از علامت ! استفاده نکن و بجاش از آبجکت Fields استفاده کن. این علامت مختص VBA هست و ممکنه بعدها در برخی جاها به مشکل برخورد کنید.

DataEnvironment1.rshesab.Fields("mablaghtasfie")

یا خلاصه تر:

DataEnvironment1.rshesab("mablaghtasfie")

موفق باشید!