Discussion :

[christophe77100]

Bonjour je débute sur Access, je voudrai compter le nombre de site qui contiennent par exemple :

http://www.truc.toto1
http://www.truc.toto2
http://www.truc.toto3
http://www.truc.toto4

http://www.troc.tata1
http://www.troc.tata2
http://www.troc.tata3

http://www.trac.tata1
http://www.trac.tata2


Et que cela me donne (je pense à une requête mais je ne suis pas assez callé pour ca)
http://www.truc =4
http://www.troc =3
http://www.trac =2

Se sont des liens internet d'un champs.
Merci pour votre aide

[marot_r]

Bonjour.

Est-ce que le type du champ source est "HyperLien" ou "Texte" ?

A+

[christophe77100]

Bonjour.

Est-ce que le type du champ source est "HyperLien" ou "Texte" ?

A+

Bonjour, oui ce sont des hyperlien.

[marot_r]

Bonjour.

Les champs HyperLien sont des champs mémo structurés comme suit :

Test affiché # Nom du fichier # Une référence dans le fichier (cf http://allenbrowne.com/casu-09.html).

Cela les rends un peu délicat à manipuler.

Essaye une requête du genre :

Code sql :

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

select CStr([TaTable].[TonChamp]) as [TexteHL] from [TaTable]

Si on est chanceux cela va transformer ton champ HyperLine en bête champ texte plus facile à manipuler.

Sinon tu peux regarder ici
Issues with the Hyperlink data type in Microsoft Access
http://www.codekabinett.com/rdumps.p...link-data-type
un article intéressant qui traite de ton sujet.

A+

[christophe77100]

Bonsoir, j'ai testé ca mais il reste un probleme j'ai dans ce champ des lignes vide et la plus de comptage mais #erreur

Requêté sql qui fonctionne quand je l'exécute directement (ligne vide ou pas)

Code sql :

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

1
2
3
4
SELECT NomSite([Lien recette]) AS Nom, Count(T_recettes.N°) AS Quantité
FROM T_recettes
WHERE ((Not (T_recettes.[Lien recette]) Is Null))
GROUP BY NomSite([Lien recette]);

et en VBA :

Code sql :

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

1
2
3
4
5
6
7
8
9
Function NomSite(Adresse As String) As String
Dim Site1 As String
Dim Site2 As String
 
Site1 = InStr(Adresse, ".") + 1
Site2 = InStr(Site1, Adresse, "/") - Site1
 
NomSite = Mid(Adresse, Site1, Site2)
End Function

Et dans ma zone de texte : cela fonctionne mais sans lignes vides.
=Nz(RechDom("[Quantité]";"R_NomSite";"[Nom] = [TxtSiteInternet]");0)

J'ai forcement zappé quelque chose. Merci pour ton aide en tout cas.

[marot_r]

Essaye :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Function NomSite(Adresse As String) As String
  if Adresse <>"" then
    Dim Site1 As String
    Dim Site2 As String
 
    Site1 = InStr(Adresse, ".") + 1
    Site2 = InStr(Site1, Adresse, "/") - Site1
 
    if site1<>0 and site2<>0 then
       NomSite = Mid(Adresse, Site1, Site2)
    end if
 
  end if
End Function

A+

[christophe77100]

Je viens de tester et cela fait pareil

[marot_r]

Bonjour.

Tu l'erreur sur quel champ ?

A+

[christophe77100]

dans ma zone de texte

[marot_r]

Il n'y a pas de champ [texte] dans ta requête, il y a un champ [nom] et un champ [quantité].

Lequel affiche l'erreur ?

A+

[christophe77100]

le #erreur apparaît dans la zone de texte ou est placé
=Nz(RechDom("[Quantité]";"R_NomSite";"[Nom] = [TxtSiteInternet]");0)

[marot_r]

Essaye :

Code :

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

=Nz(RechDom("[Quantité]";"R_NomSite";"[Nom] = """ & me.[TxtSiteInternet] & """");0)

A+

[christophe77100]

Maintenant cela me donne #Nom ?