Discussion :

[jessy212]

bonjour

comment je peux à travers un code sur vb supprimer la valeur d'un champ dans une table de la base et remplacer par une autre ?

merci de m'aider

[random]

en écrivant une requête update qui fait la modif
puis en la faisant tourner dans une fonction
ou en lancant un replace

[vador972]

Bonjour
Essai ça

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
 
dim MyRec as recordset
Sub xxx()
Dim MyRec As Recordset
 
 
'ouverture d'un recordset
Set MyRec = CurrentDb.OpenRecordset("SELECT NomDuChamp FROM NomDeTaTable WHERE NumeroDeLaLigneDuChamp=" & Valeur & ";")
 
'mise à jour des données
With MyRec
    .Edit
    .Fields(0) = "Nouvelle valeur"
    .Update
    .Close
End With
 
End Sub

Documente toi également sur les recordset et la synthaxe sql. Bon courage

[vador972]

La première ligne qui s'est glissée est inutile bien sûr... Désolé.

[vador972]

encore une rectification (pas bien réveillé)

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
 
Sub xxx()
Dim MyRec As Recordset
 
 
'ouverture d'un recordset
Set MyRec = CurrentDb.OpenRecordset("SELECT NomDuChamp FROM NomDeTaTable WHERE ChampClePrimaire=" & Valeur & ";")
 
'mise à jour des données
With MyRec
    .Edit
    .Fields(0) = "Nouvelle valeur"
    .Update
    .Close
End With
 
End Sub

[jessy212]

merci bien vador972, ca marche