Macro Access 2007
Résolu/Fermé
isturma
Messages postés
2
Date d'inscription
mardi 13 janvier 2009
Statut
Membre
Dernière intervention
20 janvier 2009
-
13 janv. 2009 à 15:30
isturma Messages postés 2 Date d'inscription mardi 13 janvier 2009 Statut Membre Dernière intervention 20 janvier 2009 - 20 janv. 2009 à 11:32
isturma Messages postés 2 Date d'inscription mardi 13 janvier 2009 Statut Membre Dernière intervention 20 janvier 2009 - 20 janv. 2009 à 11:32
A voir également:
- Macro Access 2007
- Save as pdf office 2007 - Télécharger - Bureautique
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Macro word - Guide
- Jitbit macro recorder - Télécharger - Confidentialité
- Macro logiciel - Télécharger - Organisation
2 réponses
LatelyGeek
Messages postés
1758
Date d'inscription
vendredi 4 janvier 2008
Statut
Membre
Dernière intervention
5 janvier 2023
550
14 janv. 2009 à 12:38
14 janv. 2009 à 12:38
Normalement, l'Assistant fait ça très bien. Tu crées un bouton, dans la catégorie tu choisis "Opératioons sur formulaire", "Ouvrir un formulaire", tu choisis le nom du formulaire et ensuite "Afficher des infos spécifiques" et tu indiques quel champ sert à lier les deux... Pas besoin de connaître VB.
isturma
Messages postés
2
Date d'inscription
mardi 13 janvier 2009
Statut
Membre
Dernière intervention
20 janvier 2009
20 janv. 2009 à 11:32
20 janv. 2009 à 11:32
Merci la version 2007 est bien différente et ce que tu m'as dit et introuvable cependant j'ai palié le problème en y intégrant un code VB qui marche très bien dont voici les lignes :
Private Sub Nom du bouton_Click()
On Error GoTo Err_Cadre2_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Nom du formulaire à ouvrir"
stLinkCriteria = "[objet de liaison 1er formulaire]=" & "'" & Me![objet de liaison formulaire à ouvrir] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Nom du bouton_Click:
Exit Sub
Err_Nom du bouton_Click:
MsgBox Err.Description
Resume Exit_Cadre2_Click
End Sub
Si quelqu'un arrive à me traduire cela un commande maccro 2007 cela serait génial.
Sinon encore merci à toi
Private Sub Nom du bouton_Click()
On Error GoTo Err_Cadre2_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Nom du formulaire à ouvrir"
stLinkCriteria = "[objet de liaison 1er formulaire]=" & "'" & Me![objet de liaison formulaire à ouvrir] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Nom du bouton_Click:
Exit Sub
Err_Nom du bouton_Click:
MsgBox Err.Description
Resume Exit_Cadre2_Click
End Sub
Si quelqu'un arrive à me traduire cela un commande maccro 2007 cela serait génial.
Sinon encore merci à toi