四时宝库

工作环境：ACCESS2013

主要知识点：窗体设计、控件属性、事件过程

实现过程：

1、数据表的设计，见表设计器

2、窗体的设计

见窗体设计器，主要有文本框、按钮、子窗体

3、修改窗体控件的名称，便于后面的事件过程书写

4、事件过程

查找记录按钮的事件过程：

Private Sub find_Click()
?
Dim strSQL As String
 
 strSQL = "SELECT * FROM tb1 WHERE xm Like '*" & Me.xm & "*'"
?
 result.Form.RecordSource = strSQL
?
End Sub
?

清空按钮的事件过程：

Private Sub cls_Click()
Me.xm = ""
Call find_Click
End Sub

5、最后效果图