چگونه میتوان اطلاعات کمبو باکس را به فیلد منتقل کرد

[reza850101]

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

[samaneh_h]

تو قسمت after update مربوط به کامبو باکس دستور زیر رو بنویس
if comboname.text= "variz" then bedehkar.setfoqus else bestankar.setfocus
اون Variz رو فارسی بنویس

[reza850101]

سلام مجدد
ازاینکه دوستان جواب را لطف نمودند متشکرم منتها من برنامه را که تست میکنم شرط اول نادیده و به شرط بعدی پرشش میکند ضمنا میخواهم که شرط دارای 2 یا 3 بررسی شود که برنامه نیز ضمیمه میباشد خواهشمند انرا اصلاح و راهنمائئی فرمائید

[samaneh_h]

ببین من برنامه تو دیدم .این برنامه درسته فقط تو مشکل کد فارسی تو vba داری.یعنی فارسی می‌بینی ولی چون Vba کد اون رو نمی‌دونه به صورت یکسری کاراکتر عجق وجق اون رو می‌شناسه. برای تست هم به جای کلمه"واریزی" کلمه "varizi" رو بذار تو همه جا می‌بینی که برنامت کار می‌کنه.برای رفع عیب :
برو تو کنترل پنل تو قسمت regional option تو تب advanced و regional option فارسی رو انتخاب کن.اگه مشکلت برطرف نشد باید یه تیبل بسازی با دو تا فیلد یکی id و دیگری no_sanad_name که توی این فیلد اون اسامی no_sanad رو می‌زنی و تو قسمت id به هر کدوم یه id می‌دی بعد تو Vba توی شرط id رو چک می‌کنی نه نامشون رو