Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Casella di riepilogo a selezione multipla

76 views
Skip to first unread message

franco...@gmail.com

unread,
Dec 18, 2018, 8:08:41 AM12/18/18
to
Salve a tutti,
ho la necessità di modificare il dato di un campo (StaID) per più record contemporaneamente della tabella "TabStrumenti".
Ho creato una maschera con una casella di riepilogo dove poter selezionare più record e una casella combinata dove selezionare il valore da modificare.
Dopo aver effettuato le scelte, premendo il tasto "OK" vorrei eseguire una query di aggiornamento che modifica il campo "Stato della tabella "Strumenti". Di seguito il codice SQL di QueModificaStato

UPDATE TabStrumenti SET TabStrumenti.StaID = forms![MasModificaStato].[cbxStati]
WHERE (((TabStrumenti.StrID)=[forms]![MasModificaStato].[eleStrumenti]))

dove forms!MasModificaStato è la maschera, eleStrumenti è la casella di riepilogo, cbxStati è la combo box.

Purtroppo la casella di riepilogo restituisce il valore Null nonostante ci siano selezionati più record. Se invece disattivo la proprietà "Selezione Multipla" la casella di riepilogo restituisce correttamente il record selezionato.

Di seguito il codice su pulsante OK

Private Sub cmdOK_Click()
On Error GoTo Err_cmdOK_Click
Dim Messaggio As String
If IsNull(Me.eleStrumenti) Then
Messaggio = MiaMsgBox("Non hai selezionato nessuno strumento.@Riprova.@", vbExclamation + vbOKOnly, "ATTENZIONE")
Exit Sub
End If
If IsNull(Me.cbxStati) Then
Messaggio = MiaMsgBox("Non hai selezionato nessuno stato.@Riprova.@", vbExclamation + vbOKOnly, "ATTENZIONE")
Exit Sub
End If
DoCmd.SetWarnings False
CurrentDb.Execute ("QueModificaStato")
DoCmd.SetWarnings True
Exit_cmdOK_Click:
Exit Sub
Err_cmdOK_Click:
MiaMsgBox "Si è verificato il seguente errore:@Errore n° " & Err.Number & "@" & Err.Description & "@"
Resume Exit_cmdOK_Click
End Sub


Come si fa ad intercettare i valori selezionati dalla casella di riepilogo in selezione multipla?

Uso Access 2013

Grazie
Franco

@Alex

unread,
Dec 18, 2018, 9:50:54 AM12/18/18
to
Non ho capito molto se non la domanda Finale...!
La risposta è si itera l'Insieme ItemsSelected, come indicato nella Guida, in cui trovi un Esempio...

Per usarli poi però devi modificare l'impostazione del Criterio... usando l'Operatore [IN] come da esempio:
https://www.w3schools.com/sql/sql_in.asp

@Alex

franco...@gmail.com

unread,
Dec 18, 2018, 11:06:18 AM12/18/18
to
Perfetto, grazie.
0 new messages