Discussion :

[moilou2]

Bonjour, j'ai une requete qui alimente une zone de liste depuis une table.

J'ai les données de ma table depuis Excel.

Dans ma table les numéros de téléphones sont collés (0000000000).

Je voudrais savoir comment forcer l'affichage dans ma zone de liste pour avoir des espaces entre les différents numéros (00 00 00 00 00), sachant qu'il arrive que des numéros soient autres que français.

Merci

[moilou2]

Je pense que c'est au moment du chargement des données qu'il faut imposer une mise en forme. C'est à dire dans la requete SQL qui charge la zone de liste.

Il faut faire une manipulation du genre Format(00 00 00 00 00 00,MonChampAForcer)

Mais le soucis c'est que je charge toute la table:

Code :

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

sql = "select * from tbl_Fournisseur where Id_Fournisseur = " & Id_Fournisseur & ";"

Et que les 3 champs à forcer dans cette table sont:

-TelPortable
-TelFixe
-Fax

[Baba75AB]

J'utilise également également des N° de tèl dans une de mes tables, et c'est au moment de la création de mes champs que j'ai mentionné le format à appliquer...
En mode modif de ta table, tu te positionne sur la ligne "Masque de saisie" Onglet Général, et tu rentres cette valeur :

00\ 00\ 00\ 00\ 00;0;_

Ainsi a chaque fois que tu feras appel à ce type de champ, il sera systématiquement formaté style (dans cette exemple) 01 42 20 30 40 (N° bidon ! )

Bonne continuation.

[moilou2]

Re, merci pour le tuyau, mais j'ai déja un masque en fait, mais j'ai exporté une base de plus de 1000 fournisseurs et ces derniers n'ont donc pas de masque car ils n'ont pas été rentrés depuis le formulaire.

[Invité]

Bonjour

Ce n'est pas parce qu'ils n'ont pas été saisi par un formulaire que tu ne peux changer le format.

Mets le masque indiqué sur le champ de table et fait une requête pour voir le résultat.

Philippe

[fgiambelluco]

Bonjour

J'utilise également également des N° de tèl dans une de mes tables, et c'est au moment de la création de mes champs que j'ai mentionné le format à appliquer...
En mode modif de ta table, tu te positionne sur la ligne "Masque de saisie" Onglet Général, et tu rentres cette valeur :

Citation:
00\ 00\ 00\ 00\ 00;0;_

Ainsi a chaque fois que tu feras appel à ce type de champ, il sera systématiquement formaté style (dans cette exemple) 01 42 20 30 40 (N° bidon ! )

Il faut faire attention à ne pas mélanger Masque de saisie et format .
Le masque de saisie est là pour controler la saisie, alors que le format est là pour modifier l'affichage d'une donnée.
Dans l'exemple cité au dessus, le champ n'acceptera plus que les N° de téléphone à 10 chiffres, ce qui ne répond plus à

sachant qu'il arrive que des numéros soient autres que français.

[moilou2]

Re,

Quelle est la solution alors?

[fgiambelluco]

Re
Pour reprendre l'idée de Philippe JOCHMANS tu modifies les format de tes champs dans la table en mettant @@ @@ @@ @@ @@ puisque normalement les champs sont de type texte.

[moilou2]

Re,

J'ai fait ce que vous m'avez dit.

Le format c'est bien mis dans la table, mais les numéros ne s'affichent plus dans ma zone de liste, en mode formulaire.

Voici ma requete:

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
Public Sub RefreshQuery()
Dim sql As String, sqlSelect As String, sqlWhere As String, sqlGroup As String
Dim oRst As DAO.Recordset
Dim odb As DAO.Database
Set odb = CurrentDb
 
sqlSelect = "SELECT tbl_Fournisseur.Id_Fournisseur, tbl_Fournisseur.NomSociete as [Nom de la société], tbl_Fournisseur.NomInterlocuteur as [Nom Interlocuteur], tbl_Fournisseur.PrenomInterlocuteur as [Prénom Interlocuteur], tbl_Fournisseur.TelFixe as [Téléphone fixe], tbl_Fournisseur.TelPortable as [Téléphone Portable], tbl_Fournisseur.Fax, tbl_Fournisseur.[Email] as [Email] FROM tbl_Fournisseur "
sqlWhere = " WHERE (((tbl_Fournisseur.Id_Fournisseur) <> 0)) "
 
If txtRefresh = 1 Then
    sqlWhere = sqlWhere + " and tbl_Fournisseur.NomSociete like '" & txtRechFournisseur.Text & "*' "
