Ouverture formulaire et affichage données

Version imprimable

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:

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

Bonjour.

La question que je me pose est pourquoi utiliser un formulaire indépendant.
Utiliser un formulaire lié et un filtre à l'ouverture te sauverait pas mal de travail.

Sinon je pense que ton problème vient de là (sauf si j'ai mal compris ton enchaînement).

Code:

1
2
3
4
5
    DoCmd.OpenForm "FRM_ETU" 'Ouvre ton second formulaire
    'S'en fout totalement et continue à travailler sur le formulaire courant !
 
    ETU_NOM.SetFocus
    'ici le reste de ton code.

La solution que je vois :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
    DoCmd.OpenForm "FRM_ETU"
    dim f as form_FRM_ETU:set f=forms("FRM_ETU") 'Premet de bénéficier de intellisens
 
    f.ETU_NOM.SetFocus
    sql = "select * from TBL_ETU where ETU_NOM=" & Chr(39) & me.[ETU_NOM] & Chr(39)
    f.Set rs = db.OpenRecordset(sql, dbOpenSnapshot) 'Comme on fait juste de l'affichgae inutile de l'ouvrir pour modif.
    f.ETU_CLE = rs.Fields("ETU_CLE")
    f.ETU_NOM = rs.Fields("ETU_NOM")
    f.ETU_PRO = rs.Fields("ETU_PRO")
    f.ETU_NUM = rs.Fields("ETU_NUM")
    f.ETU_STA = rs.Fields("ETU_STA")
    f.ETU_NBR = rs.Fields("ETU_NBR")
    f.ETU_INV_NRD = rs.Fields("ETU_INV_NRD")
    f.ETU_INV_SUD = rs.Fields("ETU_INV_SUD")
    f.ETU_BDD = rs.Fields("ETU_BDD")
    f.ETU_COM = rs.Fields("ETU_COM")
 
    set f=nothing

Code:

me.

représente le formulaire courant.

A+

17/03/2018, 19h54
OZ1977

merci pour ta réponse
il me mais une incompatibilité de type sur le rs
17/03/2018, 23h58
marot_r

Oops. j'ai mis un peu trop de f.

Voici le code corrigé.

Code:

Set rs = db.OpenRecordset(sql, dbOpenSnapshot) 'Comme on fait juste de l'affichgae inutile de l'ouvrir pour modif.

A+
18/03/2018, 16h26
OZ1977

Thanks !
çà marche nickel