Private Sub Text1_Change()
Picture1.Visible = False
Data2.Recordset.MoveFirst
If Text6.Text <> "" Then
Data2.Recordset.FindFirst " HouseReference = '" + Text1.Text + "'"
Picture1.Visible = True
End If
End Sub
多谢!!!
...全文
895打赏收藏
哪位高人帮我看看这段简单的代码哪出错了??谢谢!!
Private Sub Text1_Change() Picture1.Visible = False Data2.Recordset.MoveFirst If Text6.Text "" Then Data2.Recordset.FindFirst " HouseReference = '" + Text1.Text + "'" Picture1.Visible = True End If End Sub 多谢!!!