Discussion :

[Lingo]

Bonjour,

J'ai besoin d'aide pour résoudre "un problème" sous Access je devrais plutôt dire mon problème :

Dans MonFormulaire à la page 1, j'ai un control appelé DateEntrée.
Dans MonSousFormulaire à la page 2 avec vue Feuilles de données (donc plusieurs enregistrements potentiels), j'ai un champ également appelé DateEntrée.

Voici ce que je souhaite faire :
Lorsque je saisie dans MonFormulaire à la page 1 le control DateEntrée, je veux que MonSousFormulaire à la page 2 affiche la même DateEntrée que si il n'y a aucun enregistrement.

Est-ce que vous pourriez m'aider?
D'avance merci.

[RGShoop]

Salut,

Tu devrais après mise à jour de ton premier contrôle DateEntrée, relancer la requête source de ton second formulaire. Et ainsi contrôler les éléments de comptage que tu souhaites .

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
Sub DateEntrée_AfterUpdate
 
Dim Dbs as Database 
Dim rs as recordset ' Créé un jeu d'enregistrement
Dim StSql as string 'Définit le Sql du jeu
 
set dbs=currentdb
 
stSql ="SELECT * from TableUtiliséeDansLeFormulaireMonSousFormulaire  where (DateEntrée= &" me.dateEntrée & ");"
 
set rs=dbs.openrecordset(stsql,dbopendyanset)
 
'Vérifie le nombre d'occurence
if rs.recordcount=0 then 'Aucune occurence de trouvé
Forms!monsousformulaire.dateEntrée= dateEntrée 'Mets à jour le contrôle du SousFormulaire
end if 
 
rs.close
set dbs=nothing
 
end sub

A + RGshoop