textBox1.Text = é¢ç§¯.ToString();
Data1.RecordSource = "select * from 表å where ç»å½å=" & "'" & Text1.text & "'"
Data1.Refresh
If Data1.Recordset.RecordCount = 1 Then
MsgBox "ç¨æ·åå·²å¨ä½¿ç¨ï¼è¯·éæ°è¾å
¥ã", , "æ示"
Exit Sub
End If
温馨提示:答案为网友推荐,仅供参考