Here is the code
When I run this 2 or 3 identical records will appear, despite the warning saying only 1 row is about to be appended.
Code:
Dim insertStatement As String
insertStatement = "INSERT INTO tableDisplay (name, manufacturerID, cableID, transportInterfaceID, powerCableID, backLightInverterID, notes) " & _
"VALUES ('" & subFormDisplay!modelNameTextBox & "', " & _
subFormDisplay!selectModelManufacturerComboBox & ", " & _
subFormDisplay!selectModelCableComboBox & ", " & _
subFormDisplay!selectModelTransportInterfaceComboBox & ", " & _
subFormDisplay!selectModelPowerCableComboBox & ", " & _
subFormDisplay!selectModelBackLightInverterComboBox & ", '" & _
subFormDisplay!modelNotesTextBox & "')"
'DoCmd.SetWarnings (False)
DoCmd.RunSQL (insertStatement)
DoCmd.SetWarnings (True)
selectDisplayComboBox.Requery
When I run this 2 or 3 identical records will appear, despite the warning saying only 1 row is about to be appended.