Bonjour,
j'essaie de "coder" l'ouverture d'un formulaire 2 (FRM_ETU) après sélection dans une liste déroulante (ETU_NOM) d'un formulaire 1 (FRM_MENU)
mon formulaire 2 est constitué de champs indépendants que j'alimente à l'aide d'une requête sur une table TBL_ETU
je lance donc l'ouverture du formulaire 2 à la mise à jour de la liste déroulante ETU_NOM
j'effectue une requête (qui fonctionne car je l'ai testé) mais rien ne s'affiche dans mon formulaire 2
mon algo est bon ?
d'avance merci pour voter aide
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 ETU_NOM_AfterUpdate() Dim rs As DAO.Recordset Dim sql As String Set db = CurrentDb DoCmd.OpenForm "FRM_ETU" ETU_NOM.SetFocus sql = "select * from TBL_ETU where ETU_NOM=" & Chr(39) & Forms![FRM_MENU]![ETU_NOM] & Chr(39) Set rs = db.OpenRecordset(sql, dbOpenDynaset) ETU_CLE = rs.Fields("ETU_CLE") ETU_NOM = rs.Fields("ETU_NOM") ETU_PRO = rs.Fields("ETU_PRO") ETU_NUM = rs.Fields("ETU_NUM") ETU_STA = rs.Fields("ETU_STA") ETU_NBR = rs.Fields("ETU_NBR") ETU_INV_NRD = rs.Fields("ETU_INV_NRD") ETU_INV_SUD = rs.Fields("ETU_INV_SUD") ETU_BDD = rs.Fields("ETU_BDD") ETU_COM = rs.Fields("ETU_COM") End Sub
Partager