Discussion :

[MAMANHOU]

Bonjour,

j'ai un problème avec cette ligne de code :

Code :

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

1
2
3
4
 
Set rst4 = db.OpenRecordset("SELECT T_client.N°, GetHyperlink([SITE_INTERNET],2) AS site FROM T_client WHERE T_client.N°=" & Forms("f_abonne").Form.frm_Dossiers![AUTO_AJOUT] & ";")
...
strMessage = strMessage & vbCrLf & vbCrLf & "Vous pouvez également consulter leur site internet à l'adresse : " & rst4.Fields("site").Value & " "

pour info j'ai pris ce code sur le forum car mon adresse de site internet ne s'affichait pas correctement à l'extraction : www.xxxxx.fr#http://www.xxxxx.fr/# = avec le code ci-dessous = c'est résolu

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
 
Function GetHyperlink( _
    ByVal strLink As String, _
    Optional ByVal hlpClearPrefix As HyperlinkPrefix _
        = HyperlinkPrefix.none) As String
 
    ' Quelques variables
    Dim strTemp As String
    Dim intI As Integer
    Dim intJ As Integer
 
    ' Position du premier #
    strTemp = ""
    intI = InStr(1, strLink, "#", vbTextCompare)
 
    If intI > 0 Then
        ' Position du second #
        intJ = InStr(intI + 1, strLink, "#", vbTextCompare)
 
        If intJ > 0 Then
            ' Partie Adresse
            strTemp = Trim(Mid(strLink, intI + 1, intJ - intI - 1))
 
            ' Suppression du mailto: si nécessaire
            If ((hlpClearPrefix = HyperlinkPrefix.all) _
                Or (hlpClearPrefix = HyperlinkPrefix.mailto)) _
                And (LCase(Left(strTemp, 7)) = "mailto:") Then
                strTemp = Mid(strTemp, 8)
            End If
 
            ' Suppression du http:// si nécessaire
            If ((hlpClearPrefix = HyperlinkPrefix.all) _
                Or (hlpClearPrefix = HyperlinkPrefix.http)) _
                And (LCase(Left(strTemp, 7)) = "http://") Then
                strTemp = Mid(strTemp, 8)
            End If
        End If
    End If
 
    GetHyperlink = strTemp
End Function

Lorsque le champ site_internet est vide, Access 2010 me dit erreur 3464 type de données incompatibles... Sinon tout marche bien.
merci d'avance pour votre aide
Mamanhou

[marot_r]

Bonjour.

Sur quelle ligne l'erreur se produit-elle ?

A+

[MAMANHOU]

la surbrillance est sur la ligne

Code :

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

strMessage = strMessage & vbCrLf & vbCrLf & "Vous pouvez également consulter leur site internet à l'adresse : " & rst4.Fields("site").Value & " "

Mamanhou

[marot_r]

Surprenant.

Essaye en enlevant le .value de Fields("site").Value.

A+