مشکل عجیب باLostfocus تکست باکس

[hassan_ml75]

من تعداد زیادی فرم درون برنامه دارم که نزدیک به 20 تا از اونها شکلشون مثله همه ، کنترل ها رو تو یه فرم طراحی کردم بعد توی فرم های دیگه کپی کردم ، حالا تو بقیه فرم ها غیر از فرم اول وقتی از یه Textbox خارج میشیم یا به عبارتی Lostfocus میشه کل تکست باکس پاک میشه ! و نمیتونم مطلبی درون تکست باکس ها درج کنم

اگه میشه زود راهنمایی بفرمایید ممنونم

[hassan_ml75]

کسی نبود راهنمایی کنه؟

[hassan_ml75]

من به این راهنمایی نیاز دارم

[www.pc3enter.tk]

سلام حداقل یک نمونه بزار ببنیم مشکل چیه

[hassan_ml75]

این فایل ضمیمه هستش
این برنامه کار نمیکنه

[hassan_ml75]

اگه میشه یکم زود راهنمایی کنید خیلی گیرش هستم

[ahmad abdoli]

سلام

دلیل اینه که شما خاصیت datasource اون ها رو و هم چنین dataField ها رو مقدار دهی کردی.


با توجه به کدی که استفاده کردید نیاز نیست این حاصیت ها رو مقدار دهی کنید.



اگه هم می خوایید که از این روش استفاده کنید با به این صورت عمل کنید.
1- توی FormLoad این
Adodc1.Recordset.AddNew
رو بنویسید.

2-توی Button هم این رو

Adodc1.Recordset.Update
Adodc1.Refresh

MsgBox "ÈÇ ãæÝÞíÊ ËÈÊ ÔÏ", vbInformation, "ËÈÊ"

txtid.Text = ""
txtkod.Text = ""
txtname.Text = ""
txtfamily.Text = ""
txtfather.Text = ""
txtshpar.Text = ""
txtphone.Text = ""
txtadrees.Text = ""
DBC1.Text = ""
txtdata.Text = ""
txttavasot.Text = ""

[hassan_ml75]

ممنونم ازتون

[hassan_ml75]

میشه اون برنامه رو درست کنید تا منم یاد بگیرم بهم ضمیمه کنید ممنون میشم

[hassan_ml75]

حل شد با تشکر از شما دوست گرامی مشکل اینجا بود که تکست باکس ها رو به دی بی وصل کرده بودم برا همون حذف میشدند (فقط میتونستند نشون بدند و حذف بشند)