Traduction Code VBA..
Résolu
Bonjour,
Je voudrais savoir ce que fait cette fonction.. dans l'ordre SVP..
Private Sub Bouton9_Click()
On Error GoTo Err_Bouton9_Click
Dim DocName As String
Dim LinkCriteria As String
DoCmd.Close
DocName = "Demande champ 1 et 6"
DoCmd.OpenForm DocName, , , LinkCriteria
Nom_form_Next = "Réception de composant"
Nom_form_Before = "Menu principal"
Exit_Bouton9_Click:
Exit Sub
Err_Bouton9_Click:
MsgBox Error$
Resume Exit_Bouton9_Click
End Sub
Merci..
--
J'aime pas les vieux..
Je voudrais savoir ce que fait cette fonction.. dans l'ordre SVP..
Private Sub Bouton9_Click()
On Error GoTo Err_Bouton9_Click
Dim DocName As String
Dim LinkCriteria As String
DoCmd.Close
DocName = "Demande champ 1 et 6"
DoCmd.OpenForm DocName, , , LinkCriteria
Nom_form_Next = "Réception de composant"
Nom_form_Before = "Menu principal"
Exit_Bouton9_Click:
Exit Sub
Err_Bouton9_Click:
MsgBox Error$
Resume Exit_Bouton9_Click
End Sub
Merci..
--
J'aime pas les vieux..
6 réponses
-
C un code VBA ACCESS du moins je pense car je traville sur ACCESS, et je ne suis ni specialiste en VBA ni en ACCESS..
J'ai "essayé" d'expliciter mon problème dans la discussion suivante
https://forums.commentcamarche.net/forum/affich-3971846-requetes-et-formuliares-access#0
Merci.. -
Bonjour,
dis mois si ton code VBA est Excel VBA ou Code VBA Access -
Le truc c'est que Demande champ 1 et 6 est un sous formulaire de la reception de composants.. (On y renseigne le numero d'activité pour laquelle on a besoin du composant et elle nous renvoie vers la reception des composants avec les caractéristiques du composant...) et moi je voulais rajouter un champ (Date de livraison réele) ds le formulaire réception de composants.. mais logiquement ce champ là, doit venir de la sous requete (demande champ 1 et 6) et j'arrive pas à trouver comment et ou la sous requete manipule les données qui apparaissent apres dans la récéption.. J'essaie d'expliciter un prblm assez compliqué( du moins pr moi..) , je sais pas si t'arrive à me comprendre..
-
Bonjour,
ces variables ne font qu'afficher des formulaires nommés
"Réception de composant"
"Menu principal"
et ce sont des variables publiques qui sont utilisées quelque part dans un autre module et n' interviennent qu'après l'ouverture du formulaire "Demande champ 1 et 6" . -
C'est quoi la variable Nom_form_next et quand est ce que elle intervient STP??
-
voici la traduction de ton code
Private Sub Bouton9_Click() : déclaration de ta procédure nommée bouton9
On Error GoTo Err_Bouton9_Click : en cas d'erreur aller à (Err_Bouton_Click:) pour renvoyer un message d'erreur
Dim DocName As String : déclaration de la variable DocName
Dim LinkCriteria As String : déclaration de la variable LinkCriteria
DoCmd.Close : fermeture de tout ce qui est ouvert
DocName = "Demande champ 1 et 6" : attribution d'un mon à la variable DocName
DoCmd.OpenForm DocName, , , LinkCriteria : ouverture du formulaire "Demande champ 1 et 6" avec un critère non défini (LinkCriteria)
Nom_form_Next = "Réception de composant" : attribution d'un mon à la variable Nom_form_Next
Nom_form_Before = "Menu principal" : attribution d'un mon à la variable Nom_form_Next
Exit_Bouton9_Click : interruption du programme
Exit Sub : sortir de la procédure
Err_Bouton9_Click: interruption du programme en cas d'erreur
MsgBox Error$ : message en cas d'erreur
Resume Exit_Bouton9_Click : interruption en cas d'erreur
End Sub : fin procédure
j'espère que ça peut d'aider.....
