Discussion :

[le_sonic]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[mcdotta]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

[le_sonic]

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

Merci bien mcdotta !!!

A bientot