代码如下:
Dim msg As String
msg = "number Like '" & msg & "'"
Data1.Recordset.FindFirst msg
If Data1.Recordset.NoMatch Then
MsgBox "找不到指定记录", vbOKOnly
Else
Data1.Recordset.FindNext msg
Dim msg As String
msg = "number Like '" & msg & "'"
Data1.Recordset.FindFirst msg
If Data1.Recordset.NoMatch Then
MsgBox "找不到指定记录", vbOKOnly
Else
Data1.Recordset.FindNext msg
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货