Discussion :

[adelsunwind]

Bonjour,
j ai une liste modifiable "liste2" qui contient plusieurs dates.
Quand j en selectionne une je charge les données d'un enregistrement dans mon form. Là tout va bien.
Maintenant j aimerai qu'à l ouverture de mon formulaire ma liste se positionne sur la derniere valeurs de la table et que mon formulaire charge directement les données.
J arrive a me positionner sur le dernier enregsitrement mais mon formualire ne chare pas les données. Il faut que je clique avec la souris sur cette date pour que les données se chargent .
Voici le code :

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
 
 
 sSQL = "Select * From [Référence LOC];"
 
  Set rst = db.OpenRecordset(sSQL)
  With rst
  rst.MoveLast
  Me.liste2 = rst![Date de Réference]
 
  rst.Close
  End With
  Set rst = Nothing
  Me.Refresh
  Me.liste2.Requery
 
  Call liste2_AfterUpdate ' appel de procedure pour mettre a jour le form qui marche bien lorsque je selectionne la date dans la liste2

Merci pour les conseils

[alainb]

Bonjour,
En testant ton code, j'ai une erreur "424, objet requis" avec

Code :

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

Set rst = db.OpenRecordset(sSQL)

déclaration des variables ?
Alain

[adelsunwind]

Re-bonjour pourtant mes variables sont bien declarées et ca marche que je selectionne la date dans ma liste modifiable. je n y comprends plus rien
voici le code en entier :

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
19
20
21
22
23
24
25
26
27
28
29
30
 
Private Sub Form_Open(Cancel As Integer)
Dim db As DAO.Database, rst As DAO.Recordset, rst1 As DAO.Recordset, sSQL As String
DoCmd.Maximize
 
 
 
   Set db = Application.CurrentDb 
 
 
 
 
 sSQL = "Select * From [Référence LOC];"
 
  Set rst = db.OpenRecordset(sSQL)
  With rst
  rst.MoveLast
  Me.liste2 = rst![Date de Réference]
 
  rst.Close
  End With
  Set rst = Nothing
  Me.Refresh
  Me.liste2.Requery
 
  Call liste2_AfterUpdate 
 
 
 
End Sub

Ca parait correct et pourtant...
Merci pour les conseils

[adelsunwind]

Rebonjour a tous apres quelques semaines d absence je reviens vers le forum n ayant toujours pas trouvé la solution a mon pb de mise a jour de formulaire
Si quelqu un a des idées je suis preneur
Merci d avance

[Amani Roland]

Quel est le contenu de "liste2_AfterUpdate"?