标题: vba不能更新 [打印本页] 作者: czp627 时间: 2007-9-11 21:08 标题: vba不能更新 我销货窗体。写了存盘代码。我想在存盘的同时更新受订表的已交数和结案与否。因我的销货单是根据受订带过来的。所以我想在销货存盘更新受订的相关“已交数”和 “结案与否”
我刚学VBA，那位帮我看看，多谢！！！！！作者: czp627 时间: 2007-9-11 21:10
补充一下：我的想法是如果受订结案，销货单就不从受订带过来，也就是不能销货，我想达到些功能作者: Henry D. Sy 时间: 2007-9-11 23:33
Private Sub CmdBookInMsgSave_Click()
Dim rs As New ADODB.Recordset
Dim cnn As New ADODB.Connection
Dim strSql As String
Set cnn = CurrentProject.Connection
strSql = "select * from 受订 where 受订单号='" & Me.受订单号 & "'"
rs.Open strSql, cnn, adOpenKeyset, adLockOptimistic
If IsNull(Me.数量) Or IsNull(Me.受订单号) Then
MsgBox "数量,受订单号,不可为空！！"
Me.CmdsdInput.SetFocus
Else
rs.Fields("结案") = True
rs.Fields("已交数") = Me.数量
rs.Update
rs.Close
Set rs = Nothing
Set cnn = Nothing
End If
End Sub