Effacer contenu d'une colonne sur Access

Effacer contenu d'une colonne sur Access - VB/VBA/VBS - Programmation

Marsh Posté le 31-01-2013 à 15:35:39    

Bonjour,  
 
J'aimerais savoir comment écrire un code VBA sur Access afin d'effacer tout le contenu d'un champ.  
 
Par exemple j'ai 5 champs, j'aimerai que le code efface tout ce qu'il y a dans le 5e champ (la 5e colonne donc).  
 
Merci d'avance.  
 
Cordialement.  
 
 

Reply

Marsh Posté le 31-01-2013 à 15:35:39   

Reply

Marsh Posté le 31-01-2013 à 15:39:36    

Reply

Marsh Posté le 31-01-2013 à 15:47:16    


 
Salut,
 
Ce n'est pas exactement ça car ce que tu m'as montré va supprimer le champ.
 
Moi j'aimerais que le champ existe toujours mais que celui-ci soit vide.  :)  
 

Reply

Marsh Posté le 31-01-2013 à 15:51:09    

Euh je voulais dire que ce que tu m'as montré est valable pour Excel mais pas pour Access non ?

Reply

Marsh Posté le 31-01-2013 à 15:51:24    

ah ok désolée :)

Reply

Marsh Posté le 31-01-2013 à 15:57:34    

Ceci alors peut etre, je sais que ça marche sur excel, ça devrait être la même chose sur access, ou bien il ne devrait pas y avoir beaucoup de différence :)
Dim Cell As Variant
Columns("C:C" ).Select
For each cell in selection
     If Cell.Value <> "" Then
            Cell.ClearContents
     Else
            Exit For
     End If
Next cell


Message édité par minimoack le 31-01-2013 à 16:01:30
Reply

Marsh Posté le 31-01-2013 à 15:57:56    

j'ai mis la colonne C, mais adapte à ton code ;)

Reply

Marsh Posté le 31-01-2013 à 16:04:08    

minimoack a écrit :

j'ai mis la colonne C, mais adapte à ton code ;)


 
Effectivement ça ne marche que sur Excel  :cry:  
 
J'ai mis le nom de mon champ de table à la place de C:C mais une erreur m'indique que Columns est impossible.
 
Merci tout de même  ;)

Reply

Marsh Posté le 31-01-2013 à 16:34:41    

Code :
  1. update Table1 set Field1 = ''


 
ou
 

Code :
  1. update Table1 set Field1 = null


 
Devraient suffire. ;)


Message édité par sh_kyra le 31-01-2013 à 16:35:40
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed