With Tables("成品入库表")
Dim r As Integer
r = .FindRow("[客户名称] =" & Tables("销售单").Current("客户") &"")
If r >= 0 Then \'如果找到符合条件的行
Tables("选择型号_Table1").Filter = "[客户名称] = "& tables("销售单").Current("客户") & ""
Else
e.Form.Close
MessageBox.Show("没有该客户的入库产品")
End If
End With