Questo sito utilizza cookie, anche di terze parti, per migliorare la tua esperienza e offrire servizi in linea con le tue preferenze. Chiudendo questo banner, scorrendo questa pagina o cliccando qualunque suo elemento acconsenti all’uso dei cookie

Rimani informato sugli aggiornamenti di SOS-OFFICE. Inserisci il tuo indirizzo e-mail: Informativa sulla privacy

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
Joomla templates by a4joomla