Discussion :

[Thumb down]

Et comme ça?

Code :

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

1
2
3
4
5
With MaBase.OpenRecordset(SQL)
If Not .EOF Then
    [Forms]![SF_ML].txt_mailbox.Value = Replace(CStr(Split(.Fields("mail_box"), "#mailto:")(1)), "#", "")
End If
End With

[mgascult]

non toujours pas,

[Thumb down]

testons comme ça

Code :

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

1
2
3
4
5
With MaBase.OpenRecordset(SQL)
If Not .EOF Then
    [Forms]![SF_ML].txt_mailbox.Value = Split(Split(.Fields("mail_box"), "#mailto:")(1), "#")(0)
End If
End With

[mgascult]

Bonjour à tous,

merci Thumb down, ça marche avec cette ligne ci:

Code :

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

 [Forms]![SF_ML].txt_mailbox.Value = Replace(CStr(Split(.Fields("mail_box"), "#mailto:")(1)), "#", "")

J'ai du foirer en copiant lors du premier essai et j'ai retenté ce matin et ça fonctionne

Merci pour ta patience.

Belle journée à Tous 🌞

[mgascult]

Bonjour à Tous,

Je reviens sur ce poste car avec quelques tests, je constate que ma requête n’est pas fiable ☹


Le controle “txt_sigl_depart » contient en général des sigle à 12 ou 20 divisions XXXX/XXX/XXX/XXX/….

La requête aujourd’hui ne me donne pas le bon résultat lorsque je suis confronté à des sigles proches ex :

PREV/DIR/CCM/… la mail box remontée est bien PREV@toto.com

PREV/FRA/DOZ/MAN et …..mais pour ce cas non c’est toujours PREV@toto.com au lieu de PREV_FRA@toto.com

Du coup j’ai ajouté à ma table un champs supplémentaire « nbcar_cherche » pour indiquer sur combien de caractères il faut faire la recherche

Mais là je pêche sur la façon dont construire la requête ☹

Voici le code complet

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
Private Sub lst_manag_depart_LostFocus() 'Lancement de la sélection MailBox avec résultat dans le champs Mailbox périmètre
 
Dim MaBase As DAO.Database
Dim SQL As String
 
Set MaBase = CurrentDb
With [Forms]![SF_ML] 'requete qui va chercher le prérimetre par rapport au département sélectionné
    SQL = "SELECT TG_mail_box.mail_box" & _
    " FROM TG_perimetre INNER JOIN TG_mail_box ON TG_perimetre.IDperimetre = TG_mail_box.IDperimetre" & _
    " WHERE (((TG_perimetre.perimetre)=Left('" & ![txt_sigl_depart] & "',8) Or (TG_perimetre.perimetre)=Left('" & ![txt_sigl_depart] & "',4)));"
 
End With
 
With MaBase.OpenRecordset(SQL) ' déclenche la requete
If Not .EOF Then 'copie le résultat dans le champ Mailbox et retire les éléments "indésirables"
        [Forms]![SF_ML].txt_mailbox_perimetre.Value = .Fields("mail_box")
End If
End With
 
            MaBase.Close
            Set MaBase = Nothing
 
End Sub

Ci-dessous la table TG_perimetre avec des données fictives pour étayer l’exemple

ID	Périmètre	nbcar_cherche	mail_box
1	DIRE	4	DIRE@toto.com
2	DIRE/COM	8	DIRE_COM@toto.com
3	PREV	4	PREV@toto.com
4	PREV/FRA	8	PREV_FRA@toto.com
5	BSUD	4	BSUD@toto.com
6	BSUD/DIR	8	BSUD_DIR@toto.com
7	BSUD/PSX	8	BSUD_PSX@toto.com
8	BSUD/XBO	8	BSUD_XBO@toto.com
9	BSUD/CCP	8	BSUD_CCP@toto.com
10	BSUD/PIC	8	BSUD_PIC@toto.com
11	BSUD/REG	8	BSUD_REG@toto.com
12	BSUD/SEG	8	BSUD_SEG@toto.com
13	BSUD/PIT	8	BSUD_PIT@toto.com
14	BSUD/OCS	8	BSUD_OCS@toto.com
15	LOOP	4	LOOP@toto.com
16	XBSE	4	XBSE@toto.com
17	BSII	4	BSII@toto.com
18	ZTRA	4	ZTRA@toto.com

Je vous remercie pour votre aide

[mgascult]

Bonjour à tous,

Loin de moi de croire que vous pourriez faire le boulot à ma place.

Je cherche et j'essaye avec mes petites connaissances.

Je suis reparti avec un autre code sans passer par une requête en me disant que cela serait plus simple.

J'abandonne le champs "nbcar_cheche" de la table sitée au dessus et penses qu'il est préférable de comparer en premier les 8 premiers caractères et ensuite les 4 premiers caractères.

