Additionner des adresses de sites

Version imprimable

19/03/2017, 18h06
christophe77100

Additionner des adresses de sites

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
20/03/2017, 13h46
marot_r

Bonjour.

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

A+
20/03/2017, 14h35
christophe77100

Citation:

Envoyé par marot_r

Bonjour.

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

A+

Bonjour, oui ce sont des hyperlien.
20/03/2017, 14h50
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:

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+

Début de piste mais..

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:

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:

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.

Essaye :

Code:

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+

20/03/2017, 18h19
christophe77100

Pareil #erreur

Je viens de tester et cela fait pareil
20/03/2017, 18h29
marot_r

Bonjour.

Tu l'erreur sur quel champ ?

A+
20/03/2017, 18h34
christophe77100

dans ma zone de texte
20/03/2017, 18h47
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+
20/03/2017, 19h00
christophe77100

le #erreur apparaît dans la zone de texte ou est placé
=Nz(RechDom("[Quantité]";"R_NomSite";"[Nom] = [TxtSiteInternet]");0)
20/03/2017, 19h15
marot_r

Essaye :

Code:

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

A+
20/03/2017, 19h22
christophe77100

Maintenant cela me donne #Nom ?