这句有问题>> sql = "select Item from SOP where VW_Code =Me!VW_Code"
如果SOP表的“VW_Code”字段的数据类型是数字,则应这样写
sql = "select Item from SOP where VW_Code =" Me.VW_Code
如果SOP表的“VW_Code”字段的数据类型是文本,则应这样写
sql = "select Item from SOP where VW_Code ='" Me.VW_Code "'"
另外,为了避免窗体控件VW_Code没有输入内容时代码运行出错,请添加下列代码。
A) SOP表的“VW_Code”字段的数据类型是数字时的处理方法:
'..
If Not IsNumeric(Me.VW_Code) then
Msgbox "请输入一个数字"
Me.VW_Code.SetFocus
Exit Sub
End If
sql = "select Item from SOP where VW_Code =" Me.VW_Code
'.
B) SOP表的“VW_Code”字段的数据类型是文本时的处理方法:
'..
If IsNull(Me.VW_Cod) then
Msgbox "VW_Code不得为空"
Me.VW_Code.SetFocus
Exit Sub
End If
sql = "select Item from SOP where VW_Code ='" Me.VW_Code "'"
'.
如还有不明白,请发会问。