Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Access > IHM
IHM Ce forum est dédié aux questions relatives à la création de formulaires et d'états, avec ou sans code VBA, et macros.
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 20/12/2010, 16h29   #1
Futur Membre du Club
 
Inscription : avril 2009
Messages : 81
Détails du profil
Informations forums :
Inscription : avril 2009
Messages : 81
Points : 15
Points : 15
Par défaut ouvrir un formulaire à partir d'un bouton à un enregistrement donné

Bonjour,

Je souhaiterai, sur mon formulaire, ouvrir un deuxième formulaire sur un enregistrement donné afin de le modifier et d'en créer un nouveau. je sélectionne une entrée sur un liste (liste0) et j'appuie sur le bouton command sur lequel j'ai mis une procédure événementielle avec le code suivant :

Code :
1
2
3
4
5
6
7
 
Private Sub Commande5_Click()
    Dim idInter As Integer
    Dim lng As Long
    idInter = Liste0.Column(0)
    DoCmd.OpenForm "MouvementGrille", acNormal, , "[idMouvementGrille]='idInter'"
End Sub
Le formulaire MouvementGrille devrait s'ouvrir mais j'ai le message d'erreur suivant :
Erreur d'exécution '2501'
L'action OpenForm a été annulé

Quelqu'un aurait-il une idée ?

Merci d'avance

Sébastien

P.S. : J'ai cherché sur les FAQ mais rien de ce que j'ai trouvé n'a fonctionné.
P.S.2 : En rentrant le code suivant, ça marche et je tombe bien sur l'enregistrement avec le idMuvementGrille égale à 7 mais je n'ai plus le contrôle sur le numéro de l'enregistrement :

Code :
1
2
3
4
5
6
7
 
Private Sub Commande5_Click()
    Dim idInter As Integer
    Dim lng As Long
    idInter = Liste0.Column(0)
    DoCmd.OpenForm "MouvementGrille", acNormal, , "[idMouvementGrille]=7"
End Sub
En
rafalemirage est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 20/12/2010, 17h14   #2
Futur Membre du Club
 
Inscription : avril 2009
Messages : 81
Détails du profil
Informations forums :
Inscription : avril 2009
Messages : 81
Points : 15
Points : 15
Je viens de trouver la solution à mon problème, c'est une histoire de guillemets (comme la plupart du temps), donc voilà mon code qui à l'air de fonctionner :

Code :
1
2
3
4
5
6
7
8
9
Private Sub Commande5_Click()
    Dim idInter As Integer
    Dim lng As Long
    Dim DateInter As Date
 
    idInter = Liste0.Column(0)
    DoCmd.OpenForm "MouvementGrille", acNormal, , "idMouvementGrille=" & idInter
 
End Sub
A+

Seb
rafalemirage est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité Cette discussion est résolue.
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 05h48.


 
 
 
 
Partenaires

Hébergement Web