# 如何可以出Searching的动作(Show & Repeat)!!!

Posted by Cloudyland on April 27, 1999 at 22:31:34:

现在我想问一下如下的Coding里，如果我想当所输入的String是有(已经存在另一张Form的Data里时，就跳到那张Form作Show的为(frmApplicationForm.Show)
。但如果当Stirng是没有的话，出完MsgBox "Not Found ......"，那跟住的动作应该是叫输入者再入过资料(即Repeat先前的动作)，直至资料是存在的。那我的问题是如何加Show和Repeat的动作。

Private Sub cmdSearch_Click()
Dim strID As String
strID = InputBox("Input I.D.:", "I.D.")
If strID <> "" Then
frmApplicationForm.datAF.Recordset.FindFirst "ID = " & "'" & strID & "'"
'将所入的资料Link到另一张Form的Data那里来Check资料
End If
If frmApplicationForm.datAF.Recordset.NoMatch Then
MsgBox "Not Found(" & strID & ") this ID!"
'找不到传在那张Form的Data内
End If
End Sub

请帮帮忙，Thankz。

Follow Ups: