怎么不显示

蒋笃淅　发表于：2008-04-14 11:45:02 　

Private Sub Command0_Click()
Dim BH As String, X
BH = InputBox("请输入姓名:", "按姓名查找")
' X = DLookup("[Page]", "Person", "[Pname]=" &   BH & )
X = DLookup("Page", "Person", "Pname = " & BH)
If Len(X) <> 0 Then
Debug.Print X
' Text1.Value = X
   Else
   Debug.Print "无此人"
   End If

Top

钱玉炜发表于：2008-04-14 12:11:57

没具体测试你的代码

不过这里"Pname = " & BH应该是有问题的

bh为字符型应该使用"Pname = '" & bh & "'"

Top

朱亦文发表于：2008-04-14 20:26:28

你要打开立即窗口

Top

蒋笃淅发表于：2008-04-15 17:18:46

Private Sub Command0_Click()
Dim BH As String, X
BH = InputBox("请输入姓名:", "按姓名查找")

X = DLookup("Page", "Person", "Pname= " & "'" & BH & "'")
If Len(X) <> 0 Then
Debug.Print X
   Else
   Debug.Print "无此人"
   End If

搞定

Top

总记录：3篇页次：1/1 9 1 :

Access交流中心

怎么不显示