End If
 
sql = sqlSelect + sqlWhere
 
Me.listeRésultat.RowSource = sql
Me.listeRésultat.Requery
End Sub

Pourtant quand je fait une requete via l'assistant, les numéros apparaissent bien.

[fgiambelluco]

Re
Désolé, j'avais oublié que si un champ texte à un format, il n'apparait plus dans les listes déroulantes (bug depuis 2003)
Donc il faut enlever le format dans la table et modifier la requete pour formater le N° Tel.
A priori:

Code :

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

format(tbl_Fournisseur.TelFixe,"00 00 00 00 00") as [Téléphone fixe]

[RootsInternationnal]

J'aurai créée une variable tel
Puis décomposition a l'aide d'un MID()

Code :

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

Mid(tel, 1, 2) & space(1) & Mid(tel, 4, 5) ........

[moilou2]

re,

J'ai testé ça:

Code :

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

format(tbl_Fournisseur.TelFixe,"00 00 00 00 00") as [Téléphone fixe]

ça me met "Attendu fin d'instruction"

[fgiambelluco]

Je peux avoir ta clause SQL complète ?

[moilou2]

Voila :

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
Public Sub RefreshQuery()
Dim sql As String, sqlSelect As String, sqlWhere As String, sqlGroup As String
Dim oRst As DAO.Recordset
Dim odb As DAO.Database
Set odb = CurrentDb
 
sqlSelect = "SELECT tbl_Fournisseur.Id_Fournisseur, tbl_Fournisseur.NomSociete as [Nom de la société], tbl_Fournisseur.NomInterlocuteur as [Nom Interlocuteur], tbl_Fournisseur.PrenomInterlocuteur as [Prénom Interlocuteur], format(tbl_Fournisseur.TelFixe,"00 00 00 00 00") as [Téléphone fixe], tbl_Fournisseur.TelPortable as [Téléphone Portable], tbl_Fournisseur.Fax, tbl_Fournisseur.[Email] as [Email] FROM tbl_Fournisseur "
sqlWhere = " WHERE (((tbl_Fournisseur.Id_Fournisseur) <> 0)) "
 
If txtRefresh = 1 Then
    sqlWhere = sqlWhere + " and tbl_Fournisseur.NomSociete like '" & txtRechFournisseur.Text & "*' "
End If
 
sql = sqlSelect + sqlWhere
 
Me.listeRésultat.RowSource = sql
Me.listeRésultat.Requery
End Sub

[RootsInternationnal]

Code :

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

Mid(TelFixe, 1, 2) & Space(1) & Mid(TelFixe, 3, 2) & Space(1) & Mid(TelFixe, 5, 2) & Space(1) & Mid(TelFixe, 7, 2) & Space(1) & Mid(TelFixe, 9, 2)

Bonne chance

[fgiambelluco]

Re
Je ne vois rien de particulier.
Et si tu enlèves ce que tu as mis pour le format sur TelFixe ça fonctionne ?

[moilou2]

J'en fait quoi de ça?

[fgiambelluco]

Bonjour RootsInternationnal

Code :
Mid(TelFixe, 1, 2) & Space(1) & Mid(TelFixe, 3, 2) & Space(1) & Mid(TelFixe, 5, 2) & Space(1) & Mid(TelFixe, 7, 2) & Space(1) & Mid(TelFixe, 9, 2)

Le problème avec ce code c'est que les n° de téléphones de plus de 10 chiffres seronts tronqués et s'ils sont plus courts on va droit vers un message d'erreur.

[moilou2]

Re
Je ne vois rien de particulier.
Et si tu enlèves ce que tu as mis pour le format sur TelFixe ça fonctionne ?

Oui, si j'enleve le format, ma liste s'affiche bien sauf que les numéros sont collés

Non mais je pense que le code que tu m'a envoyé est bon, mais il doit manquer des caractères spéciaux pour qu'il soit valide.

Si quekqu'un a déjà travailler avec ce type de code.

Merci

[moilou2]

Re
Je ne vois rien de particulier.
Et si tu enlèves ce que tu as mis pour le format sur TelFixe ça fonctionne ?

Oui, si j'enleve le format, ma liste s'affiche bien sauf que les numéros sont collés

Non mais je pense que le code que tu m'a envoyé est bon, mais il doit manquer des caractères spéciaux pour qu'il soit valide.

Si quekqu'un a déjà travaillé avec ce type de code.

Merci