Discussion :

[sardaucar]

Bonjour à tous !

J'aurai aimé savoir comment faire pour atteindre un enregistrement spécifique via la date du jour ? Sachant que j'ai un champs date avec la date correspondante. (le 11/01/2013 au chargement de mon formulaire il se place automatiquement sur l'enregistrement comprenant dans le champ date "11/01/2013).

Merci d'avance pour toutes vos réponses !

[tee_grandbois]

Bonsoir,
avec Findfirst, c'est possible :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Form_Open(Cancel As Integer)
Dim rst As Recordset
Set rst = Me.RecordsetClone
 
 rst.FindFirst "[tadate]= #" & Format(date, "m/d/yyyy") & "#"
   If Not rst.NoMatch Then
        DoCmd.GoToRecord acDataForm, Me.Name, acGoTo, rst.AbsolutePosition + 1
   End If
 
End Sub

[User]

Bonsoir,

Si on suppose que ton champ date se nomme "LaDate", tu aurais alors un code de ce type sur ouverture de ton formulaire:

Code :

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

1
2
3
4
5
Private Sub Form_Open(Cancel As Integer)
Me.RecordsetClone.FindFirst "LaDate=Date()"
Me.Bookmark = Me.RecordsetClone.Bookmark
 
End Sub

Edit:
Slt Tee, tu as répondu plus vite : mais ça doit être dû au décalage horaire


A+

[sardaucar]

Pour singer M. Jourdain dans Molière je répondrais ceci :

Oui mais alors, de toutes ces façons là, laquelle est la meilleure ?


Y a-t-il une des deux méthodes plus complète ou bien le résultat sera le même ?

Quoi qu'il en soit merci de vos rapides réponses !

[User]

Celle de tee-grandbois permet d'éviter un plantage dans le cas ou il n'y a pas d'enregistrement à la date du jour

[sardaucar]

parfait je vais suivre celle là alors ! merci infiniment !


EDIT : En fait deux questions finales :

Code :

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

1
2
If Not rst.NoMatch Then
        DoCmd.GoToRecord acDataForm, Me.Name, acGoTo, rst.AbsolutePosition + 1

cette ligne veut dire que s'il ne trouve rien alors il ira au dernier enregistrement trouvé ? (ce qui m'irait très bien).

Mon formulaire est un sous formulaire lui même sous formulaire.

j'ai appliqué ceci pour réaliser une opération sur l'enregistrement du premier sous formulaire à l'ouverture du formulaire :

Code :

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

Forms!F_SaisieHeures![SF_SaisieHeures].SetFocus

Puis-je faire pareil mais pour le sous-sous formulaire du formulaire ? Si oui, comment ?

Merci d'avance !

[tee_grandbois]

En faisant le mix des 2 réponses, on peut obtenir ceci:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Form_Load()
Dim rst As Recordset
Set rst = Me.RecordsetClone
rst.FindFirst "[Ladate]=Date()"
 
If rst.NoMatch Then
    DoCmd.GoToRecord , , acLast     ' Si pas d'occurrence trouvée
Else
    Me.Bookmark = rst.Bookmark
End If
 
End Sub

reste à savoir à quel moment tu veux que ce code doit être exécuté, je l'ai mis au chargement du sous-sous formulaire sans problème (donc à l'ouverture du formulaire principal).

[sardaucar]

c'est parfait ! j'aurai du y penser avant et je garde le form_load en mémoire pour d'autres applications !

merci beaucoup