Je désirais remplir un formulaire continu,
mais je n'y arrive pas je n'ai que le dernier enregistrement
si vous pouviez éclairer ma lanterne
Voila ce que j'ai écrit
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 Dim oDb As DAO.Database Dim oRst As DAO.Recordset Dim SqL As String SqL = "SELECT * FROM T_ConEnt WHERE Ent_Idx = " & Var_Sel_Ent Set oDb = DBEngine.OpenDatabase("H:\BdD_TeS\Entreprises.accdb") Set oRst = oDb.OpenRecordset(SqL) oRst.MoveFirst While Not oRst.EOF TxT_Con_Idx = oRst!Con_Idx Txt_Ent_Idx = oRst!Ent_Idx TxT_Con_Np = oRst!Con_Np TxT_Con_Fon = oRst!Con_Fon TxT_Con_Tel = oRst!Con_Tel TxT_Con_Nat = oRst!Con_Nat TxT_Con_Fax = oRst!Con_Fax TxT_Con_Ema = oRst!Con_Ema: Cmd_Ema.Enabled = IIf(IsNull(TxT_Con_Ema.Value), False, True) oRst.MoveNext Wend oRst.Close Set oRst = Nothing Set oDb = Nothing
Partager