Bonjour,


A la sortie du contrôle « lst_manag_depart », je souhaite exécuter ma SQL et que le résultat s’affiche dans le contrôle « txt_mailbox ».

En mode « normal » ma requête fonctionne mais ne voulant pas avoir trop d’objets dans ma base j’avais pensé au VBA mais mes lacunes sont encore là !
Mon code bloque sur le ligne 16 « MaBase.Execute (SQL) » et de plus je ne sais pas comment ajouter le résultat à mon contrôle « txt_mailbox ».

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
Private Sub lst_manag_depart_LostFocus() 'Lancement de la sélection MailBox
 
Dim MaBase As DAO.Database
Dim SQL As String
 
Set MaBase = CurrentDb
 
' Requête SQL qui remonte le résultat
 
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([Forms]![SF_ML]![txt_sigl_depart],8) Or (TG_perimetre.perimetre)=Left([Forms]![SF_ML]![txt_sigl_depart],4)));"
 
' déclencher la requête
 
MaBase.Execute (SQL)
 
 
            MaBase.Close
            Set MaBase = Nothing
 
End Sub
Je vous remercie pour votre aide 😊