مشکل در متود find

[conter]

دوستان من یک دیتا بیس دارم که access هستش و یک منوی search واسه برنامم گذاشتم ولی تابع find روی کاراکتر های طولانی خطا میده مثلا واسه سن و اسم درست کار میکنه ولی واسه شماره شناسنامه مثلا خطا میده اینم کدش :



dim a as string
Dim b As String
b = Combo1.Text
a = InputBox("ebarate morede nazar ra vared konid")
If a <> Empty Then

Adodc1.Recordset.MoveFirst
Adodc1.Recordset.Find b & "= '" & a & "'"
If Adodc1.Recordset.EOF Then
MsgBox "record morede nazar yaft nashod"
End If

Else
MsgBox "lotfan yek ebarat vared konid"
End If

[conter]

و یک سوال دیگه اینکه چه طور میشه متغییر های یک فرم رو از طریق یک فرم دیگه تغییر داد ؟
مثلا من در فرم 1 نام کاربری و رمز عبور رو وارد میکنم و وارد نرم افزار میشم و میخوام توی فرم 3 نام کاربری و رمز رو تغییر بدم ولی هر چی فکر کردم نفهمیدم چظور میشه این کار رو کرد ؟؟؟

[niko2008]

و یک سوال دیگه اینکه چه طور میشه متغییر های یک فرم رو از طریق یک فرم دیگه تغییر داد ؟
مثلا من در فرم 1 نام کاربری و رمز عبور رو وارد میکنم و وارد نرم افزار میشم و میخوام توی فرم 3 نام کاربری و رمز رو تغییر بدم ولی هر چی فکر کردم نفهمیدم چظور میشه این کار رو کرد ؟؟؟
ببین بنویس
form3.label1.caption=adodc1.rcordset.filds x

[niko2008]

دوستان من یک دیتا بیس دارم که access هستش و یک منوی search واسه برنامم گذاشتم ولی تابع find روی کاراکتر های طولانی خطا میده مثلا واسه سن و اسم درست کار میکنه ولی واسه شماره شناسنامه مثلا خطا میده اینم کدش :



dim a as string
Dim b As String
b = Combo1.Text
a = InputBox("ebarate morede nazar ra vared konid")
If a <> Empty Then

Adodc1.Recordset.MoveFirst
Adodc1.Recordset.Find b & "= '" & a & "'"
If Adodc1.Recordset.EOF Then
MsgBox "record morede nazar yaft nashod"
End If

Else
MsgBox "lotfan yek ebarat vared konid"
End If


دوست عزیز برای اینکه کاراکتر هاتو داخل ("کاراکتر")trim نمیزاری

[conter]

دوست عزیز برای اینکه کاراکتر هاتو داخل ("کاراکتر")trim نمیزاری

ممنون منظورت اینه که هنگام وارد کردن عبارت مورد نظر در هنگام search باید بگذارمش داخل " " ؟

[niko2008]

منظورم اینه:





"'" &(Adodc1.Recordset.Filter = Combo1.Text & " Like '" & trim(a

[conter]

ممنون دوست عزیز ولی بازم مثلا وقتی بر اساس فامیل یا شماره شناسنامه سرچ میکنم این خطا رو میده :
run - time error '3001':
arguments are of the wrong type, are out of acceptable range , or are in confict with one another

[fooladvb]

ممنون دوست عزیز ولی بازم مثلا وقتی بر اساس فامیل یا شماره شناسنامه سرچ میکنم این خطا رو میده :
run - time error '3001':
arguments are of the wrong type, are out of acceptable range , or are in confict with one another

Adodc1.Recordset.Filter = "id like '" & Text1.Text & "'"