vba不能更新

czp627

我销货窗体。写了存盘代码。我想在存盘的同时更新受订表的已交数和结案与否。因我的销货单是根据受订带过来的。所以我想在销货存盘更新受订的相关“已交数”和 “结案与否”
   我刚学VBA，那位帮我看看，多谢！！！！！

czp627

补充一下：我的想法是如果受订结案，销货单就不从受订带过来，也就是不能销货，我想达到些功能

Henry D. Sy

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