Problème d'ouverture de formulaire en VBA sous Access 2007

Marsh Posté le 08-05-2008 à 20:49:57

Bonjour à tous !

Voilà, j'ai un léger soucis sous Access 2007. Je précise que c'est ma 1e fois sur Access et sur VBA en général
J'ai un formulaire appelé "FicheTechnique" dans lequel on choisi sur une liste déroulante une recette, et un bouton "Ouvrir" ouvre un formulaire appelé "Recette" qui doit correspondre à la recette de la liste déroulante.

La correspondance entre la liste et le formulaire Recette se fait par le nom de la recette, Rnom (c'est un truc de restaurant si vous voulez tout savoir ^^).

Donc j'ai fait sur le bouton le code suivant :

Code :

Private Sub Commande22_Click()
DoCmd.OpenForm "Recette", acNormal, , "[Rnom] = Me.NomRecette"
End Sub

(Rnom est le nom de la liste dans laquelle s'affiche les recettes, et Commande22 le nom de mon bouton, pas superexplicite certes ^^).
Or avec ce code, en cliquant sur le bouton j'ai un popup me demandant la valeur de Me.NomRecette qui s'affiche Si je lui rentre un nom valable tout se passe ensuite bien (le formulaire Recette correspondant s'ouvre) mais ce popup n'est pas censé apparaître !

Pour vérification j'ai alors modifié le code comme suit :

Code :

Private Sub Commande22_Click()
Dim VarNomRecette As String
VarNomRecette = Me.NomRecette
warning = MsgBox(VarNomRecette, vbExclamation + vbOKCancel, "WARNING" )
DoCmd.OpenForm "Recette", acNormal, , "[Rnom] = VarNomRecette"
End Sub

J'ai bien un popup qui s'ouvre avec le nom de la recette (je voulais vérifier que Me.NomRecette donnait bien la valeur attendue) mais toujours le même problème après

Sauriez vous ce qui cloche dans mon code ? D'avance merci :jap:

PS : j'ai pas mal cherché sur Google, mais si quelqu'un a un tuto sur Access 2007 et un sur VBA qui parte vraiment du tout début et bien rédigé, je lui en serait trés reconnaissant !

Message édité par talium le 08-05-2008 à 21:08:01

---------------
Les pièces jointes, c'est comme les bonbons, quand ça vient d'un inconnu, on n'accepte pas.

Reply

Marsh Posté le 08-05-2008 à 20:49:57

Reply

Marsh Posté le 09-05-2008 à 16:16:34

Bon j'ai trouvé ailleurs, fallait mettre ce code là :

Code :

Private Sub Commande22_Click()
DoCmd.OpenForm "Recette", acNormal, , "[Rnom]=" & "'" & Me![NomRecette] & "'"
End Sub

En gros si j'ai bien compris il faut intégrer des apostrophes ' pour que ça soit reconnu comme une chaîne de caractères.

---------------
Les pièces jointes, c'est comme les bonbons, quand ça vient d'un inconnu, on n'accepte pas.

Reply

Problème d'ouverture de formulaire en VBA sous Access 2007

Sujets relatifs:

Leave a Replay