Ouverture formulaire sur enregistrement precis

**mat_lefebvre** · 11/10/2004, 10h35

Bonjour,

J'ai une table qui contient entre autres "une date" + "divers champ". Les champs de cette table sont rempli chaque mois. (donc pour les mois passé la table est rempi les mois futur elle est vides)

Pour faire cette saisie j'ai crée un formulaire qui a comme source de données cette table.

Mon pb est que lors de l'ouverture de ce formulaire, je souhaite qu'il s'ouvre avec pour enregistrement le mois en cours.

Je sais comment ouvrir sur le dernier enregistrement, le premier , un nouvelle ...
Mais comment fait on pour ouvrir un formulaire sur un enregistrement précis ??????

**niclalex** · 11/10/2004, 10h49

Si j'ai bien compris tu as un enregistrement par mois ?
formulaire => propriétés => filtre [Mois]=Month(Now)
inconvéniant tu n'as pas accès aux enregistrements des autres mois

Sinon (plusieurs enr par mois tu peux essayer filtre: Month([date]=Month(now)

**mat_lefebvre** · 11/10/2004, 11h32

Non ta soluce ne regle pas mon pb car en faites j'ai une table avec un enregistrements par mois.

Et dans mon formulaire apres je souhaite pouvoir naviguer entre les différents mois.

**Santino le bras mort** · 11/10/2004, 11h54

heu...

pour les mois passé la table est rempi les mois futur elle est vides

... implique que le mois en cours est le dernier enregistrement de la table donc du formulaire, non...?
Sinon, entre l'ouverture du form et son affichage, tu peux toujours faire une boucle avec DoCmd.GotoRecord [Formulaire],acNext en testant le mois : si c'est le bon, tu quittes la boucle.
Enfin, il me semble.

**mat_lefebvre** · 11/10/2004, 12h02

Envoyé par Santino le bras mort

heu...

pour les mois passé la table est rempi les mois futur elle est vides

... implique que le mois en cours est le dernier enregistrement de la table donc du formulaire, non...?
Sinon, entre l'ouverture du form et son affichage, tu peux toujours faire une boucle avec DoCmd.GotoRecord [Formulaire],acNext en testant le mois : si c'est le bon, tu quittes la boucle.
Enfin, il me semble.

Dans ma table Il y a des lignes prévu jusque Decembre 2020, Quand j'ouvre le formulaire je veux afficher la ligne de l'enregistrement du mois en cours.

Au sujet de ta boucle je n'ai pas trop compris,
Merci

**Santino le bras mort** · 11/10/2004, 14h06

Ben je me réexplique, alors

Dans ton formulaire, tu mets un truc du genre :

Code :

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

1
2
3
4
5
6
 
Private Sub Form_Open(Cancel As Integer)
    While Month(Me.LeMois) <> Month(Now)
        DoCmd.GoToRecord   'Les paramètres par défaut de GoToRecord devraient être suffisants mais tu peux être plus précis si tu aimes avoir un beau code tout propre ;)
    Wend
End Sub

en adaptant, bien sur, le While en fonction des vrais noms de tes champs et hop, l'affaire devrait être dans le sac (m'est avis que si ta table va jusqu'en 2020, il faudrait prendre l'année en compte et pas seulement le mois, mais le principe reste le même).

**niclalex** · 11/10/2004, 14h37

voici un exemple qui fonctionne en utilisant la propriété sur ouverture de ton form :

Code :

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

1
2
3
4
5
6
7
Private Sub Form_Open(Cancel As Integer)
MoisEnCours = Month(Now)
DoCmd.GoToRecord acDataForm, "mon form", acFirst
Do While MoisEnCours <> Forms![mon form].[Date]
    DoCmd.GoToRecord acDataForm, "mon form", acNext
Loop
End Sub

tu remplace mon form par le nom de ton formulaire et tu t'assures que les données de ton champ date sont compatibles avec MoisEnCours
A+

**mat_lefebvre** · 11/10/2004, 15h37

C top vos 2 methodes fonctionne tres bien. Merci.
J'utilise celle ci (car faut bien faire un choix) :

Code :

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

1
2
3
4
5
Private Sub Form_Open(Cancel As Integer)
    While Month(Me.Texte11) <> Month(Now)
        DoCmd.GoToRecord   'Les paramètres par défaut de GoToRecord devraient être suffisants mais tu peux être plus précis si tu aimes avoir un beau code tout propre ;)
    Wend
End Sub