Discussion :

[mgascult]

Bonjour à Tous,

Je reviens encore avec ma bête noir les requêtes en VBA

J'ai créé une liste déroulante et comme mes données dépassent les 20 champs, je passe par une requête intermédiaire (image ci-dessous)



après sélection, je lance une seconde requete en VBA pour alimenter mon formulaire.
le code bloque sur les lignes 26,27 et 28

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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
    Dim db As DAO.Database
    Dim rst As DAO.Recordset
    Dim sSQL As String
 
    DoCmd.OpenForm "F_evenement_HHE"
 
        ' Se positionne sur un champs non masqué
    [Forms]![F_evenement_HHE].txt_date_demande.SetFocus
 
 
    ' affiche les champs nécessaire à ce formulaire
    [Forms]![F_evenement_HHE].etiq_suivi_eve_HHE.Visible = True
 
 
    ' masquer les champs non nécessaire à ce formulaire
    [Forms]![F_evenement_HHE].etiq_eve_HHE.Visible = False
 
    [Forms]![F_evenement_HHE].txtLogin = [Forms]![F_accueil].txtLogin.Value
 
'Exécute la requete selon l'id de la ligne choisie dans la liste
 
Debug.Print [Forms]![F_recherche_eve]![lst_rech_eve_0]
 
Set db = CurrentDb
 
sSQL = "SELECT T_demandes_HHE.*, T_demandes_HHE.ID_demande" & _
" FROM T_demandes_HHE" & _
" WHERE (((T_demandes_HHE.ID_demande)=" & [Formus]![F_recherche_eve]!lst_rech_eve.Column(0) & "));"
 
 
'insère les résultats dans les controles des sous formulairesSet db = CurrentDb
    Set rst = db.OpenRecordset(sSQL, dbOpenSnapshot)
If Not rst.EOF Then
[Forms]![F_evenement_HHE]!txt_ID_demande.Value = rst.Fields(0)
[Forms]![F_evenement_HHE]!txt_date_demande.Value = rst.Fields(3)
[Forms]![F_evenement_HHE]!lst_type_demande.Value = rst.Fields(4)
[Forms]![F_evenement_HHE]!lst_type_eve.Value = rst.Fields(22)
[Forms]![F_evenement_HHE]!lst_motif.Value = rst.Fields(1)
[Forms]![F_evenement_HHE]!lst_immeuble.Value = rst.Fields(16)
[Forms]![F_evenement_HHE]!lst_pk.Value = rst.Fields(17)
[Forms]![F_evenement_HHE]!txt_nom_demandeur.Value = rst.Fields(5)
[Forms]![F_evenement_HHE]!txt_prenom_demandeur.Value = rst.Fields(6)
[Forms]![F_evenement_HHE]!txt_sigle_demandeur.Value = rst.Fields(7)
[Forms]![F_evenement_HHE]!txt_mail_demandeur.Value = rst.Fields(8)
[Forms]![F_evenement_HHE]!txt_nom_valideur.Value = rst.Fields(9)
[Forms]![F_evenement_HHE]!txt_prenom_valideur.Value = rst.Fields(10)
[Forms]![F_evenement_HHE]!txt_sigle_valideur.Value = rst.Fields(11)
[Forms]![F_evenement_HHE]!txt_mail_valideur.Value = rst.Fields(12)
[Forms]![F_evenement_HHE]!txt_date_valid.Value = rst.Fields(13)
[Forms]![F_evenement_HHE]!lst_decision_eve.Value = rst.Fields(21)
[Forms]![F_evenement_HHE]!txt_date_envoi_mail_HHE.Value = rst.Fields(19)
[Forms]![F_evenement_HHE]!lst_statut_demande.Value = rst.Fields(20)
[Forms]![F_evenement_HHE]!txt_nom_COO.Value = rst.Fields(24)
[Forms]![F_evenement_HHE]!txt_prenom_COO.Value = rst.Fields(25)
[Forms]![F_evenement_HHE]!txt_BU_COO.Value = rst.Fields(26)
[Forms]![F_evenement_HHE]!txt_mail_COO.Value = rst.Fields(27)
[Forms]![F_evenement_HHE]!txt_date_mail_COO.Value = rst.Fields(28)
[Forms]![F_evenement_HHE]!txt_commentaire.Value = rst.Fields(23)

J'ai testé aussi avec la ligne ci-dessous mais meme code erreur

Code :

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

'" WHERE T_demandes_HHE.ID_demande = '" & [Formus]![F_recherche_eve]!lst_rech_eve.Column(0) ';"

l'ID_demande est bien présent en champ 0, je ne comprends pas pourquoi ma requête n'aboutie pas.

J'ai beau tout relire depuis 3 jours mais rien

Je vous remercie pour votre aide

[tee_grandbois]

bonjour,

Code :

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

[Formus]!

c'est quoi ce nouveau type d'objet ?

[mgascult]

Bonjour Tee_grandbois,
merci, ça fait 3 jours que je relis mon code et même pas vu cette ânerie