arminela
یک شنبه 27 شهریور 1384, 12:02 عصر
با سلام
من در حال نوشتن یک برنامه کتابخانه هستم.. الان میخوام بخش سرچ اونو طراحی کنم. هدف اینه که با دادن شماره شناسایی شخص مشخصات آن برگردانده شود. اما بعد از این که کد رو نوشتن برام پیام خطا میده : 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
من در حال نوشتن یک برنامه کتابخانه هستم.. الان میخوام بخش سرچ اونو طراحی کنم. هدف اینه که با دادن شماره شناسایی شخص مشخصات آن برگردانده شود. اما بعد از این که کد رو نوشتن برام پیام خطا میده : 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