Aggiungere nuovo valore a casella combinata

Question

Buongiorno Ragazzi vorrei risolvere questo problema ,  ho una maschera con visualizzazione continua, all'interno vorrei impostare una casella combinata con riferimento titolo corso, ho impostato il codice vba su non in elenco, ma nell'eseguire mi da   l'errore in Visual Basic in evidenza CurrentDb.Execute strSQL posto il codice :

Private Sub TITOLO_CORSO_NotInList(NewData As String, Response As Integer)

Response = acDataErrContinue

Dim intRisposta As Integer

Dim strvalore As String

intRisposta = MsgBox("Vuoi inserire " & vbLf & NewData & vbLf & " come nuovo dato?", vbInformation + vbYesNo)

If intRisposta = vbNo Then

Exit Sub

End If

strvalore = NewData

Dim strSQL As String

strSQL = "INSERT INTO TITOLO CORSO(TITOLO CORSO) VALUES (""" & strvalore & """)"

CurrentDb.Execute strSQL

Response = acDataErrAdded

Answer 1

Ciao,

il problema è nel nome della tabella e del campo perchè contengono degli spazi. Ti sconsiglio di usare spazi ne nomi degli oggetti perchè sarai sempre costretto ad usare le parentesi quadre.

Il tuo codice funziona se lo correggi così:

strSQL = "INSERT INTO [TITOLO CORSO] ([TITOLO CORSO]) VALUES (""" & strvalore & """)"

racchiudendo Titolo Corso tra parentesi quadre.

Ciao Mimmo

Answer 2

Risolto gentile come sempre

 grazie Mimmo.....

Answer 3

Aiuto ......Please