Discussion :

[Kalvin_20]

Bnojour

je voudrais mettre à jour ma base de données en mettons un 0 à chaque emplacement vide

l'idée c'est ça :

j'ai une clé primaire qui va de 1 à 3754
je parcours ma table si je trouve un emplacement = ""
je met un 0 à la place
sinon je passe au next

est ce que vous pouvez m'aider à traduire ça en VBA

Merci
Cordialement

[Jean-Philippe André]

On te modifie toute ta base à ta place dis moi

tu adaptes cette requête à ton cas, et pour le VBA, même méthodologie que dans ton thread précédent.

Code SQL :

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

UPDATE [MaTable] SET [Monchamp]=0 WHERE LEN([MonChamp])=0;

[Kalvin_20]

Merci

et dsl jp le Sql j'y connais presque rien et ma base est beaucoup trop grande pour que je le fasse en manuelle (3750lignes et 76colonnes)

Pour le code ça devient ainsi :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim RS As DAO.Recordset
   Dim StrSQL As String
   Dim i As Integer
         StrSQL = "SELECT * FROM Matable"
         Set RS = CurrentDb.OpenRecordset(StrSQL, dbOpenDynaset, DbSeeChange)
         Do Until RS.EOF
            For i = 0 To RS.Fields.Count - 1
            RS.Edit
            RS.Fields(i) = MiseJour(RS.Fields(i))
            RS.Update
            Next i
            RS.MoveNext
         Loop

et ma fonction MiseJour aura comme code ça :

Code :

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

1
2
3
4
5
6
7
8
Function MiseJour(tempo As String) As String
   Dim tempo1 As String
   tempo1 = tempo
   'on test si c'est null 
   if tempo1 = "" then
      tempo1 = 0
   end if
End Function

c'est ça stp Jp

Merci d'avance moi je continue à tester

[Jean-Philippe André]

avec ce code, tu remplaces toutes les valeurs vides par 0, c'est ce que tu cherches à faire, n'est-ce pas ?

[Kalvin_20]

oui mais une fois que je fini mon premier passage dans ma function MiseJour
sa me genere une erreur comme quoi le champ ne peut pas etre mis à jour

[Jean-Philippe André]

en l'occurence, il faut que tu retournes une valeur en sortie de MiseJour, de type string

Code :

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

1
2
3
4
5
6
7
8
9
Function MiseJour(tempo As String) As String
   Dim tempo1 As String
   tempo1 = tempo
   'on test si c'est null 
   if tempo1 = "" then
      tempo1 = "0"
   end if
MiseJour = tempo1
End Function

[Kalvin_20]

mdrrr

on sait tous trompé mais sa arrive

puisque mes champs sont Null, on passera jamai dans la fonction MiseJour qui prend comme entrée un string


J'ai modfié le code de la façon suivante :

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
Sub miseajour()
   'Dim tempoTable As DAO.TableDef
   Dim RS As DAO.Recordset
   Dim StrSQL As String
   Dim i As Integer
   'For Each tempoTable In CurrentDb.TableDefs
    '  If InStr(tempoTable.Name, "Msys") = 0 Then
         StrSQL = "SELECT [Pièces Bonnes] FROM AAAA"                  '[" & tempoTable.Name & "]
         Set RS = CurrentDb.OpenRecordset(StrSQL, dbOpenDynaset, DbSeeChange)
         Do Until RS.EOF
            For i = 0 To RS.Fields.Count - 1
            RS.Edit
            If IsNull(RS.Fields(i)) Then
               RS.Fields(i) = MiseJour()
            End If 'SuppressionCaracteresSpeciaux(RS.Fields(i))
            RS.Update
            Next i
            RS.MoveNext
         Loop
      'End If
   'Next
End Sub

et la fonction MiseJour :

Code :

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

1
2
3
4
5
Function MiseJour() As String
      Dim tempo1 As String
      tempo1 = "0"
      MiseJour = tempo1
End Function

ça marche nikel

Merci à toi Jp tu es un AS