12464.html

来自「以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题」· HTML 代码 · 共 22 行

HTML
22
字号
<html>
  <head>
    <title>如何可以在Searching里做以下的动作(Show &amp; Repeat)!!!</title>
  </head>
  <body bgcolor="#FFFFFF" vlink="#808080">
    <center>
      <h1>如何可以在Searching里做以下的动作(Show &amp; Repeat)!!!</h1>
    </center>
<hr size=7 width=75%>

<hr size=7 width=75%><p>
Posted by <a href="mailto:cloudyland@yahoo.com">Cloudyland</a> on April 29, 1999 at 08:55:43:<p>
现在我想问一下如下的Coding里,如果我想当所输入的String是有(已经存在另一张Form的Data里时,就跳到那张Form作Show的为(frmApplicationForm.Show)。<br>但如果当Stirng是没有的话,出完MsgBox "Not Found......",那跟住的动作应该是叫输入者再入过资料(即Repeat先前的动作),直至资料是存在的。<br>那我的问题是如何加Show和Repeat的动作。<p>Private Sub cmdSearch_Click()<br>Dim strID As String<br>strID = InputBox("Input I.D.:", "I.D.")<br>If strID <> "" Then<br>frmApplicationForm.datAF.Recordset.FindFirst "ID = " & "'" & strID & "'"<br>'将所入的资料Link到另一张Form的Data那里来Check资料<br>End If<br>If frmApplicationForm.datAF.Recordset.NoMatch Then<br>MsgBox "Not Found(" & strID & ") this ID!"<br>'找不到传在那张Form的Data内<br>End If<br>End Sub<p>请帮帮忙,Thankz。<br>
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 12464-->
</ul><!--end: 12464-->
<br><hr size=7 width=75%><p>

</body></html>

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?