Вставить в избранное иногда работает, а иногда нет

Question

Я ценю любую подсказку или помощь

У меня есть база данных, содержащая связанную таблицу и разделенную форму, на которой есть флажок. Я хотел бы скопировать текущую запись в форме (определенные поля) в связанную таблицу, если флажок установлен в true.

Я назначил это на событие щелчка флажка:

Private Sub CBor_Click()
Dim CBor As CheckBox
Dim dbs As DAO.Database
Dim strInsert As String

If Me.CBor = False Then Exit Sub
Else: Set dbs = CurrentDb
  strInsert = "INSERT INTO EchoID(Room, [Date], PtName, MRN, Dx, CVT)" & _
       "SELECT Room, LogBookDate, PatientName, MRN, Diagnosis, StaffName FROM Logbook_tBL " & _
       "WHERE (((Logbook_tBL.LogBookID)=" & Me.txtLogBookID & "))"
    Debug.Print strInsert
   CurrentDb.Execute strInsert, dbFailOnError
End If
End Sub

Это, наконец, не дало никакой ошибки, но иногда работает, а иногда нет. Поскольку он не выдает ошибки, я понятия не имею, как устранить неполадки. Цени любые намеки.