Discussion :

[tibofo]

Bonjour,
j'ai un soucis avec l'ouverture d'un formulaire.
J'ai un formulaire "bon de commande". Dedans un bouton "TEMPO" me permet d'ouvrir un autre formulaire de saisie temporaire (dans lequel j'affiche l'entête du du formulaire "bon de commande").

Dans mon 1er form "bon de commande", j'ai un bouton "nouvelle commande" qui me permet de proposer un formulaire vierge pour une nouvelle saisie.

Si je clique sur lui, j'obtiens un formulaire vierge. Je choisis un client puis je clique sur mon bouton "TEMPO" pour accéder à ma saisie temporaire.
Mon est qu'à ce moment, l'entête qui s'affiche n'est pas la nouvelle commande mais la dernière effectuée.

Si je quitte ce form et que je reviens dedans : l'entête est bonne.

Donc j'ai voulu modifier mon vba pour quitter et revenir dedans (ainsi l'utilisateur ne 'verra' pas la mauvaise info)

Alors j'ai ajouté les lignes rouges suivantes : dans mon formulaire TEMPO

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
Private Sub Form_Open(Cancel As Integer)
On Error GoTo Form_Open_Err

    DoCmd.GoToRecord , "", acLast
    DoCmd.Close   'fermeture du formulaire
    DoCmd.OpenForm "Bon de Commande_TEMPO", , , , , acWindowNormal

Form_Open_Exit:
    Exit Sub

Form_Open_Err:
    MsgBox Error$
    MsgBox Err.Description, vbCritical, "Form BC Tempo Form_Open"
    Resume Form_Open_Exit

End Sub

Mais là, c'est là cata parce qu'il tourne en boucle à cause de son propre événement.


Alors ma question est : comment je pourrais faire pour arriver à mes fins ?

Merci pour votre aide

[tibofo]

J'ai trouvé en tentant un peu au hasard !!


J'explique si cela peut servir à un autre forumeur

Sur mon 1er form, sur le bouton pour ouvrir le 2èm form : j'ai ajouté en 1ère ligne :

Code :

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

1
2
3
4
Me.Refresh
DoCmd.OpenForm "Bon de commande_TEMPO"
....

Le simple

Code :

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

Me.refresh

permet que l'affichage soit bon

A+