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 :
FRListeProduit est mon formulaire de recherche
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
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
Partager