如何将已赋值和未赋值的文本框内容转移至新表中?

jp777

我在写一个库存表,为了避免错误所有的发货记录除数量外都是在库存查询中自动赋值至相应的文本框内,然后在将文本框中的内容转移至发货表中成为一条新的记录.现在想了解一下这项功能如何实现呢?下面是我的表.希望有人能够帮助我.谢谢.

jp777

不好意思，这个问题不应该问。我自己解出来了（看来水平还有待提高啊）。
Private Sub Addrecord_Click()
Dim rs As New ADODB.Recordset
Dim strsql As String
strsql = "select * from [Material Issue]"
rs.Open strsql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic '´ò¿ª¼Ç¼¼¯
            If IsNull(Me.[Storage bin].Value) = False And IsNull(Me.[Issue Qty].Value) = False Then
                rs.AddNew
                rs("Plant") = Me.Plant.Value
                rs("Area") = Me.Area.Value
                rs("Storage bin") = Me.[Storage bin].Value
                rs("SAP No") = Me.SAP_No.Value
                rs("Material") = Me.Material.Value
                rs("Spec") = Me.Spec.Value
                rs("Quantity") = Me.PickQty.Value
                rs("Unit") = Me.Unit.Value
                rs.Update
                Me.List0.Requery
            End If
rs.Close
End Sub

CRAZYPUMA

xuexi