使用单一表单将数据输入到多个表中 - MS access 2013

Question

我有5个表，我想输入数据。它只能用一个表单完成。我要输入的字段在所有5个表中具有相同的名称，例如：

Table 1:
Name
Age
DOB

Table 2:
Name
Age
DOB

Table 3:
Name
Age
DOB

Table 4:
Name
Age
DOB

Table 5:
Name
Age
DOB

是否可以使用每个字段的一个文本框将数据输入到每个表的所有这些字段中？

最好不必使用代码，但如果没有它就无法完成，那就没关系了。

Answer 1

是的 - 但不是没有编码。 我会在表单上放置三个文本框和一个“更新”按钮 - 然后是一些代码，如;

Private Sub cmdUpdate_Click()
    Dim db As Database
    Dim rst As Recordset
    Dim Tables(4) As String
    Dim strSql As String
    Dim i As Integer

    Set db = CurrentDb

    Tables(1) = "Table1Name"
    Tables(2) = "Table2Name"
    Tables(3) = "Table3Name"
    Tables(4) = "Table4Name"
    Tables(5) = "Table5Name"

    For i = 0 To UBound(Tables) - 1
        strSql = "SELECT a.* FROM " & Tables(i) & "a;"
        Set rst = db.OpenRecordset(strSql, , dbAppendOnly)
        With rst
            .AddNew
            .Fields("Name") = txtName.Value
            .Fields("Age") = txtAge.Value
            .Fields("DOB") = txtDOB.Value
            .Update
            .Close
        End With
    Next i
    set db = Nothing
End Sub

显然更改表/字段/控件名称以匹配您的表单。