Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros Access Discussion :

Convertir code VBA


Sujet :

Macros Access

  1. #1
    Membre régulier
    Convertir code VBA
    Salem, Bonjour

    comment convertir ce code VBA en macro
    Merci d'avance


    Code :Sélectionner tout -Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    Private Sub VALIDER_Click()
    If MsgBox("ETES VOUS SUR ?", vbYesNo) = vbYes Then
     [MONTHT] = [Texte34]
     [MONTVA] = [Texte36]
     [MONTTC] = [Texte38]
     DoCmd.Save
     DoCmd.GoToRecord , , acNewRec
    End If
    End

  2. #2
    Membre expérimenté
    Normalement, c'est l'inverse que l'on fait !
    Le plus simple serait de créer un nouveau bouton de commande auquel vous assignez une macro dans laquelle vous sélectionnez les actions de la boite de dialogue que vous voulez.

  3. #3
    Modérateur

    Bonjour.

    Oui il est rare de faire le chemin dans ce sens (et personnellement je n'utilise presque jamais les macros) aussi vais-je détailler chaque action qui te permettra de trouver la bonne instrcution de macro à appeler :

    Code :Sélectionner tout -Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    If MsgBox("ETES VOUS SUR ?", vbYesNo) = vbYes Then 'Affiche un message demandant une confirmation, un bouton Oui et un bouton Non. Le test est vrai si la personne appuis sur le bouton Oui.
     [MONTHT] = [Texte34] 'Assigne le champ Texte34 au champ (de données probablement) MONTHT
     [MONTVA] = [Texte36] 'Assigne le champ Texte36 au champ (de données probablement) MONTVA
     [MONTTC] = [Texte38] 'Assigne le champ Texte38 au champ (de données probablement) MONTTC
     DoCmd.Save 'Sauvegarde l'enregistrement courant
     DoCmd.GoToRecord , , acNewRec 'Va à un nouvel enregistrement
    End If


    A+
    Vous voulez une réponse rapide et efficace à vos questions téchniques ?
    Ne les posez pas en message privé mais dans le forum, vous bénéficiez ainsi de la compétence et de la disponibilité de tous les contributeurs.
    Et aussi regardez dans la FAQ Access et les Tutoriaux Access. C'est plein de bonnes choses.

###raw>template_hook.ano_emploi###