Discussion :

[leadri]

Bonjour,

Je voudrais ajouter un nouvel enregistrement dans mon sous formulaire à partir d'un formulaire de recherche mais je n'arrive pas à trouver la bonne fonction VBA, je travaille sous access 2000 et voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub ListeProduit_DblClick(Cancel As Integer)
If CurrentProject.AllForms("Devis").IsLoaded Then
DoCmd.GoToRecord acDataForm, "forms![Devis]![Ligne_Devis].REF", acNewRec // ça marche pas mais le reste oui
Forms![Devis]![Ligne_Devis]![REF] = Forms![FRListeProduit]![ListeProduit]
Forms![Devis]![Ligne_Devis]![QTE] = 1
Call ApplyTarif
Forms![FRListeProduit]![SelRef] = ""
Else
MsgBox "Le formulaire de saisie des devis n'est pas ouvert !"
DoCmd.Close
End If
End Sub

FRListeProduit est mon formulaire de recherche
Devis est mon formulaire de saisi d'un Devis
Ligne_Devis est le sous formulaire de Devis dans lequel je veux ajouter la sélection du control ListeProduit du formulaire FRListeProduit dans le champ [REF]

Merci pour votre aide

[boubignole]

salut

je n'ai pas bien compris quel est le pb.
essaye avec

Code :

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

Forms![Devis]![Ligne_Devis].Form![REF] = Forms![FRListeProduit]![ListeProduit]

Dans un cas comme celui-ci j'aurais utilisé un recordset

[leadri]

le pb c'est ça :

Code :

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

DoCmd.GoToRecord acDataForm, "forms![Devis]![Ligne_Devis]", acNewRec

je n'arrive pas à ajouter un nouvel enregistrement dans mon sous-formulaire, il reste sur le control [REF] actif et remplace l'enregistrement courant de mon sous formulaire au lieu d'en insérer un nouveau.

[boubignole]

peut etre tu peux passer REF et QTE en OpenArgs genre :

Code :

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

DoCmd.GoToRecord acDataForm, "forms![Devis]![Ligne_Devis].REF", acNewRec,,,, me.REF & "|" & me.QTE

Sinon tu construit une requete INSERT que tu execute par VBA...

[leadri]

Je garde ta solution pour une autre fonction mais j'ai résolu mon pb à l'aide d'une macro