再求各位大侠一个问题，菜鸟请教openform 的一个问题

clhny　发表于：2010-05-12 20:31:09 　

我现在建有一个表A,A表里含有两个字段如料号，中文名称

同时在查询中建了一个A表的简单查询叫 A 查询内含料号，中文名称

现在我在表单中建了个表单叫 B B表单资料来源于 A 查询

接着我建了个 C 表单，C表单有个查找 B 表单具体某个料号的按钮Command0

我的目的就是当我输入要查找的料号时，B表单能直接显示要找的内容。

于是我写了下边的代码

Private Sub Command0_Click()
Dim e As String
e = InputBox("请输入查找料号", "输入")
DoCmd.OpenForm "B", , , "[料号]= a"

End Sub

但是这个结果是错误的，我知道问题就在"[料号]=e"
但是不知道，这样写才能把这个e的值付给[料号]

求各位大侠帮忙了。谢谢

江羽发表于：2010-05-12 20:32:42

DoCmd.OpenForm "B", , , "[料号]=" & e

clhny 发表于：2010-05-12 20:40:42

师傅，不对哦，我试了，结果还是一样，

clhny 发表于：2010-05-12 20:42:11

数据库还是将e当做一个要求输入查找得字段名处理，

clhny 发表于：2010-05-12 21:19:35

我自己想了个办法，不知是否还有更好的，方法是这样的

Private Sub Command0_Click()
Dim rstMy As Object
DoCmd.OpenForm "b", , , "[料号] = a"

   Set rstMy = Forms("b").Recordset
If rstMy.RecordCount < 1 Then
   DoCmd.Close
MsgBox "no   record"

End If

End Sub

直接把A的字段名加给b表条件，然后在进行判断，这样就把不符合条件的给屏蔽掉

如果符合条件就跳出来，不符合就把B给关掉

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

Access交流中心