Discussion :

[tuxdiver]

bonjour,

Je travaille sur un formulaire f_formation de gestion de planning de formation
il y a un bandeau qui permet de modifier/ supprimer les éléments et un sous formulaire sf_formation qui retranscrit la table en fonction des mises à jour du bandeau.

à l'ouverture le sous formulaire affiche toutes les dates du calendrier, le champs contenant la date est JourForm

mon objectif est double, filtrer sur le mois en cours et se positionner sur la date du jour

j'ai creusé du coté des recordset mais je n'ai pas trouvé, du coté des findfirst ...idem

merci d'avance pour vos lumières

[Malick]

Une question similaire est traitée et résolue dans cette discussion. Peut-être que cela pourrait vous aider.

Cordialement,
Malick

[tuxdiver]

Bonsoir,

j'avais croisé cette discussion sans parvenir à la retrouver !!

j'ai abouti et rajouté un filtre sur le mois avant de cibler sur le jour

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
Private Sub Form_Open(Cancel As Integer)
Dim strwhere As String
strwhere = "MoisForm = '" & MonthName(Month(Date)) & "'"
    Me.Filter = strwhere
    Me.FilterOn = True
Dim rst As Recordset
Set rst = Me.RecordsetClone
rst.FindFirst "[JourForm]= Date()"
If rst.NoMatch Then
    DoCmd.GoToRecord , , acFirst     ' Si pas d'occurrence trouvée
Else
    Me.Bookmark = rst.Bookmark
End If
 
End Sub

merci pour le coup de pouce