|
1、在库存子窗体来源设置
SELECT 库存.物料编码, 库存.物料名称, 库存.型号规格, 库存.单价, 库存.数量, 库存.计量单位, 库存.总价
FROM 库存
WHERE (((库存.物料编码) Like "*" & [form]![物料编码] & "*") AND ((库存.物料名称) Like "*" & [form]![物料名称] & "*") AND ((库存.型号规格) Like "*" & [form]![型号规格] & "*"))
2、在库存窗体设置代码
Private Sub CMD查询_Click()
Me.kcForm.Requery
End Sub
Private Sub cmd清除_Click()
Dim ctl As Control
For Each ctl In Form.Controls
If TypeOf ctl Is TextBox Then
ctl = Null
End If
Next
Me.kcForm.Requery '清空之后一样要重新查询
End Sub
效果见【库存】窗体 |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|