Discussion :

[Seb-G8]

Bonjour à tous,

Je suis en train de finaliser mon travail de fin d'étude.

Pour se faire j'aimerai au clic, sur la référence de l'article dont mon stock est insuffisant, de charger ce dernier dans un sous formulaire, est-ce possible ?

Je joint une image pour simplifier la compréhension.

Merci d'avance à tous.

[fclus]

Ai-je bien tout compris ?
Tu affiches l'état de ton stock dans un formulaire continu
En cliquant sur l'article dont le stock est à 0, tu veux ouvrir un formulaire de saisie de commande qui serait pré rempli ?

[Seb-G8]

Fclus,

C'est exactement ça, sauf que mon stock je le commande avant d'atteindre 0, c'est quand il est inférieur ou égal à 10.

Cordialement,

Seb-G8

[fclus]

Ton sous-formulaire de saisie de commande s'appuie sur une table (Commande détail je suppose)
Il faudrait donc alimenter cette table mais as-tu toutes les infos pour le faire ?
Difficile de te répondre sans connaitre la structure de tes tables
Tu pourrais peut-être imaginer une procédure qui crée tes commandes automatiquement, encore une fois si tu as toutes les infos nécessaires dans ton suivi des stocks

[Seb-G8]

Mon sous-formulaire reprend deux table : Mouvement et Article.

Ci-joint un screen de mes relations :



Je reste disponible pour tout autre question.

Seb-G8

[Seb-G8]

Je pense que la solution se trouve dans le "condition where" de ma commande :

DoCmd.OpenForm "F_Commandes",,,

Mais étant très limité par mes connaissances VBA je ne trouve pas la solution pour arriver dans [F_Commande]![SF_Mouvement_Commandes].[Libellé] avec la ligne de la donnée sélectionnée.

Merci d'avance.

[fab.85]

Bonjour,

peut-être une idée:

-Ajouter ID_Article au sous-formulaire et au formulaire FArticleenattente...
-Une case à cocher [Choix]devant chaque ligne du formulaire FArticleenattente
-Un bouton transfer sur FArticleenattente

-Sur ce bouton:

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
Private Sub Bttransférer_Click()
 
'------------------------------------------------------------
' MChoix
'
'------------------------------------------------------------
 
On Error GoTo MChoix_Err
 
    DoCmd.RunCommand acCmdSaveRecord
    DoCmd.OpenQuery "ChoixArticlesEntres", acViewNormal, acEdit
 
    DoCmd.Close , ""
 
 
MChoix_Exit:
    Exit Sub
 
MChoix_Err:
    MsgBox Error$
    Resume MChoix_Exit
End Sub

-Et pour la requête ajout "ChoixArticlesEntres":



En espérant ne pas me tromper,

Fabien.

[Seb-G8]

Fabien,

Je ne comprends pas totalement ta manœuvre.

Peux-tu me l'expliquer ?

Mon formulaire F_Stock_Insuffisant est déjà basé sur une requête qui sort de mes articles, les articles donc le stock est inférieur ou égal à 10.

Pour un autre formulaire (qui vérifie mon stock selon un choix défini) j'ai ce code.

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Btn_Ouvrir_F_Consultation_Click()
    If IsNull(Lst_Marque) Then
        DoCmd.OpenForm "F_Consultation_Article"
        DoCmd.Close acForm, "F_Choix_de_marque"
    Else
        DoCmd.OpenForm "F_Consultation_Article", , , "[Marque]=" & "'" & [Lst_Marque] & "'"
        DoCmd.Close acForm, "F_Choix_de_marque"
    End If
End Sub

Donc ici je suis sur clic d'un bouton. Dans ce formulaire j'aimerai ne pas utiliser de bouton justement. Sauf un qui ferme le formulaire.

Merci d'avance pour vos réponses.

Seb-G8

[fab.85]

En effet je me suis tromper,

Mon exemple s'appui sur le schéma suivant:

-Un formulaire FBonDeCommande avec son sous-formulaire SFDetailsCommande.

-Sur FBonDeCommande un bouton ouvre FArticles (désignation, stock, case à cocher (choix)...).

-Je coche les articles à importer puis un bouton transférer importe le tout.

FArticles:


FBonDeCommande:


Voila, mais peut-être que pour ton exemple la solution de fclus est plus appropriée.

Cordialement,

Fabien.