vba 访问表未从 sql 字符串更新

Question

我是一名“星期日”开发人员，试图在 MS Access 中创建一个关于“作家和书籍”的数据库，与多对多的关系。 我有一张“书”表、一张“作者”表和一张用于多对多关系的中间表。 我写了几行来更新“中间”表，在表单（作者）的子表单（书）上有一个组合框。 问题是：当我通过组合框添加新的“书”时，代码更新表“书”和中间表，刷新不是立即的，所以我无法立即在组合框上找到新值，而只能按下菜单栏上的“全部刷新”图标后。

   Private Sub ID_COL_LIBRO_NotInList(NewData As String, Response As Integer)
   On errot GoTo Error_Handler
   Dim IntAnswer As Integer
   Dim Sqlstring As String
   IntAnswer = MsgBox(" " & NewData & " è un nuovo nominativo.  " & vbCrLf _
   & "vuoi aggiungerlo adesso ?", vbYesNo + vbQuestion, "Nome Sconosciuto")
   Select Case IntAnswer
       Case vbYes
           Sqlstring = "INSERT INTO LIBRI (TITOLO) VALUES ( '" & NewData & "')"
           DoCmd.SetWarnings False
           DoCmd.RunSQL Sqlstring
           Dim datab As DAO.Database
           Dim rcslibri As DAO.Recordset
           Dim strultrec As String
           Set prova_relazione_m_a_m = CurrentDb
           Set rstlibri = prova_relazione_m_a_m.OpenRecordset("LIBRI")
           rstlibri.MoveLast
           strlastrifliblibro = rstlibri!RIF_LIB_LIBRO
           Dim str_idcolaut As String
           str_idcolaut = Me!RIF_AUT_AUTORE.Value
           Sqlstring = "INSERT INTO tab_collegamento (id_col_libro, id_col_autore) VALUES ( '" & strlastrifliblibro & "','" & str_idcolaut & "')"
           DoCmd.RunSQL Sqlstring
           DoCmd.SetWarnings True
           rstlibri.Close
           Response = acDataErrAdded
       Case vbNo
           MsgBox "Allora seleziona un nome dalla lista.", vbExclamation + vbOKOnly, "Selezione errata"
   End Select
   Response = acDataErrContinue
exit_procedure:
DoCmd.SetWarnings True
Exit Sub
Error_Handler:
MsgBox Err.Number & ", " & error_Description
Resume exit_procedure
Resume
End Sub

Answer 1

您的表单/子表单设计不正确。书籍不应该是作者的子形式。 Books 和 Authors 是用于将数据输入到联结表 (BooksAuthors) 中的查找表。通常的方法是：

1. 主窗体绑定到书籍，子窗体绑定到连接表，并带有一个用于选择作者的组合框；或
2. 主窗体绑定到作者，子窗体绑定到连接表，并带有一个用于选择书籍的组合框；或
3. 一个绑定到连接表的表单，带有两个组合框来选择书籍和作者。

然后在向 BookAuthors 输入数据期间，使用 NotInList 事件“即时”向 Books 或 Authors 输入新记录。