Office中国论坛/Access中国论坛

标题: 在窗体中如何实现查询更新 [打印本页]

作者: fisho 时间: 2007-8-15 17:32
标题: 在窗体中如何实现查询更新
通过窗体按钮来实现，查找表中与窗体文本框内容想同的记录（SN），并把相应的CO这项改为是（VBA）？

[ 本帖最后由 fisho 于 2007-8-15 17:38 编辑 ]

作者: Henry D. Sy 时间: 2007-8-16 09:28
标题: 回复 #1 fisho 的帖子
1。将文本框改为组合框----方便输入数据以及防止输入不在表中的Sn值
2。按钮事件中加入下面代码
Dim rs As New adodb.Recordset
Dim cnn As New adodb.Connection
Dim strSql As String
Set cnn = CurrentProject.Connection
strSql = "select * from main where sn='" & Me.TXTSN & "'"
rs.Open strSql, cnn, adOpenKeyset, adLockOptimistic
With rs
.Fields("co") = True
.Update
End With
rs.Close
Set rs = Nothing
Set cnn = Nothing

[ 本帖最后由 dddddd 于 2007-8-16 09:38 编辑 ]

作者: fisho 时间: 2007-8-16 11:14
谢谢！！！！

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)