Bon ça ne fonctionne pas évidement mais pouvez-vous me guider et me dire si cette démarche est bonne?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub lst_manag_depart_LostFocus()
 
if Left('" & ![txt_sigl_depart] & "',8) = TG_perimetre.perimetre then
[Forms]![SF_ML].txt_mailbox_perimetre.Value = .Fields("mail_box")
 
elseif Left('" & ![txt_sigl_depart] & "',4) = TG_perimetre.perimetre then
[Forms]![SF_ML].txt_mailbox_perimetre.Value = .Fields("mail_box")
 
end if
 
End sub

Je vous remercie et vous souhaite une belle journée 🌞

[Thumb down]

Bonjour,
Personnellement je n'ai pas compris !

Il serait préférable que tu nous donnes des exemples de mails , que tu nous donnes la relation avec ton tableau et enfin le résultat escompté !

Tu parles de 4,8,20 Tec. Mais je ne vois pas les relations avec ta demande.

[mgascult]

Désolé, je pensais être clair.

Le controle “txt_sigl_depart » peut contenir des sigle à 12 ou 20 divisions XXXX/XXX/XXX/XXX/…. ex: PREV/FRA/DOZ/MAN

J'ai une table qui gère les périmètre (données fictives pour étayer l’exemple):

ID	Périmètre	nbcar_cherche	mail_box
1	DIRE	4	DIRE@toto.com
2	DIRE/COM	8	DIRE_COM@toto.com
3	PREV	4	PREV@toto.com
4	PREV/FRA	8	PREV_FRA@toto.com
5	BSUD	4	BSUD@toto.com
6	BSUD/DIR	8	BSUD_DIR@toto.com
7	BSUD/PSX	8	BSUD_PSX@toto.com
8	BSUD/XBO	8	BSUD_XBO@toto.com
9	BSUD/CCP	8	BSUD_CCP@toto.com
10	BSUD/PIC	8	BSUD_PIC@toto.com
11	BSUD/REG	8	BSUD_REG@toto.com
12	BSUD/SEG	8	BSUD_SEG@toto.com
13	BSUD/PIT	8	BSUD_PIT@toto.com
14	BSUD/OCS	8	BSUD_OCS@toto.com
15	LOOP	4	LOOP@toto.com
16	XBSE	4	XBSE@toto.com
17	BSII	4	BSII@toto.com
18	ZTRA	4	ZTRA@toto.com

Mon critère de recherche est donc sur le champs "périmètre" de ma table "TG_perimetre" auquel est associé une mailbox générique champs "mail_box"

Je cherche donc par le biais d'un gauche de 8 caractères puis d'un gauche de 4 caractères de faire le rapprochement entre le controle “txt_sigl_depart » qui contient une chaine de caractères plus grande que le périmètre afin d'y associer la mail box concernée et de la faire remonter dans le controle "txt_mailbox_perimetre".

La subtilité est que dans ma table de gestion des périmètre, il y a des sigles proches ex:

ID	Périmètre	nbcar_cherche	mail_box
3	PREV	4	PREV@toto.com
4	PREV/FRA	8	PREV_FRA@toto.com

Donc si j'ai des services avec les sigles ci-dessous:

PREV/DIR/CCM/…
PREV/FRA/DOZ/MAN

J'ai donc besoin d'avoir un critère fin afin que se soit la bonne MailBox qui reçoive le mail

