Discussion :

[mlww]

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

[rockys]

Bonjour...
j'ai le même problème que toi peut tu m'expliquer comment tu fait??? Je voudrais crée un formulaire de ce genre .
Cordialement Rockys

[mlww]

justement c'est le problème que j'ai et pour lequel je n'ai pas trouvé de solution

Bonjour...
j'ai le même problème que toi peut tu m'expliquer comment tu fait??? Je voudrais crée un formulaire de ce genre .
Cordialement Rockys

[loufab]

Bonjour,

Pourquoi vous utilisez cette méthode au lieu de fournir directement la source dans la propriété idoine ?

Cordialement,

[mlww]

Car je travail avec une base de donné sur une serveur
donc

j'ouvre ma table,
Filtre mes éléments que j'ai besoin)
Referme et libère la table

Apes je ferais update si il le faut

Bonjour,

Pourquoi vous utilisez cette méthode au lieu de fournir directement la source dans la propriété idoine ?

Cordialement,

[loufab]

Il te faut affecter ton recordset à la propriété éponyme du formulaire.

[mlww]

Ok,

Mais tu peux m'expliquer plus en détail ?
je suis un peu perdu là

merci d'avance

Il te faut affecter ton recordset à la propriété éponyme du formulaire.

[loufab]

tu fais un Set de la propriété Recordset de ton formulaire avec l'objet Recordset que tu veux utiliser.

Code :

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

Set me.recordset = orst

[mlww]

Bonjour,

tout d'abord merci de votre réponse,

j'ai testé, ca fonctionne correctement.
mais mon soucis c'est que la table reste ouverte,
ors je désirais la refermer après avoir récupéré les information
et si je fait oRst.Close pour fermer la connexion,
Les champ de mon formulaire ce vide

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim oDb As DAO.Database
Dim oRst As DAO.Recordset
Dim SqL As String
Var_Sel_Ent = 1
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)
Set Me.Recordset = oRst
 
oRst.Close
Set oRst = Nothing
Set oDb = Nothing

[loufab]

Il va falloir envisager une autre solution dans ce cas.

Lorsqu'on regarde les pointeurs des 2 objets c'est le même, il n'est pas dupliqué en mémoire donc fermer la source revient à fermer la copie.

[mlww]

Ok,

merci de votre réponse

dans ce cas je vais chercher a faire ma requête sql vers une table temporaire,
je pense que cela devrais être une solution aussi

me reste plus qu'a chercher le fonctionnement des tables temporaires