Discussion :

[Daniel MOREAU]

Bonjour à tous,

Je souhaite supprimer les premiers caractères du champ "Nom" de ma table "Tbl_TempLstTbl".

J'ai une fonction :

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
 
Function CleanUp(ByVal str As String) As String
Dim tmp() As String
Dim i As Integer
 
tmp = Split(str)
CleanUp = vbNullString
For i = 0 To UBound(tmp)
Select Case tmp(i)
Case "TARIF_"
Case Else
CleanUp = CleanUp & " " & tmp(i)
End Select
Next i
CleanUp = Trim$(CleanUp)
End Function

et à l'ouverture de mon formulaire j'ai ajouté le code 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
 
Private Sub Form_Open(Cancel As Integer)
Dim Mabase As Database
Dim Data As Recordset
Dim Vsql As String
Vsql = "SELECT Tbl_TempLstTbl.Nom FROM tbl_TempLstTbl"
Vsql = Vsql & " WHERE (((Tbl_TempLstTbl.Nom) Like 'TARIF_*'));"
'déclaration des variales
Set Mabase = CurrentDb
Set Data = Mabase.OpenRecordset(Vsql, dbOpenDynaset)
'initialise le recordset en mémoire
If Data.EOF Then Exit Sub
'recherche s'il existe une valeur
Do Until Data.EOF
'appel de la fonction par exemple MàJ_Tarif data![N°_Tarif]
CleanUp Data![Nom]
Data.MoveNext
Loop
Data.Close
Set Data = Nothing
Set Mabase = Nothing
 
End Sub

Malheureusement les caractères "TARIF_" ne sont pas supprimés.

Avez-vous une idée ?

Merci pour vos réponses

Daniel

[Tofalu]

Une requête UPDATE faisant appel à la fonction replace est suffisant

[Daniel MOREAU]

Merci Tofalu pour ta réponse,

Je viens de tester avec la fonction replace mais cette fois ci j'ai un message d'erreur.

Voici 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
 
Private Sub Form_Open(Cancel As Integer)
Dim Mabase As Database
Dim Data As Recordset
Dim Vsql As String
Vsql = "UPDATE Nom set Tbl_TempLstTbl.Nom = replace(Nom, TARIF_,"");"
'déclaration des variales
Set Mabase = CurrentDb
Set Data = Mabase.OpenRecordset(Vsql, dbOpenDynaset)
'initialise le recordset en mémoire
Debug.Print Vsql
If Data.EOF Then Exit Sub
'recherche s'il existe une valeur
Do Until Data.EOF
Mabase.Execute Vsql
Data.MoveNext
Loop
 
Data.Close
Set Data = Nothing
Set Mabase = Nothing
 
End Sub

je pense que cette partie n'est pas bonne

replace(Nom, TARIF_,"")

Pouvez-vous m'aider à rédiger correctement.

Merci

Daniel

[=JBO=]

Bonsoir,

Alors ?
Encore ces "maudits" guillemets qui perturbent une commande SQL !
Faudrait voir à les DOUBLER... comme ceci...

Et puis la requête SQL ne semble pas correcte non plus...

Et franchement, appeler un champ en utilisant le libellé [Nom], c'est vraiment risqué (problèmes de syntaxe, d'ambiguïté...)

Code :

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

1
2
 
Vsql = "UPDATE Tbl_TempLstTbl SET Nom = Replace(Tbl_TempLstTbl.Nom, TARIF_,"""")"

LE BON REFLEXE:
Tu pourrais utiliser le débogueur pour contrôler la valeur de cette variable Vsql, récupérer le texte de la requête et tester son fonctionnement dans une requête Access (d'ailleurs, il y a un tutoriel sur ce thème sur Access.Developpez.com, non ?).