# 可否帮帮我!!很急阿

Posted by steve on March 12, 1999 at 12:49:33:

Private Sub Text2_KeyPress(KeyAscii As Integer)
Dim find As String
Dim bk As Variant
If KeyAscii = 13 Then
bk = CustDb.Recordset.Bookmark
find = Text2.Text
CustDb.Recordset.FindFirst "COM_NAME='" & RTrim(find) & "'"
If CustDb.Recordset.NoMatch Then
Text19.SetFocus
Else
CustDb.Recordset.CancelUpdate
Othercon.Show
End If
End If
End Sub

不知那里错,只出了句ERROR MESSAGE就是
不符合相关栏位

如你们看不到那里错,或者不如我发出一个问题吧
其实是这样的我想在TEXT2里一按ENTER便会自动SEARCH我的COMPANY NAME,如有相同便会CANCEL UPDATE同埋SHOW出令一个FORM给他入DATA,如没有相同便会没有事发生事件再给他去TEXT3入资料
我TEXT2有DATABASE NAME同DATA SOURSE的
我的COMPANY NAME这个FIELDS叫COM_NAME
我最上面那些CODE便是这样,请问我应怎做或我有甚么错呢,请帮帮手,因很急的

Follow Ups:

- Re: 可否帮帮我!!很急阿 chjichin 15:50:52 3/12/99 (0)