کمک برای نوشتن این کد

[evilboy]

من یک Combo Box دارم که سه تا گزینه داره (مثلا 1 و 2 و 3 ) و یک تکست باکس که مبلغ رو وارد می کنم حالا می خوام وقتی از کامبو باکس 2 انتخاب شد و مبلغ رو وارد کردم مثلا (2000) این مبلغ منفی ثبت بشه یعنی از کل حساب کم بشه
من خودم این کد رو نوشتم
لطفا مشکلش رو بگید


If Combo1.Text = "2" Then DataEnvironment1.rsCommand5!mablagh = -(Text9.Text)ممنون

[evilboy]

کسی نیست به ما کمک کنه

[MM_Mofidi]

Type Casting

=Val("-" & Text9.Text)

[evilboy]

بازم مثبت ثبت می کنه آقای مفیدی

[MM_Mofidi]

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

[evilboy]

من می خوام عدد رو که وارد می کنم منفی ثبت بشه و از کل حساب کم بشه
اگر امکانش هست یخورده بیشتر توضیح بدید
ممنون

[MM_Mofidi]

پست قبل را دوباره بخوان گفتم اول چک کن ببین آیا عدد درست منفی میشود یا نه سپس ببین آیا متغییر مقصد قابلیت ذخیره سازی اعداد منفی را دارد یا نه؟
کد برنامه ات را بگذار ببینم چکار کردی؟

[evilboy]

این عکس فرم منه

http://princeworld.persiangig.com/image/vb62.JPG


من توی این فرم با انتخاب بستانکار و وارد کردن مبلغ و زدن روی کلید ذخیره عدد وارد شده مثبت ثبت شده و به مانده حساب اضافه می شود و با انتخاب پرداخت شده به همین ترتیب و زدن رو دکمه پرداخت عدد منفی ثبت می شود.
حالا من می خوام با انتخاب بدهکار و زدن روی کلید ذخیره اون عدد منفی ثبت شود.
اینم کدیه که برای کلید ذخیره نوشتم



Dim m As String
DataEnvironment1.rsCommand5.AddNew
DataEnvironment1.rsCommand5!code = Text5.Text
DataEnvironment1.rsCommand5!sharhkharid = Text8.Text
DataEnvironment1.rsCommand5!tarikhkharid = MaskEdBox1.Text
If Text9.Text = "" Then
DataEnvironment1.rsCommand5!mablagh = "0"
Else
DataEnvironment1.rsCommand5!mablagh = Text9.Text
End If
If Combo1.Text = "بدهکار" Then m = "بدهکار"
If Combo1.Text = "بدهکار" Then m = "بدهکار"
If Combo1.Text = "بستانکار" Then m = "بستانکار"
If Combo1.Text = "پرداخت شده" Then m = "پرداخت شده"
DataEnvironment1.rsCommand5!noo = m
DataEnvironment1.rsCommand5.Update
Text8.Text = ""
Text9.Text = ""
Call jamk
If Combo1.Text = "بدهکار" Then DataEnvironment1.rsCommand5!mablagh = -(Text9.Text)

[evilboy]

یکی هم به داد من برسه لطفا

[netspc]

evilboy منکه تو پی سی سون هم همین رو بهت گفتم :متعجب:
یه کاری کن اگه برات مقدور هست فایل بانک اطلاعاتی رو بفرست
بنده هم به خاطر شما وی بی رو نصب میکنم :لبخند:

[evilboy]

دوست عزیز می تونید آی دیتون رو به من بدید و بگید کی آنلان هستید.
ممنون

[MM_Mofidi]

از کد پست شماره 3 استفاده کردی؟
آیا برای نوع دادهای در مقصد(پایگاه داده) شرط مثبت بودن نگذاشتی؟
ضمنا پیشنهاد میکنم شما اول چک کنی بعد فقط یکبار فیلد مورد نظر را مقدار دهی کنی در کد بالا شما دوبار مقدار دهی کردی برای DataEnvironment1.rsCommand5!mablagh

[evilboy]

حل شد ممنون