Discussion :

[jessy212]

j'ai une table qui contient des milliers d'enregistrements
l'un des champs de cette table contient des valeurs réelles aléatoires parmis lesquelles 0
ce que je souhaite c'est parcourir ce champ le long de la table et remplacer la valeur nulle qu'on rencontre à chaque fois par la valeur qui la précède (qui sera automatiquement non nulle bein sur)
comment dois je le faire ?

[random]

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
 
Function majour(table, champ, valeur As Variant) As Boolean
Dim mabase As DAO.Database
Dim comp As Variant
Dim rec As DAO.Recordset
Set mabase = CurrentDb()
Set rec = mabase.OpenRecordset("select * from " & table)
rec.MoveFirst
If VarType(valeur) = vbString Then comp = "" Else comp = 0
Do While Not rec.EOF
If IsNull(rec(champ)) Or IsEmpty(rec(champ)) Or rec(champ) = comp Then
rec.Edit
rec(champ) = valeur
rec.Update
Else: valeur = rec(champ)
End If
rec.MoveNext
Loop
majour = True
End Function

[cafeine]

Déjà bonjour, c'est plus urbain ...

ensuite, il faut impérativement passer par une fonction qui va parcourir un recordset ... n'hésite pas à faire des recherches dans le forum ou la FAQ pour ça.

[jessy212]

voila j'ai utilisé lecode suivant :

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
29
30
 
Public Function majour(table As Variant, champ As Variant)
 
Dim mabase As DAO.Database
Dim rec As DAO.Recordset
Dim cours As Double
 
Set mabase = CurrentDb()
Set rec = mabase.OpenRecordset("select " & champ & " from " & table)
rec.MoveFirst
 
Do While Not rec.EOF
If rec.Fields(champ) <> 0 Then
cours = rec.Fields(champ)
rec.MoveNext
Else
rec.Edit
rec.Fields(champ) = cours
rec.Update
rec.MoveNext
End If
Loop
 
'Libération des objets
rec.Close
mabase.Close
Set rec = Nothing
Set mabase = Nothing
 
End Function

merci c résolu

[random]

sauf si on commence par 10 0