Remplacement 0 par NuLL

Bonjour,

J'ai une base ou j'importe une table en fonction d'un fichier excel.
Dans cette table, j'ai besoin aprés importation de supprimer les 0 par des NULL.

Cela marche trés bien d'apres mon code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

'Procédure de chargement du formulaire Dim db As Database Dim rc As Recordset   Set db = CurrentDb   DoCmd.SetWarnings False   Set rc = db.OpenRecordset("Export", dbOpenDynaset)   'On se place sur le premier enregistrement rc.MoveFirst   'Tant que l'on atteint pas la fin du recordset While Not rc.EOF 'Mode édition rc.Edit 'Condition de changement de donnée Dim lField As DAO.Field For Each lField In rc.Fields If lField.Value = "0" Then lField.Value = Null Next 'Mise à jour de la table rc.Update 'Passage au champ suivant rc.MoveNext Wend

---

Par contre je ne voudrais pas les mettres TOUS a zero. Je m'explique:
c'est une table avce des factures suivant les mois :

-------- Janvier Fevrier Mars Avril
Fact01 ---- 458 -- 0 -- 48 -- 0
Fact02 --- 74 ---- 2 -- 165 -- 0

Donc si j'importe celle ci au mois de mars , je voudrais supprimer que les zero a partir d'avril (mai, juin ...)

Comment le faire a partir de mon code ??

Merci

Hello,


Alors moi je dirai que quelque part, lorsque tu importes, tu dois choisir via une liste déroulante le mois (1 pour janvier, 2 pour février ....)

Au moins ca permet de savoir à partir de quelle colonne mettre les valeurs à null

Ensuite, plutôt que de faire un For Each lField, tu pourrais faire un for du style :

Code:

---

1 2 3 4 5 6 7 8 9

Dim bytMois as byte dim i as integer   bytMois = Me.ChoixMois (ton combo de choix de mois)   for i = bytMois to 12 If rc.Fields(i).Value = "0" Then rc.Fields(i).Value = Null next

---

Voilà, c'est brut de fonderie mais en creusant ça doit pouvoir le faire...

Et ben le brut de fonderie je ne connaissais pas !! mais ca le fait comme tu dis

Merci bien mcdotta !!!

A bientot