Remplacer un anti-slash en sql sous access
Résolu
souloverride
Messages postés
15
Statut
Membre
-
souloverride Messages postés 15 Statut Membre -
souloverride Messages postés 15 Statut Membre -
Bonjour tout le monde;
J'ai un petit soucis sous access je doit remplacer le début de toute ma colonne filename.
C'est a dire : \\abcde\der\der\der\lasuitejegarde
Par rien.
Comment faire?
j'ai essayer avec Repalce :
Replace ( "\\abcde\der\der\der\lasuitejegarde", "\\abcde\der\der\der\", "" )
mais ca marche pas.
:(
Merci pour votre aide.
J'ai un petit soucis sous access je doit remplacer le début de toute ma colonne filename.
C'est a dire : \\abcde\der\der\der\lasuitejegarde
Par rien.
Comment faire?
j'ai essayer avec Repalce :
Replace ( "\\abcde\der\der\der\lasuitejegarde", "\\abcde\der\der\der\", "" )
mais ca marche pas.
:(
Merci pour votre aide.
A voir également:
- Remplacer un anti-slash en sql sous access
- Anti slash windows ✓ - Forum Clavier
- Comment faire un anti-slash ? ✓ - Forum Programmation
- Anti slash mac - Forum MacOS
- Slash a l'envers ✓ - Forum Clavier
- Anti slash sur mac ✓ - Forum Réseaux sociaux
1 réponse
Bon bah comme j'ai pas eu d'aide je me suis debrouiller tout seul.
Alors voila ma propre solution:
Dans le mode VB d'ACCESS:
J'ai crée un fonction GetClientName:
Function GetClientName(strFileName As String) As String
Dim strTemp As String
Dim index As Integer
Dim length As Integer
If Left(strFileName, 21) = "\\abcde\der\der\der\" Then
length = 21
Else
length = 19
End If
strTemp = Right(strFileName, Len(strFileName) - length)
index = InStr(1, strTemp, "\")
If index > 0 Then
GetClientName = Left(strTemp, index - 1)
Else
GetClientName = Left(strTemp, index)
End If
End Function
Puis dans ma requète j'ai juste ajouté:
Field: Clients: GetClientName([FileName])
Table:
Total: Group By
Sort: Ascending
Show: YES
Criteria: <>"" (Pour ne pas afficher les valeurs null)
Voili, Voila!!!!!
Bonne journée
Alors voila ma propre solution:
Dans le mode VB d'ACCESS:
J'ai crée un fonction GetClientName:
Function GetClientName(strFileName As String) As String
Dim strTemp As String
Dim index As Integer
Dim length As Integer
If Left(strFileName, 21) = "\\abcde\der\der\der\" Then
length = 21
Else
length = 19
End If
strTemp = Right(strFileName, Len(strFileName) - length)
index = InStr(1, strTemp, "\")
If index > 0 Then
GetClientName = Left(strTemp, index - 1)
Else
GetClientName = Left(strTemp, index)
End If
End Function
Puis dans ma requète j'ai juste ajouté:
Field: Clients: GetClientName([FileName])
Table:
Total: Group By
Sort: Ascending
Show: YES
Criteria: <>"" (Pour ne pas afficher les valeurs null)
Voili, Voila!!!!!
Bonne journée