如何通过窗体直接修改表中的记录？

chenghai

在表"main"中有三个字段：m1（m1是主索引）、m2。假设现有若干条记录。

一个窗体"gl"，有三个控件：文本框text1、text2，按钮qd。
"gl"没有数据源，文本框text1、text2都是不绑定字段。

现在问题是：当在text1、text2分别输入内容后，如果text1中的内容等于表main中某一条记录的m1，则修改该条记录的m2，使m2等于text2。如何实现？
（也就是通过窗体直接去修改表中符合条件的内容）

注：判断text1是否等于表main中的某一条记录的m1，我用的是DLookup函数。

chenghai

怎么没人教我？实际上我的问题就是：怎么在VBA中直接去修改某一个表中某一条记录中的某一个字段（符合某种条件情况下）。

我现在采用的方式是窗体gl的数据源就用表main，根据窗体控件text1的输入值找到需要修改的记录。但这样的方式我觉得很土。

LEEL

Dim nc As Connection
你可以在TEXT1的afterupdate()中使用ADO绑定数据源，使有find方法查找，代码如下：
  Dim rs As New ADODB.Recordset
  Set nc = CurrentProject.Connection
  rs.Open "main", nc, adOpenKeyset
  ABC = "[m1]='" & Me![text1] & "'"
  rs.Find ABC
  Me!text2 = rs!m2
  rs.update
其实我觉得做法没有什么土不土的，只要完成的简单、快捷就行！