ثبت اطلاعات يك تكس باكس

[masoud1345]

دوستان من در فرم خودم چند تكس باكس دارم كه نامريك ميباشد من وقتي اطلاعات را ثبت ميكنم تكس باكس را برابر صفر نميكنم وقتي دوباره اطلاعات جديد را ميخواهم وارد كنم ميخواهم همان عدد قبلي را ثبت كنم ولي وقتي دكمه ثبت را ميزنم عدد ثبت شده در تكس باكس را ثبت نميكند وصفر را ثبت ميكند در واقع بايستي دوباره همان عدد را وارد كنم چون عدد مشابه ميباشد من ميخواهم با زدن اينتر همان عدد را ثبت كنم لطفا راهنمايي وارد كنيد

[gh_khajehzade]

تا ميتوني سعي كن فرم رو از طريق wizard بسازي هم راحتتره وهم صحيح تر.براي جواب به سئوالت بايد توضيح بيشتري در مورد برنامت و خصوصا فرمي كه ساختي بدي.

[masoud1345]

من مبالغ سند را با text7 به بانك ارسال ميكنم وقتي ميخواهم طرف بستانكار را بزنم ميخواهم همان مبلغي كه قبلا در text7 وارد كردم را با زدن اينتر به بانك منتقل كنم ايراد من اين است كه دوباره مبلغ را بايد وارد كنم وجون مبلغ بدهكار وبستانكار يك است ميخواهم مبلغ را دوباره نزنم همان مبلغي كه قبلادر text7 وارد كردم را بازدن اينتر انتقال بدهم يا به عبارتي ديگر ميخواهم عدد در تكس باكس هفت من save شود

[gh_khajehzade]

اكه بتوني فايلت رو اينجا بذاري خيلي بهتره!

[masoud1345]

متاسفانه من بلد نيستم عكس ويا برنامه را چكونه بايستي در سوالاتم بگذارم

[ح.حاج حسینی]

أيا تكس باكست را به فيلد هاي فايلت وصل کردید در قسمت ColorSource
اگر اینکارر را انجام داده اید بعد ذخیره باید برای ورود اطلاعات جدید از دستور appe blank استفاده نموده باشید در این حالت اطلاعات تکس باکس ها عوض می شود ولی چون از دستور thisform.Refresh استفاده نکرید محتوای تکس باکس عوض شده است ولی نمایش داده نشده اگر دستور فوق را اجرا کنید مطمنا خواهید دید که تکس باکس شما صفر می شود اگر چنین است بفرمایید تا راه حل را بگویم اگر غیر این است کد های را که در قسمت ذخیره نوشتید در اینجا نمایش دهید تا مشکل را بتوان بررسی کرد

[masoud1345]

IF thisform.text10.Value >0
SELECT 2
APPEND BLANK
REPLACE shr WITH thisform.text5.Value

REPLACE kod WITH thisform.text4.Value
REPLACE shos WITH thisform.text1.Value
REPLACE dat WITH thisform.text2.Value
REPLACE nam WITH thisform.text3.Value
REPLACE kod WITH thisform.text4.Value
REPLACE shoj WITH thisform.text12.Value
REPLACE datj WITH thisform.text11.Value
IF thisform.combo3.Value ='بدهكار'
REPLACE tash WITH 1
ELSE
REPLACE tash WITH 2
endi
IF thisform.combo3.Value ='بدهكار'
REPLACE bedk WITH thisform.text10.Value
endi
IF thisform.combo3.Value ='بستانكار'
REPLACE best WITH thisform.text10.Value
endi
REPLACE shr WITH thisform.text5.Value

thisform.grid1.Refresh
SUM bedk TO ss
SUM best TO sss
thisform.text6.Value =sss
thisform.text7.Value =ss

ELSE
WAIT WINDOW "مبلغ صفر ثبت نميشود " TIMEOUT 1
thisform.text10.SetFocus
ENDIF
thisform.text10.Value=0