Con questo codice VBA:
Private Sub cboIngredienti_NotInList(NewData As String, Response As Integer)
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strMsg As String
strMsg = "'" & NewData & "' non è un nome disponibile"
strMsg = strMsg & vbCrLf & "Desidera aggiungerlo all'elenco ?"
strMsg = strMsg & vbCrLf & "Clic su Sì per aggiungerlo, su No " & "per selezionarne uno esistente."
If MsgBox(strMsg, vbQuestion + vbYesNo, "Aggiungere un nuovo Ingrediente ?") = vbNo Then
Response = acDataErrContinue
Else
Set db = CurrentDb
Set rs = db.OpenRecordset("INGREDIENTI", dbOpenDynaset)
rs.AddNew
rs!NomeIngrediente = NewData
rs.Update
rs.Close
Response = acDataErrAdded
End If
End Sub
inserisco nuovi valori nella cbo (che ha una colonna associata, ed ha origine riga la tabella Ingredienti), in particolare nuovi ingredienti nella omonima tabella.
Poi entro nella maschera sulla tabella ingredienti e compilo i campi rimasti vuoti, dato che in tabella Ingredienti non ho solo IDIngredienti e NomeIngrediente, ma anche altri campi.
Come sarebbe possibile modificare, se lo è, questo codice per inserire gli altri dati nella tabella ingredienti, non presenti nella cbo ?