مشکل جستجو

[arminela]

با سلام

من در حال نوشتن یک برنامه کتابخانه هستم.. الان میخوام بخش سرچ اونو طراحی کنم. هدف اینه که با دادن شماره شناسایی شخص مشخصات آن برگردانده شود. اما بعد از این که کد رو نوشتن برام پیام خطا میده : syntax error (missing operator) in experession
حالا چیکار کنم؟؟
پیشا پیش از کمک شما سپاس گذارم !!

Private Sub txt_KeyPress(Index As Integer, KeyAscii As Integer)
If KeyAscii = 13 Then
If Len(txt(6)) > 0 Then
dt3.Recordset.FindFirst "code user='" + txt(6).Text + "'"
If dt3.Recordset.NoMatch = True Then
MsgBox ("ãÔÎÕÇÊ ˜ÇÑÈÑ ãæÑÏ äÙÑ íÏÇ äÔÏ")
Else
MsgBox ("ãÔÎÕÇÊ ˜ÇÑÈÑ ãæÑÏ äÙÑ íÏÇ ÔÏ")
'cmd_up.Enabled = True
End If
End If
End If
End Sub

[mRizvandi]

سلام

من برنامه شما رو چک کردم و به هیچ اشکالی بر نخوردم. فکر کنم باید برنامه ات رو بذاری تا ببینم که مشکل از کجا می تونه باشه.

[dr_g]

با سلام
دوست عزیز مشکل قطعا در این خط وجود دارد:

dt3.Recordset.FindFirst "code user='" + txt(6).Text + "'"

[ehsan_ansaripoor]

دوست عزیز اگر نوع فیلد شما Text نباشد نباید آن را داخل علامت '' قرار دهید و اگر Text است و داخل علامت '' قرار می گیرد باید متوجه این باشی که شماره شناسایی فرد کامل باشه و در غیر این صورت باید قبل و بعد علامت '' کارکتر * بزاری و از عملگر Like استفاده کنی به صورت زیر:
data1.Recordest.Findfirst "Code User like '*" & textbox & "*'" a