Discussion :

[midasios]

Voici ma base de données jointe à cette discussion,

les problèmes qui existent:

• Je veux éliminer la boite de dialogue qui s'ouvre lorsque je parcours les enregistrements (j'ai belle et bien essayé mais ça me rend fou)
• je ne comprends pas le problème qui s'affiche lorsque je veux ajouter un article dans le premier sous-formulaire "sfm_bons", ce problème est lié au champ père de sfm- bons.
• Je veux que lorsque je double-clique sur le résultat de "frmrecherche" les informations choisies s'écrivent dans le sous-formulaire "sfm_bons" notamment le code de l'article et sa désignation. Dans un autre temps, je vais ajouter même le prix.

Voilà, j'espère être assez clair

[mumu64]

Salut midasios,

Je ne vais pas pouvoir répondre à tous tes problèmes car je ne suis pas assez au point dans access mais pour ton deuxième point :

je ne comprends pas le problème qui s'affiche lorsque je veux ajouter un article dans le premier sous-formulaire "sfm_bons", ce problème est lié au champ père de sfm- bons.

En général quand on ajoute des choses dans un formulaire avec relation, c'est refusé si l'article n'est pas référencé dans la table de référence. tu devrais vérifier ça.
Sinon, moi je n'ai pas de boîte de dialogue qui s'ouvre..... Pourrais-tu préciser ?

Je ne peux faire grand chose de plus.....

@+

Mumu64

[midasios]

merci mumu pour l'intérêt,

j'ai vérifié ce que tu m'as proposé mais en vain, tjrs le même problème, j'arrive pas à le déceler.Je continue à chercher, merci quand même.

[5GPCISAS1]

Bonjour,

Après un rapide coup d'oeil sur ta base, j'ai remarqué que le code de ton message d'erreur comporte une anomalie;

![Num bon] = Me.Parent!Num_bon

Es-tu sûr de ne pas avoir fait d'erreur en nommant ton champ "Num bon" ou Num_bon ???

A+

[midasios]

merci 5GPCISAS1 pour l'intérêt,

En fait si vous passer en mode création du formulaire vous allez vous apercevoir que Num_Bon est le nom du textbox "N° bon" et que sa source est "Num bon" qui se trouve sur la table "Bons".

Par ce code VBA:

![Num bon] = Me.Parent!Num_bon

Je veux copier le numéro entré dans le textbox "N° bon" dans le sous-formulaire "Subform_Bon". Voilà!!

si tu l'omets, tu auras tjrs un message qui t'indique que tu dois entrer une valeur pour le champs "Num bon";

je suis partant pour autre indication

[Invité]

Bonjour
Je ferais plutôt comme ceci

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 lstResults_DblClick(Cancel As Integer)
 
Dim Odb As DAO.Database
Set Odb = CurrentDb
Dim CodeArt As Long
Dim NumBon As Long
CodeArt = Me.lstResults.Column(0)
NumBon = Form_Bons.Num_bon.Value
Odb.Execute "Insert Into [Détails bon] ( [Code article] ,[Num bon] ) Values('" & CodeArt & "' ,'" & NumBon & "')"
  Odb.Close
    Set Odb = Nothing
MsgBox "Cet article a été ajouté"
Form_Bons.Refresh
End Sub

Pour les noms des tables et des champs essaie d'éviter les espaces.
"Num_Bon" ou "NumBon" Sont préférables à "Num Bon"

[midasios]

bonjour Gayot

merci pour l'intérêt

Je teste et je te fais part du résultat

[midasios]

Grand merci Gayot,

c'est ce que je voulais exactement

Merci encore

Vive le "Insert Into"

[5GPCISAS1]

Bien vu Gayot,

J'ai retravaillé la base de midasios et je suis arrivé à régler ses deux problèmes, excepté le refresh pour lequel j'ai du utiliser un bouton.

Mais ta façon de reprendre le problème est autrement mieux.

Bonne continuation à vous deux...

5GPCISAS1

[midasios]

merci à vous 5GPCISAS1

vive le sharing de l'information.