Discussion :

[jfrancoiscornu]

Bonjour,

Je n'arrive pas à utiliser un formulaire car celui-ci essaie de se positionner sur l'enregistrement 0 de la table source...

lorsque je demande le CurrentRecord, il m'indique 0
lorsque je demande le RecordSource, j'ai bien le nom de la table source

Toutefois, je peux atteindre l'enregistrement 1 via un Me.SelTop = 1 à la premiere saisie mais si je ferme le formulaire et le réouvre par la suite je n'arrive plus à accéder aux données saisie préalablement... il se cale en fait sur un second enregistrement dans la table qui correspond pour lui à un premier enregistrement dans le formulaire.... (à noter que ce formulaire est appelé par un autre formulaire si on click sur un bouton ad hoc)


le but étant de récuper une valeur définie comme globale (numeroOrdre) et saisie dans une inputbox pour l'attribuer à un champ de ma table (ID) si et seulement si je suis à la première ouverture du formulaire (la variable switchSaisieGeneralites à 0) autrement.. rien de bien spécial, si ce n'est une utilisation standard de mon formulaire

code :
Private Sub From_Open (Cancel as integer)
If switchSaisieGeneralites = 0 then Me.ID.Value = numeroOrdre
End sub

bref je suis un peu dans la panade et j'aimerai savoir si une personne à déjà été confronté à ce problème pour m'aider à trouver où je me plante !

merci à tous

jFrançois

[LedZeppII]

Bonjour,

CurrentRecord = 0 parce que tu es dans l'évènement sur Ouverture.

L'événement Ouverture (Open) se produit lorsqu'un formulaire est ouvert, avant affichage du premier enregistrement

Dans l'évènement Sur Chargement il vaudra 1.

Si tu cherche à te positionner dans le formulaire sur un enregistrement précis, répondant à un critère, voici un code possible:

Code vb :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Form_Open(Cancel As Integer)
Dim rs As DAO.Recordset
 
If switchSaisieGeneralites = 0 then 
   Set rs = Me.RecordsetClone
   rs.FindFirst "ID=" & numeroOrdre
   If Not rs.NoMatch Then
      ' Positionne formulaire sur l'enregistrement trouvé
      Me.Bookmark = rs.Bookmark
   Else
      ' pas trouvé
   End If
End If
End Sub

J'ai supposé que le champ lié au contrôle ID avait le même nom et était numérique.

A+