Discussion :

[morobaboumar]

Bonsoir membres du forum,
Le champ E_mail est du type de données lien hypertexte dans ma table "Tbl_DerniereAdresse".

1°) Remarque: une fois qu'on y enregistre des données, il est impossible d'apporter des modifications en cas de besoin.
Question: que faut il faire pour apporter des modifications de données dans le champ lien hypertexte ?

2°) Mon code

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
 
'Fonction ramenant la dernière adresse enregistrée d'un
'Client ou Opérateur (2e méthode)
Public Function DerniereAdresseEnregistreeClient_Operateur(IdCli_Op As Long, idAdr As Long) As String
Dim bd As Database
Dim R As Recordset
Dim sql As String
Set bd = CurrentDb
sql = "SELECT * FROM Tbl_DerniereAdresse AS DACO WHERE DACO.ID_Clients_Operat = " & IdCli_Op & " AND DACO.ID_Adresse = " & idAdr & _
" AND DACO.ID_Adresse = (select max(ID_Adresse) from [Tbl_DerniereAdresse] where ID_Clients_Operat = DACO.ID_Clients_Operat and ID_Adresse = DACO.ID_Adresse);"
Set R = bd.OpenRecordset(sql)
If Not R.EOF Then
DerniereAdresseEnregistreeClient_Operateur = R.Fields("Adresse") & " " & _
R.Fields("CodePostal") & " " & R.Fields("Ville") & " " & R.Fields("Téléphone") & " " & R.Fields("E_mail")
End If
End Function

ramène les infos d'adresse dans un autre champ de type texte de la table "Entête_FACTURE".
Et l'adresse E_mail y est ramenée en doublon ? Je n'est pas message d'erreur.




Aidez moi à résoudre le problème de doublon de l'adresse E_mail.

Cordialement.

[Zekraoui_Jakani]

S'il faut éditer le lien hypertexte dans une table ou dans un formulaire, on y accède via un click droit 'Edit hyperlink'
S'il s'agit d'un nettoyage de l'adresse eMail (supprimer texte entre les #), voici un code à exploiter avant envoi de vos eMails, ou dans votre sql:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub cleanAdrEmail()
    Dim myAdr, hash
 
    myAdr = "xyz@gmail.com#mailto:xyz@gmail.com#"
    hash = InStr(myAdr, "#")
    myAdr = Left(myAdr, hash - 1)
 
    On Error Resume Next
    MsgBox myAdr  'ou Debug.Print myAdr, ou bien "Update Table" pour surécrire l'ancienne adresse.
 
End Sub

[morobaboumar]

Bonjour membres du forum,
bonjour Zekraoui_Jakani,

S'il faut éditer le lien hypertexte dans une table ou dans un formulaire, on y accède via un click droit 'Edit hyperlink'

1°) - Très heureux de votre réponse qui m'a permise de comprendre comment apporter une modification à un champ lien hypertexte.

2°) - Compte tenu du fait que je ramène les adresse d'un opérateur ou un client d'un champ d'une table "Tbl_DerniereAdresse" à un champs d'une autre table "Entête_FACTURE" grace au code suivant:

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
 
'Fonction ramenant la dernière adresse enregistrée d'un
'Client ou Opérateur (2e méthode)
Public Function DerniereAdresseEnregistreeClient_Operateur(IdCli_Op As Long, idAdr As Long) As String
Dim bd As Database
Dim R As Recordset
Dim sql As String
Set bd = CurrentDb
sql = "SELECT * FROM Tbl_DerniereAdresse AS DACO WHERE DACO.ID_Clients_Operat = " & IdCli_Op & " AND DACO.ID_Adresse = " & idAdr & _
" AND DACO.ID_Adresse = (select max(ID_Adresse) from [Tbl_DerniereAdresse] where ID_Clients_Operat = DACO.ID_Clients_Operat and ID_Adresse = DACO.ID_Adresse);"
Set R = bd.OpenRecordset(sql)
If Not R.EOF Then
DerniereAdresseEnregistreeClient_Operateur = R.Fields("Adresse") & " " & _
R.Fields("CodePostal") & " " & R.Fields("Ville") & " " & R.Fields("Téléphone") & " " & R.Fields("E_mail")
End If
End Function

.
Question: Comment pourrait on appeler votre procédure

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub cleanAdrEmail()
    Dim myAdr, hash
 
    myAdr = "xyz@gmail.com#mailto:xyz@gmail.com#"
    hash = InStr(myAdr, "#")
    myAdr = Left(myAdr, hash - 1)
 
    On Error Resume Next
    MsgBox myAdr  'ou Debug.Print myAdr, ou bien "Update Table" pour surécrire l'ancienne adresse.
 
