请教关于RecordSet的一个问题

11009997

现有一张Table含有Date, Address, Phone, Region, Name等字段列，并且已经有n条记录已经生成。同时还有一张Form含有相同名字Date, Address, Phone, Region, Name的文本框。我希望能在任意一个文本框中输入相关数据，其他文本框中会分别自动显示此纪录的其他相关信息，请问各位大虾应当如何简单的实现？谢谢！

zxp

好像不是那么简单啊！

sxgaobo

Me![Date] = DMax("[Date]", "[Table]", "[xxxx]=Form.[文本x]")
需要多条组合

本笨

试一下：

DIM RST AS RECORDSET
DIM SEARCHVALUE AS STRING

SET RST= CURRENTDB.OPENRECORDSET( "SELECT * FROM TABLENAME;")
SEARCHVALUE = ME.控件名称.VALUE

If DLookup("查找值", "TABLENAME", "查找值='" & SEARCHVALUE & "'") Then
rds.FindFirst ("查找值=" & SEARCHVALUE & "")
With Me
ME.TEXT1.CAPTION = RDS![DATE]
...
ENDWITH
ELSE
MSGBOX ( "COULDN'T FIND THE RIGHT RECORD")
Exit Sub
End If

放入到要输入文本框的更新后事件中。

或做成一FUNCTION，将各个控件名传递使用。

11009997

谢谢sxgaobo和本本。给了我很大的提示。

只是我在编译运行本本的代码时

Set rst = CurrentDb.OpenRecordset("Select * from CR;")报错了，error是type mismatch，CR是本数据库中的一张table,不知是为什么？

Roadbeg

建议这样定义 rst:
dim rst as dao.recordset

currentdb.openrecordset 返回 dao 型的 recordset
通常,ado 的引用在 dao 之前,使用
dim rst as recordset 是定义的 ado 型 recordset.
存在类型冲突.

11009997

万分感谢斑竹的金言，我在VBA里面添加object reference后，定义 dao.Recordset就可以用了。再次感谢本本！ ：）

本笨

呵呵，共同谈论，共同进步。这就是我们上这个论坛的目的哦。再加上从Roadbeg中多学了一着，哈哈