Lancement Requête SQL en VBA avec résultat dans un autre Contrôle

Version imprimable

Voir 40 message(s) de cette discussion en une page

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:

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 😊

Bonjour,

Code:

1
2
3
4
5
with MaBase.OpenRecordset(SQL)
If not .Eof then
    txt_mailbox=.Fields("mail_box")
End if
En with

Bonjour

Merci Thumb down, par contre j'ai une erreur de compilation "membre ou méthode de donnée introuvable

Code:

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
 
Dim MaBase As DAO.Database
Dim SQL As String
 
Set MaBase = CurrentDb
' Requete 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 requete
With MaBase.openrecorset(SQL)
If Not .EOF Then
    txt_mailbox = .Fields("mail_box,")
End If
End With
 
            MaBase.Close
            Set MaBase = Nothing
 
End Sub

17/01/2022, 16h51
mgascult

sur la ligne 12
17/01/2022, 16h52
Thumb down

J'ai réédité mais trop tard !
OpenRecordset
17/01/2022, 18h16
tee_grandbois

bonsoir,
en ligne 14 il y a également une virgule à enlever après le nom du champ
17/01/2022, 18h53
Thumb down

Oui j'ai répondu de mon téléphone portable désolé !

Petit oeils gros doits ça pardonne pas .
18/01/2022, 08h07
mgascult

Bonjour à Tous,

Merci Tee_grandbois et Thumb down, désolé mais je suis un peut perdu et ne sais pas ou placer mon "OpenRecordset" :(
18/01/2022, 09h27
tee_grandbois

bonjour,
c'est simplement un "d" à rajouter à l'instruction 12:

Code:

With MaBase.openrecordset(SQL)

merci tee_grandbois,

Ca coince encore :( Ligne 13 erreur de syntaxe

Code:

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
' Requete 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 requete
 
With MaBase.OpenRecordset(SQL)
If Not .EOF Then
    [Forms]![SF_ML].txt_mailbox.Value = .Fields("mail_box")
End If
End With
 
            MaBase.Close
            Set MaBase = Nothing
 
End Sub

18/01/2022, 10h43
Thumb down

Bonjour,
La pour le coup c'est t'a requête SQL qui coince !
Déjà je t'invite à ajouter un espace avant From et avant Where !

Pour ce qui concerne l'Inter réaction avec le texte SQL et le formulaire je préfère laisser tee_grandbois répondre je n'ai pas trop l'habitude avec les objets Access genre Forms]![SF_ML] etc.

merci Thumb down,

j'ai ajouté les espace et la bizarrement je n'ai plus le meme message d'erreur!

"erreur 3061 trop peu de paramètre, 1 attendu" avec la ligne 13 toujours en jaune

Code:

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
' Requete 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 requete
 
With MaBase.OpenRecordset(SQL)
If Not .EOF Then
    [Forms]![SF_ML].txt_mailbox.Value = .Fields("mail_box")
End If
End With
 
            MaBase.Close
            Set MaBase = Nothing
 
End Sub

Par contre ma requete fonctionne bien si je la lance normalement

ton erreur de syntaxe venait du fait que tu écrivais ça TG_mail_box.mail_boxFROM en réalité!

maintenant ta requête sql est confronté à une incompréhension de ta close where c'est sans doute lié à cette forme d'écriture Left([Forms]![SF_ML]![txt_sigl_depart],8) que je métrise pas bien!

je tente une correction sans garanti!
Code:

1 2 3 4 5 6 With [Forms]![SF_ML] 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)));" ' déclencher la requete End With

merci Thumb down,

Comme ma requete fonctionnait, j'avais juste fait un copier/coller du code SQL.

J'ai testé ton code , pas de message d'erreur mais pas de résultat dans mon controle "txt_mailbox".

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub lst_manag_depart_LostFocus() 'Lancement de la sélection MailBox
 
Dim MaBase As DAO.Database
Dim SQL As String
 
Set MaBase = CurrentDb
With [Forms]![SF_ML]
    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)));"
    ' déclencher la requete
End With
 
            MaBase.Close
            Set MaBase = Nothing
 
End Sub

J'ai essayé en ajoutant le IF.. mais ça bloque sur la ligne 12

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub lst_manag_depart_LostFocus() 'Lancement de la sélection MailBox
 
Dim MaBase As DAO.Database
Dim SQL As String
 
Set MaBase = CurrentDb
With [Forms]![SF_ML]
    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)));"
    ' déclencher la requete
    If Not .EOF Then
    [Forms]![SF_ML].txt_mailbox.Value = .Fields("mail_box")
End If
End With
 
            MaBase.Close
            Set MaBase = Nothing
 
End Sub

Je suis désolé, je bidouille mais en même temps j'essaye de comprendre et j'attends surtout une formation sur les bases du VBA qui devrait être validée par mon employeur.

Code:

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
 
Dim MaBase As DAO.Database
Dim SQL As String
 
Set MaBase = CurrentDb
With [Forms]![SF_ML]
    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)));"
    ' déclencher la requete
End With
Debug.Print SQL
With MaBase.OpenRecordset(SQL)
If Not .EOF Then
    [Forms]![SF_ML].txt_mailbox.Value = .Fields("mail_box")
End If
End With
 
            MaBase.Close
            Set MaBase = Nothing
 
End Sub

après exécution regarde le résultat du Debug.Print SQL dans la fenêtre d'exécution!

18/01/2022, 12h13
mgascult

Merci Thumb down Ca marche :) j'ai juste un souci sur le format de la valeur, est-ce que cela peut se corriger?

Qui est remonté sous cette forme RLM@sgcib.com#mailto:PAR-GBSU-FTB-RLM@sgcib.com# et que je souhaiterai comme PAR-GBSU-FTB-RLM@sgcib.com

fais un essai comme ça

Code:

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

18/01/2022, 13h35
mgascult

j'ai encore un # à la fin "PAR-GBSU-FTB-RLM@sgcib.com#"

Code:

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

18/01/2022, 14h05
mgascult

bon il n'aime pas, il bloque sur la ligne

Voir 40 message(s) de cette discussion en une page