Discussion :

[fab.85]

Bonjour,

j'ai un formulaire bon de commande avec son sous-formulaire détails commande.

Afin d'encoder mes lignes de commande, j'en sélectionne une puis avec un bouton (Commande30) situé sur le formulaire, j'execute le code suivant:

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
31
32
33
34
35
36
37
38
39
40
41
Private Sub Commande30_Click()
 
'------------------------------------------------------------
' MEntreeStock
'
'------------------------------------------------------------
Dim intNbEtiquettes As Integer
intNbEtiquettes = Nz(Form_SFDetailsEntrees.QuantiteEntree.Value, 1)
 
On Error GoTo MEntreeStock_Err
 
    Forms!FBonEntrees!SFDetailsEntrees.Form!Valide = -1
    DoCmd.RunCommand acCmdRefresh
    DoCmd.SetWarnings (False)
    DoCmd.OpenQuery "REntree", acViewNormal, acEdit
    DoCmd.SetWarnings (False)
    Select Case MsgBox("Le nombre d'étiquettes par défaut est de " & intNbEtiquettes & "." _
                   & vbCrLf & "Acceptez-vous cette quantité? " _
                   , vbYesNo Or vbQuestion Or vbDefaultButton1, "Nombre d'étiquettes à imprimer.")
 
    Case vbNo
intNbEtiquettes = InputBox("Saisissez la quantité souhaitée:")
    Case vbYes
 
End Select
 
DoCmd.OpenReport "EEtiquettes5", acViewPreview, "", "[CodeBarres]=[Forms]![FBonEntrees]![SFDetailsEntrees].[Form]![CodeBarres]", acNormal
 
DoCmd.PrintOut acPages, , , , intNbEtiquettes
 
DoCmd.Close acReport, "EEtiquettes5"
 
 
MEntreeStock_Exit:
    Exit Sub
 
MEntreeStock_Err:
MsgBox "Erreur " & Err.Number & "  " & Err.Description
Resume MEntreeStock_Exit
 
End Sub

Est-il possible à la fin de ce code, que la ligne de commande suivante se sélectionne automatiquement ?

Merci,

Fabien

[ClaudeLELOUP]

Bonjour,

Probablement ceci :

Code :

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

1
2
  Me.sfDetailsEntrees.SetFocus
  DoCmd.GoToRecord , , acNext

à la ligne 32, soit entre

Code :

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

1
2
3
4
DoCmd.Close acReport, "EEtiquettes5"
 
 
MEntreeStock_Exit:

[fab.85]

Bonjour,

merci pour cette réponse, ça marche très bien.

j'étais persuadé qu'une ligne sélectionnée ne l'était que lorsqu'il y a le cadre orange autour de cette même ligne...

merci,

Fabien