Discussion :

[Gabout]

Bonjour,

Dans un formulaire qui comporte une date d'entraînement, je voudrais créer une liste modifiable pour atteindre l'entraînement correspondant.
La liste modifiable est bien sûre basée sur une requête de la même table que le formulaire.

Voilà le code après mise à jour de la liste modifiable

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub cboAtteindreDate_AfterUpdate()
  Dim strCritere As String
  DoCmd.GoToRecord acDataForm, Me.Name, acFirst
  strCritere = "[entdat]=#" & Me.cboAtteindreDate & "#"
  Me.Recordset.FindFirst strCritere
  If Me.Recordset.NoMatch Then
    MsgBox "Aucun entraînement à cette date.", _
           vbInformation + vbOKOnly, _
           "Donnée inexistante"
  End If
End Sub

Globalement, cela fonctionne : j’atteins le bon enregistrement, par contre quelquefois, Access ne trouve pas l'enregistrement (qui existe pourtant bien !).

J'ai pensé que cela pouvait venir de la position dans le jeu d'enregistrements, c'est pourquoi j'ai rajouté la ligne "DoCmd.GoToRecord acDataForm, Me.Name, acFirst" pour me replacer au début du jeu d'enregistrements... Mais cela ne colle pas non plus !

Je sèche donc je me suis dit que vous pouviez m'aider !!!

[tee_grandbois]

bonjour,

J'ai pensé que cela pouvait venir de la position dans le jeu d'enregistrements

cela vient plutôt du format date (US dans VBA) qui est en Mois/Jours/Année.
Avec la date du jour, 25/05/2020 cela fonctionne sans problème mais toute date contenant un jour inférieur à 13, risque d'être convertie en une date non attendue: exemple le 11/05/2020 sera convertie en 5/11/2020 (5 Novembre 2020)
Essaie de la formater avant:

Code :

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

strCritere = "[entdat]=#" & Format(Me.cboAtteindreDate,"MM/DD/YYYY") & "#"

[Gabout]

Mais oui bien sûr !

Cela fonctionne parfaitement à condition de supprimer la ligne 3 que j'avais rajoutée pour me repositionner au début du recordset.

Il ne faut jamais s'arrêter de programmer... on perd ses réflexes !

Merci beaucoup tee_grandbois