使用按钮将记录添加到多个表

Question

我在表单上创建了一个按钮以添加到多个表中。所以我和下面的表是多对多的关系：

• tblComputer（计算机）
• tblHDD(硬盘)
• tblComputer-HDD（计算机，硬盘）

在表单上，​​我有两个文本框：txtComputer 和 txtHDD。当我单击按钮时，记录将被添加到所有表中。如果 tblComputer 或 tblHDD 的记录存在，那么它只会将它添加到 tblComputer-HDD 中。任何帮助都会很棒！我还在以下链接中提供了数据库：

Add Item database

这也是我的 vba 代码：

Private Sub btnAdd_Click()
  Dim db As Database
  Dim Computer As Recordset
  Dim CompHDD As Recordset
  Dim HDD As Recordset

  Set db = CurrentDb
  Set Computer = db.OpenRecordset("Select * from [tblComputer]")
  Set CompHDD = db.OpenRecordset("Select * from [tblComputer-HDD]")
  Set HDD = db.OpenRecordset("Select * from [tblHDD]")

  If Computer.NoMatch = True Then
    Computer.AddNew
    Computer("Computer") = Me.txtComputer
    Computer.Update

  ElseIf HDD.NoMatch = True Then
    HDD.AddNew
    HDD("HDD") = Me.txtHDD
    HDD.Update

  Else
    CompHDD.AddNew
    CompHDD("Computer") = Me.txtComputer
    CompHDD("HDD") = Me.txtHDD
    CompHDD.Update
  End If

  txtComputer.Value = ""
  txtHDD.Value = ""

  Set Computer = Nothing
  Set CompHDD = Nothing
  Set HDD = Nothing
  Set db = Nothing
End Sub

Answer 1

如果您在所有三个表上都放置了一个主键，那么您可以简单地附加这些值。 PK 将防止添加重复项。

我将使用以下命令将计算机和 HDD 对添加到 tblComputer-HDD 表中。您应该能够更改语法以处理此示例中的其他两个表追加。

DoCmd.SetWarnings False
DoCmd.Execute "INSERT INTO [tblComputer-HDD] ([Computer], [HDD]) VALUES ('" & Me.txtComputer & "', '" & Me.txtHDD & "')"
'Other Code
DoCmd.SetWarnings True