macro exécuter code

[application]

bonjour a tous j'ai besoin d'aide


Function fnzz()
Call zz
End Function


'essai efface champs
'effacer les textes du rendez vous
Sub zz()
'avec mon bouton Commande196_Click() sa fonction tres bien
'Private Sub Commande196_Click()
Controls("Texte382").Value = ""
Controls("Texte384").Value = ""
Controls("Texte156").Value = ""
Controls("Texte197").Value = ""
Controls("Modifiable381").Value = ""
End Sub

la réponse ne fonctionne pas avec moi,erreur de ma part mais ou?

donc j'ai un form nommé X ouvert (lié a la table clients sans doublon )

sur ce from X un bouton me permet d'ouvrir le from Y (lié a la table des suivis avec doublon)sans fermer le from X

car le from Y récupère les infos des champs du client sélectionné en from X donc tjrs ouvert

le commercial effectue sur le from Y le rapport du rendez-vous puis termine sur un bouton macro


Macro qui
1 fermer from Y (avec enregistrement dans la table suivi des rendez vous avec doublon possible)

2 message (effacer rendez vous sur le from X non fermer)

3 exécuter code (supprime le contenu des champs concernant le rendez vous)

4 fermer from X (avec enregistrement dans sa table clients sans doublon)


si cela fonctionne tout est pré pour un prochain rendez vous simple a dire mais pas évident a exécuter dans tout les cas merci de ton savoir et de ta patience cordialement