Remplacer un anti-slash en sql sous access
Résolu/Fermé
souloverride
Messages postés
15
Date d'inscription
vendredi 29 juin 2007
Statut
Membre
Dernière intervention
11 décembre 2008
-
4 juil. 2007 à 10:47
souloverride Messages postés 15 Date d'inscription vendredi 29 juin 2007 Statut Membre Dernière intervention 11 décembre 2008 - 11 juil. 2007 à 10:01
souloverride Messages postés 15 Date d'inscription vendredi 29 juin 2007 Statut Membre Dernière intervention 11 décembre 2008 - 11 juil. 2007 à 10:01
A voir également:
- Remplacer un anti-slash en sql sous access
- Slash clavier ✓ - Forum MacOS
- Anti slash qwerty - Forum Windows
- Slash droit ✓ - Forum Autres distributions Linux
- Anti slash sur mac ✓ - Forum MacOS
- Antislash sur mac book air - Forum MacOS
1 réponse
souloverride
Messages postés
15
Date d'inscription
vendredi 29 juin 2007
Statut
Membre
Dernière intervention
11 décembre 2008
3
11 juil. 2007 à 10:01
11 juil. 2007 à 10:01
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
