Aggiungere un valore in casella combinata con avviso

Question

Buonasera,

in un db ho una maschera con sottomaschera e in quest'ultima una casella combinata con alcuni valori.

Vorrei poter aggiungere un nuovo valore e ricevere contestualmente un avviso di conferma.

La casella combinata è cosi predisposta:

• Solo in elenco: Si;
• Consenti modifiche a elenco: No;
• Eredita elenco valori: No;

-Mostra solo valori origine riga: Si

Ringrazio e porgo cordiali saluti.

Abitante

Answer 1

ciao Abitante,

visto che hai due controlli uguali, o meglio quasi uguali, la cui unica differenza è la tabella di riferimento, non vedrei male una soluzione come quella che segue.

Imposta l'origina riga della combo CboCfAutori : SELECT TblAutori.IdAutore, TblAutori.CodiceFiscale FROM TblAutori;

due colonne la prima con larghezza 0 la seconda 5.

crea un modulo standard con questa funzione :

Option Compare Database

Option Explicit

Public Function enterNewData(ByVal NewData As String, ByVal strSql As String) As Long

Dim lngResponse As Long

lngResponse = 7 ' vbno

If VBA.MsgBox(prompt:=NewData & " non è in elenco, vuoi aggiungerlo ?", _

               buttons:=vbYesNo + vbCritical, _

               title:="Attenzione") = vbYes Then

    DBEngine(0)(0).Execute Query:=strSql & NewData & "');", _

                           options:=&H80

    lngResponse = 6 ' vbyes

End If

enterNewData = lngResponse

End Function

-

che invocherai dai due eventi non in list :

Option Compare Database

Option Explicit

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

Const strSql As String = "insert into TblEditori (codiceFiscale) values ('"

If enterNewData(NewData:=NewData, strSql:=strSql) = 6 Then

    Response = acDataErrAdded

Else

    Response = acDataErrContinue

    Me.CboCfEditori = Null

End If

End Sub

Option Compare Database

Option Explicit

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

Const strSql As String = "insert into TblAutori (codiceFiscale) values ('"

If enterNewData(NewData:=NewData, strSql:=strSql) = 6 Then

    Response = acDataErrAdded

Else

    Response = acDataErrContinue

    Me.CboCfAutori = Null

End If

End Sub

ciao, Sandro.

Answer 2

Ciao Sandro,

ho apportato la modifica ma dà questo errore:

Allego la Demo.

Grazie.

Abitante

Answer 3

Ciao Abitante,

la sottomaschera quando e' nidificata all'interno di una maschera (embedded) e' un controllo, al pari di una textBox, comboBox, e tutti gli altri, ma e' pure sempre una maschera a tutti gli effetti.

Se si chiama SottomAutori,aprila con :

Forms!SottomAutori!CboCfAutori = NewData

Non mi piace tantissimo avere la stessa maschera aperta due volte, ma.....ok....Anche qui :

If MsgBox("CboCfEditori non è in elenco, vuoi aggiungerlo?", vbYesNo) = vbYes Then

valuta di mostrare nel messaggi non CboCfEditori, il nome del controllo, ma magari il newdata che stai tentando di aggiungere.Ciao, Sandro.

Answer 4

Ciao Sandro,

ho risolto con questo codice:

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

If MsgBox("CboCfEditori non è in elenco, vuoi aggiungerlo?", vbYesNo) = vbYes Then

  Response = acDataErrContinue

  DoCmd.OpenForm "FrmEditori", , , , acFormAdd

  Forms!FrmEditori!CboCfEditori = NewData

Else 

  Response = acDataErrContinue

  Me!CboCfEditori.Undo

End If

End Sub

Vorrei inserire una casella combinata per l'aggiunta del codice fiscale anche nella sottomaschera "SottomAutori".

Ho provato così, ma dà errore nella seconda riga.

DoCmd.OpenForm "FrmEditori", , , , acFormAdd

  Forms!FrmEditori!SottomAutori!CboCfAutori = NewData

Grazie.

Abitante

Answer 5

ciao Abitante,

vedi se questo ti aiuta :

https://docs.microsoft.com/en-us/office/vba/api/access.combobox.notinlist

http://www.donkarl.com/it/?FAQ4.13

https://www.fontstuff.com/access/acctut20.htm

https://www.devhut.net/2010/06/12/ms-access-vba-not-in-list-event/

Ciao, Sandro.