• VBA
• Access

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

• Indietro
• Avanti