Discussion :

[marcelisa2]

bonjour,

débutant en VB sous access, je cherche à effectuer la mise à jour suivante pour chacun de mes enregistrements de ma table.

Voici l'exemple joint


A chaque rupture d'une nouvelle valeur, il faut remplir les enregistrements vides par la valeur de la rupture.

Comment dois je procéder ?
Merci pour votre retour

[mout1234]

Bonjour et bienvenu sur le forum.


Tu peux notamment t'en sortir en VBA en faisant en parcourant ta table au moyen d'un recordset.

QQ chose du genre (code saisi dans ce message ... non testé)

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
Dim oDb As Database
Dim orst as DAO.Recordset
DIm sCurValue as string
 
Set oDB = Currentdb
Set oRst = oDB.OpenRecordset("SELECT Champ3 FROM MaTable ORDER BY ...")
While not orst.EOF
   if Nz(orst!Champ3,"") = ""  then
        orst.edit
        orst!Champ3 =sCurValue
        orst.Update
   else
      sCurValue = orst!Champ3
   endif
   orst.Movenext
Wend
 
orst.Close: set orst = nothing
Set oDB=nothing

[marcelisa2]

Merci pour la réponse.
Je vais essayer de faire fonctionner le programme

[marcelisa2]

j'ai commencé à débugger ma petite fonction dans un module de ma Table access 2002 ( A2939 SRCHFOR ) du type :

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
Option Compare Database
Option Explicit
 
Function modiJOBMVS()
 
Dim oDB As DAO.Database
Dim orst As DAO.Recordset
Dim sCurValue As String
 
Set oDB = CurrentDb()
Set orst = oDB.OpenRecordset("SELECT Champ3 FROM A2939 SRCHFOR")
While Not orst.EOF
   If Nz(orst!Champ3, "") = "" Then
        orst.edit
        orst!Champ3 = sCurValue
        orst.Update
   Else
      sCurValue = orst!Champ3
   End If
   orst.MoveNext
Wend
 
orst.Close: Set orst = Nothing
Set oDB = Nothing
 
End Function

Mais j'ai toujours l' erreur de compilation : "type défini par l'utilisateur non défini". J'ai commencé à regarder votre aide en ligne mais je n'ai pas encore trouvé où est mon erreur de débutant. Merci par avance pour votre aide

[marcelisa2]

J'ai trouvé la réponse dans votre aide. J'avais oublié une coche dans "option/Références". Je continue mon debuggage

[marcelisa2]

Le programme founrni a très bien marché.
Merci