将多条记录从子窗体添加到主窗体 Access 2010

Question

是否可以将从子表单中选择的多个数据添加到主表单中？

Answer 1

Form.SelTop 和 .SelHeight 是这里的关键属性。

带有 subform.RecordsetClone 循环的示例：

Set F = Me.Subform.Form
Set RS = F.RecordsetClone
RS.MoveFirst
' goto first selected record
RS.Move F.SelTop - 1
' loop over all selected records
For i = 1 To F.SelHeight
    ' do something with fields from RS
    RS.MoveNext
Next i

Answer 2

对于select数据，最好使用列表字段然后在 table 中使用 VB 程序复制数据：

set rs1=currendb.openrecordset ("NAME OF TABLE)
For Z = 0 To Me.ListField.ListCount - 1
    If Me.ListField.Selected(Z) = True Then
        Rs1.addnew 
        rs1!field1 = Me.LisField.Column(0, Z)
        rs1!field2 = Me.LisField.Column(1, Z)     
    End If
next z

将多条记录从子窗体添加到主窗体 Access 2010

Add multiple records from subform to main form Access 2010

ms-access

ms-access-2010