A family of Microsoft relational database management systems designed for ease of use.
For that you'd use the NotInList event procedure of the ColorID combo box in the subform to insert a row into the Color table:
Private Sub ColorID_NotInList(NewData As String, Response As Integer)
Dim ctrl As Control
Dim strSQL As String, strMessage As String
Set ctrl = Me.ActiveControl
strMessage = "Add " & NewData & " to list?"
strSQL = "INSERT INTO Color(Color) VALUES(""" & _
NewData & """)"
If MsgBox(strMessage, vbYesNo + vbQuestion) = vbYes Then
CurrentDb.Execute strSQL, dbFailOnError
Response = acDataErrAdded
Else
Response = acDataErrContinue
ctrl.Undo
End If
End Sub
When the user types a new colour into the combo box they'll be prompted to confirm the addition of the new item to the list, and on their answering yes, the code executes an SQL statement to insert a row into the table.