📄 12464.html

📁 以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题.对一些VB初学者很用.

💻 HTML

字号:

<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 + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -