Discussion :

[thilico]

Bonjour, je n 'ai pas de connaissances particulière sur access, c'est pourquoi je m'adresse à vous.
J'ai créé une base de données qui contient toutes mes données de sortie avec mon véhicule; je les importe directement de mon véhicule.
J'ai créé un formulaire basé sur la table principale qii contient plusieurs champ dont le champ "date" puis divers champs contenant le lieu , la distance, la urée etc.
Dans le champ date de mon formulaire, j'ai le petit calendrier qui s'affiche mais quand je clique sur une date il ne se passe rien; je voudrais que lorsque je clique sur une date ça me positionne sur l 'enregistrement de cette date. J'espère avoir été assez clair et je vous remercie d 'avance pour votre aide

[User]

Bonjour,

Pour cela, il faut créer une zone de texte sur laquelle s'effectue le choix de date (ici "DateChoisie"), zone de texte indépendante d'un champ de table (sa propriété "source contrôle" doit être vide), puis associer à l'événement "sur changement" de cette zone de texte une procédure :

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
Private Sub DateChoisie_Change()
 
    With Me.RecordsetClone
 
        ' essaie d'accéder à l'enregistrement correspondant
        .FindFirst "DateJour=#" & Format(Me.DateChoisie.Text, "mm-dd-yyyy") & "#"
 
        ' si enrg. trouvé
        If Not .NoMatch Then
            Me.Bookmark = .Bookmark
        Else
        'sinon
            MsgBox "Pas d'enregistrement pour cette date !", vbExclamation
        End If
 
    End With
 
End Sub