End Sub

dans la fonction

Code :

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

DerniereAdresseEnregistreeClient_Operateur

afin quelle corrige les
doublons du champ

Code :

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

R.Fields("E_mail")

au moment du transfert de l'adresse complète dans le champ indiqué ?

Cordialement.

[Zekraoui_Jakani]

Créer une requête de mise à jour du champ adresseEMAIL de la table "Entête_FACTURE"; la requête fera appel à la fonction en question (cleanAdr).

[morobaboumar]

Créer une requête de mise à jour du champ adresseEMAIL de la table "Entête_FACTURE"; la requête fera appel à la fonction en question (cleanAdr).

Bonjour membres du forum,
bonjour Zekraoui_Jakani,

Après avoir créé la requête mise à jour "MAI_Email", j'ai rendu la procédure "cleanAdrEmail" en fonction

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
'Procédure pour éliminer les doublons d'une adresse email.
Public Function cleanAdrEmail()
    Dim myAdr, hash
 
    myAdr = "xyz@gmail.com#mailto:xyz@gmail.com#"
    hash = InStr(myAdr, "#")
    myAdr = Left(myAdr, hash - 1)
 
    On Error Resume Next
    MsgBox myAdr  'ou Debug.Print myAdr, ou bien "Update Table" pour surécrire l'ancienne adresse.
 
End Function

Voici comment je l'ai appelée dans la requête mise à jour "MAI_Email" (voir capture d'écran)



Mais la requête mise à jour "MAI_Email" efface les données des champs "ADRESSE_OPERATEUR" et "ADRESSE_CLIENT".

Par contre en appelant la fonction "cleanAdrEmail" intégrée dans la fonction

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
'Fonction ramenant la dernière adresse enregistrée d'un
'Client ou Opérateur (2e méthode)
Public Function DerniereAdresseEnregistreeClient_Operateur(IdCli_Op As Long, idAdr As Long) As String
Dim bd As Database
Dim R As Recordset
Dim sql As String
Set bd = CurrentDb
sql = "SELECT * FROM Tbl_DerniereAdresse AS DACO WHERE DACO.ID_Clients_Operat = " & IdCli_Op & " AND DACO.ID_Adresse = " & idAdr & _
" AND DACO.ID_Adresse = (select max(ID_Adresse) from [Tbl_DerniereAdresse] where ID_Clients_Operat = DACO.ID_Clients_Operat and ID_Adresse = DACO.ID_Adresse);"
Set R = bd.OpenRecordset(sql)
If Not R.EOF Then
DerniereAdresseEnregistreeClient_Operateur = R.Fields("Adresse") & " " & _
R.Fields("CodePostal") & " " & R.Fields("Ville") & " " & R.Fields("Téléphone") & " " & R.Fields("E_mail" = cleanAdrEmail())
End If
End Function

, les autres infos des champs "ADRESSE_OPERATEUR" et "ADRESSE_CLIENT" sont insérées sauf les différentes adresses emails.
Pas de message d'erreur.
Ci joint les captures d'écran:








NB: Je signale que chaque opérateur ou client à son E_mail personnelle. Il faudrait en tenir compte.

Je vous envoie une pièce jointe d'une bd contenant des emails afin de vous permettre de mieux comprendre le but recherché.

Cordialement.

[morobaboumar]

Bonsoir membres du forum,
Je viens de trouver une méthode en créant deux nouveaux champs lien hypertexte "Email_Operateur" et "Email_CLIENT" dans la table "Entête_FACTURE".
Et créé le code

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
 
'Fonction ramenant la dernière E_mail enregistrée d'un
'Client ou Opérateur
Public Function DerniereAdresseEmailOperateurClient(IdCli_Op As Long, idAdr As Long) As String
Dim bd As Database
Dim R As Recordset
Dim sql As String
Set bd = CurrentDb
sql = "SELECT * FROM Tbl_DerniereAdresse AS DACO WHERE DACO.ID_Clients_Operat = " & IdCli_Op & " AND DACO.ID_Adresse = " & idAdr & _
" AND DACO.ID_Adresse = (select max(ID_Adresse) from [Tbl_DerniereAdresse] where ID_Clients_Operat = DACO.ID_Clients_Operat and ID_Adresse = DACO.ID_Adresse);"
Set R = bd.OpenRecordset(sql)
If Not R.EOF Then
DerniereAdresseEmailOperateurClient = R.Fields("E_mail")
End If
End Function

Et ça marche pour le moment en attendant une suite favorable de votre par.





Cordialement.