Office中国论坛/Access中国论坛

标题: 为何表中的内容没有更新 [打印本页]

作者: yodong 时间: 2004-6-16 02:07
标题: 为何表中的内容没有更新
在ADP中,运行了如下代码:

Private Sub 产品编号_AfterUpdate()

On Error GoTo aa

Dim rs6 As ADODB.Recordset

Dim cn As ADODB.Connection

Dim sqlstr As String

Set rs6 = New ADODB.Recordset

Set cn = Application.CurrentProject.Connection

sqlstr = "select 产品编号,一体化编号,返修,返修日期  from  [tbl交检单-编号] where 产品型号='" & Me.产品型号 & "'" & " and 产品编号='" & Me.产品编号 & "'" & " And (出厂登记 = 0)"

rs6.Open sqlstr, cn, adOpenDynamic, adLockOptimistic

MsgBox rs6.RecordCount

If rs6.EOF Then

            MsgBox "没有此产品编号或已出厂,请重新输入!", , "订单系统"

            Me.Undo

Else

            If MsgBox("你确定此产品要返修吗?", vbYesNo, "订单管理系统") = vbYes Then

            MsgBox rs6("返修")

            MsgBox rs6("产品编号")

            rs6("返修") = True '把返修登记为真

            'rs6("返修日期") = Format(getsqlsvrtime(), "yy-mm-dd")

            'Me.一体化编号 = rs6("一体化编号")

            'rs6("一体化编号") = "dd"

            Else

            Me.Undo

            End If

End If

bb:

Exit Sub

aa:

MsgBox Err.Description, , "订单"

Resume bb

End Sub

本来想达到的效果是"返修字段"的值改为"true"的,

可是运行后却没有改变,记录是找到的.

MsgBox rs6("返修")

MsgBox rs6("产品编号")

有显示结果.

不知何故,难道ACCESS真的是不能做大型开发吗?

作者: yodong 时间: 2004-6-16 02:46
唉!原来漏了一个rs6.updata搞得我还以为ACCESS有问题了.害我弄了一个下午呀.头都痛了.

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