Voici une illustration avec le formulaire pour être plus claire (champs en jaune concernés par ma recherche.



J'ai peur de ne pas pouvoir faire mieux en explication

[mgascult]

Bonjour à Tous,

j'essaye toujours mais pas encore de résultat

voici le dernier code utilisé mais j'ai une référence incorrecte au niveau du .Fields

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub lst_manag_depart_LostFocus()
*
if Left([txt_sigl_depart],8) = [TG_perimetre.perimetre] then
[Forms]![SF_ML].txt_mailbox_perimetre.Value = .Fields("mail_box")
*
elseif Left([txt_sigl_depart],4) = [TG_perimetre.perimetre] then
[Forms]![SF_ML].txt_mailbox_perimetre.Value = .Fields("mail_box")
*
end if
*
End sub

merci pour votre aide

[tee_grandbois]

bonjour,
.Fields() appartient à un objet de type RecordSet (une requête ou une table) non présent dans le code de l'évènement, regarde le post #25 tu y utilises une requête SQL pour obtenir les données de ce champ

Code :

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

1
2
3
4
5
With MaBase.OpenRecordset(SQL)
...
[Forms]![SF_ML].txt_mailbox_perimetre.Value =  .Fields("mail_box")
...
End With

[mgascult]

Bonjour tee_granbois,

En fait, la requête ne me donnant pas satisfaction, je pars sur une nouvelle option.
Et de ce fait je teste d'autres façons mais toujours soucis avec mes connaissances.

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub lst_manag_depart_LostFocus()
*
if Left([txt_sigl_depart],8) = [TG_perimetre.perimetre] then
[Forms]![SF_ML].txt_mailbox_perimetre.Value = .Fields("mail_box")
*
elseif Left([txt_sigl_depart],4) = [TG_perimetre.perimetre] then
[Forms]![SF_ML].txt_mailbox_perimetre.Value = .Fields("mail_box")
*
end if

Je comprends que .fields n'est pas approprié mais n'arrive pas à trouver l'argument qui va bien

[tee_grandbois]

d'accord, mais où est le champ mail_box ?
si il n'est pas dans le formulaire, il faut bien aller le chercher dans la table où il se trouve

[mgascult]

Bonjour à Tous,

merci tee_grandbois.

Le champ mail_box est dans la table TG_perimetre.

[tee_grandbois]

et cette table est-elle la source du formulaire ?
si ce n'est pas le cas, il faut bien utiliser soit une requête dans un Recordset (voir l'instruction: MaBase.OpenRecordset(SQL) et tout le code associé avant et après), soit une fonction de domaine (DLookup("mail_box";"TG_perimetre","ici la condition where si besoin")) pour ramener ce champ et récupérer ce qu'il contient, car depuis VBA pour avoir accès à d'autres sources de données que celles du ou des formulaires ouverts, il faut utiliser une de ces 2 méthodes, ou alors faire en sorte d'inclure la table TG_perimetre dans la requête source d'un des formulaires ouverts

[mgascult]

Merci tee_granbois,

Ce matin j'ai tenté cela mais je pense qu'il manque quelque chose ou que ce n'est pas bien formulé.

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
Private Sub lst_manag_depart_LostFocus() 'Lancement de la sélection MailBox avec résultat dans le champs Mailbox périmètre
 
Dim MaBase As DAO.Database
 
MaBase.OpenRecordset
 
Dim boxmail8 As String
Dim boxmail4 As String
 
boxmail8 = Dlockup("mail_box", "TG_perimetre", "([txt_sigl_depart],8)")
boxmail4 = Dlockup("mail_box", "TG_perimetre", "([txt_sigl_depart],4)")
 
If Left([txt_sigl_depart], 8) = [TG_perimetre.perimetre] Then
[Forms]![SF_ML].txt_mailbox_perimetre.Value = boxmail8
*
ElseIf Left([txt_sigl_depart], 4) = [TG_perimetre.perimetre] Then
[Forms]![SF_ML].txt_mailbox_perimetre.Value = boxmail4
*
End If
 
End Sub

[tee_grandbois]

commence déjà par répondre aux questions qu'on te pose car on ne sait toujours pas si la table TG_perimetre est la source d'un formulaire ou sous-formulaire

[mgascult]

désolé, non mon formulaire ne contient que des contrôles indépendants

[tee_grandbois]

Code :

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

1
2
3
Dim MaBase As DAO.Database
 
MaBase.OpenRecordset

d'accord mais quel Recordset vas-tu ouvrir si tu ne le définis pas avant ? regarde les posts du début, tu ne vois pas qu'il te manque quelque chose ? tu as pourtant réussi à le faire au départ même si cela ne fonctionnait pas, Thumbdown t'a donné la solution par la suite.
Par contre si tu veux utiliser DLookup, pas de problème, encore faut-il que tu comprennes comment fonctionne le 3ème paramètre (la clause WHERE)
si tu dois comparer ceci: ([txt_sigl_depart],8) à quelque chose du formulaire, il faut lui préciser:

Code :

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

boxmail8 = Dlockup("mail_box", "TG_perimetre", "([txt_sigl_depart],8)=""" & [forms]![Nomduformulaire]!Nomducontrole & """")

Code :

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

If Left([txt_sigl_depart], 8) = [TG_perimetre.perimetre]

ici, tu ne peux pas comparer un champ du formulaire avec la table directement, il faut passer par un Recordset ou une fonction de domaine

[tee_grandbois]

désolé, non mon formulaire ne contient que des contrôles indépendants

et comment remplis-tu tous les contrôles, à la main ?

[mgascult]

merci tee_grandbois,

Désolé pour tout ces échanges complexes.

La solution que m'avait apporté Thumbdown fonctionnait mais après avoir fait plusieurs tests, les résultats n'étaient pas toujours fiables car il y avait des Directions dont les 4 premiers caractères étaient identiques (il fallait affiner).
Il m'a donc fallut abandonner cette option.
Mon choix c'est donc porté sur ce dernier code qui me semble plus pertinent.

Je rentre en conf dans 10 minutes, je testerai cela demain.