请问如何再这个窗体上加一个检索

kylinluck

我想在窗体上加一个对于字段ID的检索控件，输入ID后可以定位到相应的记录，以方便在窗体中输入数据
请教各位

zhuyiwen

1# kylinluck

新增一个文本框 txtID，用来输入要搜索 ID 的值。

1. 
   
2. Private Sub 搜索_Click()
   
3.     Dim bm
   
4.     Dim rs As Recordset
   
5.    
   
6.     Set rs = Me.RecordsetClone
   
7.     If Not IsNull(txtID) Then
   
8.         If rs.EOF And rs.BOF Then
   
9.         Else
   
10.             rs.FindFirst "ID='" & Me.txtID & "'"
    
11.             If rs.NoMatch Then
    
12.                 MsgBox "没找到 ID 为 " & txtID & " 的记录。"
    
13.             Else
    
14.                 Me.Recordset.Bookmark = rs.Bookmark
    
15.             End If
    
16.         End If
    
17.     End If
    
18. End Sub
    

复制代码

tianzhiyi

学习中

davidliu9116

感谢分享
学习看看

wunan7810

谢谢分享，学习中！