Oggi voglio parlarvi di Access. Anche in questo caso, il post nasce da una esigenza che ho avuto nel mio lavoro quotidiano: infatti avevo bisogno di svuotare, via codice, un campo multivalore da una maschera. Non è possibile assegnargli una stringa vuota o il valore zero, sarebbe troppo facile ;) e allora, come si fa? Ve lo spiego di seguito.
Bisogna ricorrere a DAO e creare un recordset con i valori scelti nel campo e quindi eseguire un ciclo in tutti i suoi valori e cancellarli. Immaginiamo che il campo multivalore da svuotare si chiami SCELTE. Ecco come "svuotarlo" con VBA
Private Sub svuotaCampoMultiplo()
Dim rstCampoMultiplo As DAO.Recordset
Set rstCampoMultiplo = Me.Recordset.SCELTE.Value
Do While rstCampoMultiplo.EOF = False
rstCampoMultiplo.Delete
rstCampoMultiplo.MoveNext
Loop
Me.SCELTE.Requery
End Sub