Discussion :

[yusukevsluffy]

Bonjour,
voila mon problème

J'ai un formulaire "devis" avec un sous formulaire "devis_ligne"
dans le sous formulaire de souhaiterai ajouter des articles mais pas par liste déroulante .
j'ai donc créé un formulaire avec la liste de mes articles "article" et j'y accede par double clic sur le select dans le sous formulaire.

voila le soucis, je n'arrive pas a inscrit le code_article sans le sous formulaire en fesant un double clic du formulaire "article"
ca de fonctionne qu'avec des donné dans "devis" mais pas dans le sous formulaire

voila ma fonction

Code :

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

1
2
3
4
5
6
7
Private Sub Form_DblClick(Cancel As Integer)
' Ouvrir la fiche détaillée correspondant à la ligne
DoCmd.OpenForm "devis", acNormal, , "[code_stock]=" & Me![code_stock]
 
' Fermer le formulaire de recherche
DoCmd.Close acForm, "article"
End Sub

ca marche mais que pour "devis", je voudrais que les donnée aille dans le sous formulaire.
en image :


Si vous avez une solution je suis preneuse,
merci d'avance

[laurent_42]

Bonjour,

Le code article est bien reporté dans le formulaire devis ? Mais par contre les infos ne sont mises à jour dans le sous-formulaire du formulaire devis ? C'est ça ?

Est-ce qu'un

Code :

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

Me.Refresh

ne fonctionnerait pas ?

Voire un Forms.FrmDevis.SFrmDevis.Form.Refresh ?

Sans garantie, juste une idée.

A+
Laurent

[Thierry_PALLIER]

Bonsoir le forum
yusukevsluffy essaie ce 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
17
18
19
20
21
22
23
24
25
26
27
Private Sub code_DblClick(Cancel As Integer)
    Dim Cancel As Boolean
 
 
    If CurrentProject.AllForms("devis").IsLoaded Then    'estouvert= True
        Select Case MsgBox("Veux-tu le  rajouter au devis en cours ?", vbYesNo Or vbExclamation Or vbSystemModal Or vbDefaultButton1, Application.Name)
 
        Case vbYes
            Forms!devis![devis_ligne].Form!code = Me.code
 
            DoCmd.Close acForm, "article", acSaveYes
 
            'déclenche la sub ,sinon elle n'a pas lieu
            'penser à mettre la sub appelée en public !
            Forms!devis![devis_ligne].Form.code_AfterUpdate
 
            'donne le focus au champ suivant
            Forms!devis![devis_ligne].Form!code_stock.SetFocus
 
        Case vbNo
 
        End Select
    End If
 
 
 
End Sub

La ligne 15 déclenche la sub Maj du champ code de ton sous-formulaire, si tu te sert de cet évènement .Sinon, commente cette ligne.
Cdlt

[yusukevsluffy]

Non ca fonctionne pas

en faite il faut sélectionner le [code_article] de frm_article et qu'il aille s'inscrire dans le frm_devis/sfrm_devis [code_article]

j'ai essayer ca :

Forms.forms_devis.forms_devis_sous_form.Form.valeur = Me![code_stock]
'Forms![forms_devis].Form![forms_devis_sous_form]![code_stock].Value
'Forms![forms_devis_sous_form]![code_stock]!Form!valeur = Me![code_stock]

mais rien a faire

[yusukevsluffy]

je suis sous access 2000
et je croix que cette fonction ne passe pas
Forms!devis![devis_ligne].Form!code = Me.code

il me dit impossible de trouver le champ "devis_ligne"

il a fumer lol

[fab.85]

Bonjour,

juste une petite question: as-tu besoin de transférer plusieurs articles dans le sous formulaire ou seulement un par un??

Sinon, créer une case à cocher devant chaque article puis un bouton transfert dans F_Article qui te ramènera les articles cochés dans le sous formulaire via une requête ajout...

Enfin si j'ai bien compris...

Fabien.

[Thierry_PALLIER]

Ce n'est pas une question de version, mais la façon d'appeler le champ code du sous-formulaire qui est dans le formulaire.
Donc ton sous-formulaire ou plus exactement son container (le contrôle qui contient le formulaire qui sert de sous-formulaire !),ne s'appelle pas "devis_ligne" !
Verifie en mode création.
Cdlt