Discussion :

[moi1000n]

Bonjour,
Dans un de mes formulaires j'ai un bouton (nom du fournisseur jolard) qui me permet d'ouvrir un formulaire pour saisir une commande et j'aimerai (au clic sur le bouton) en plus d'ouvrir mon formulaire renseigner une valeur à une étiquette (nom fournisseur = Jolard).
Dans mon générateur de macro je trouve definirVarLocale mais je ne sais pas si c'est la bonne technique.
Pouvez-vous m'aider s'il vous plait si possible via la macro car elle ouvre ensuite le formulaire.
Merci beaucoup pour votre aide

[User]

Bonsoir,

Ce serait pas plus simple en VBA, avec quelque chose comme ça pour ouvrir le formulaire F_Commandes en mode ajout et copier Jolard dans l'étiquette ÉtiqFournisseur :

Code :

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

1
2
3
4
5
Private Sub CmdAjouterCommande_Click()
    DoCmd.OpenForm "F_Commandes", , , , acFormAdd
    Forms!F_Commandes!ÉtiqFournisseur.Caption ="Jolard"
 
End Sub

[moi1000n]

Bonsoir,

Ce serait pas plus simple en VBA, avec quelque chose comme ça pour ouvrir le formulaire F_Commandes en mode ajout et copier Jolard dans l'étiquette ÉtiqFournisseur :

Code :

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

1
2
3
4
5
Private Sub CmdAjouterCommande_Click()
    DoCmd.OpenForm "F_Commandes", , , , acFormAdd
    Forms!F_Commandes!ÉtiqFournisseur.Caption ="Jolard"
 
End Sub

alors le soucis c'est qu'il m'ouvre un message d'erreur :


Voici mon code :

Code :

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

1
2
3
4
5
6
7
Private Sub Jolard_Click()
 
    DoCmd.OpenForm "F_jolard", , , , acFormAdd
    Forms!F_boncommande!fournisseur.Caption = "Jolard"
 
 
End Sub

j'ai surement une erreur de syntaxe quelque part mais là pour le coup j'ai beau retourner le problème dans tous les sens je trouve pas ma bêtise.

[User]

Bonjour,

Alors ça doit pas être une étiquette, mais plutôt une zone de texte :

Code :

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

1
2
3
4
5
6
Private Sub Jolard_Click()
 
    DoCmd.OpenForm "F_jolard", , , , acFormAdd
    Forms!F_boncommande!fournisseur.value = "Jolard"
 
End Sub

[moi1000n]

Merci beaucoup vous êtes mon sauveur problème résolue !!