franco...@gmail.com
unread,Dec 18, 2018, 8:08:41 AM12/18/18You do not have permission to delete messages in this group
Either email addresses are anonymous for this group or you need the view member email addresses permission to view the original message
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