我又来问了~~

wdlyd

我在模块里写了如下代码：（目的是： 在我执行这个过程的时候只要输入[中国]或[中]字就能显示出[中国科学院]和[中国美术馆]的资料等等~~）
请高手帮我改改~~谢谢了~~

Sub 销售查询_单位()
Dim answer As String
answer = InputBox(Prompt:="请输入单位")

    Dim stDocName As String
    Dim stLinkCriteria As String
   
   
    stDocName = "销售合同表"
   
    stLinkCriteria = "[销售单位]=" & "'" & answer & "'"
   
DoCmd.OpenForm stDocName, , , stLinkCriteria


End Sub

zhengjialon

其中一句改成：stLinkCriteria = "[销售单位] like " & "'*" & answer & "*'"，试试，没测过

wdlyd

不行~~系统说找不到宏 销售单位=like " & "'*" & [] & "*'"，

我同意

wdlyd

Sub GetInfo()
Dim answer As String
answer = InputBox(Prompt:="输入")
   Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "销售合同表"
   
    stLinkCriteria = "SELECT 销售单位 FROM [销售合同表] WHERE [销售合同表].[销售单位] Like " * " & answer & " * ""
    DoCmd.OpenForm stDocName, , , stLinkCriteria


End Sub
提示我“错误13，类型不匹配”
请问是什么不匹配，如何修改？

sea.er

stLinkCriteria = "SELECT 销售单位 FROM [销售合同表] WHERE [销售合同表].[销售单位] Like '*" & answer & "*'"

试试

wdlyd

语法错误3075

sea.er

把你的库传上来吧

wdlyd

6M大的表怎么传呀~

算了~~谢谢斑竹了~~[em20]