[DEB][Formulaire +VBA] Ouvrir un formulaire et le remplir automatiquement

**Superbretzel** · 09/02/2008, 16h37

Bonjour,

Je poste ce message car malgré les quelques heures que j'ai passé sur differents tutoriaux/forum/FAQ, je n'arrive toujours pas à réaliser ce que je veux.

Je réalise une BDD sous access.

J'aimerais à partir d'un formulaire réaliser les tâches suivantes depuis un bouton.

1.Ouvrir un autre formulaire
2.Ajouter un élement depuis celui-ci. (comme le bouton "Add Reccord").
3.Remplir automatiquement un champ de ce formulaire avec une donnée du formulaire en cours.
4.Fermer le formulaire en cours.

Explications:
Ma BDD concerne l'organisation de voyage.
J'ai donc une table "participant" avec un formulaire associé (Nom,Prénom,Etc ....).
J'ai aussi une table "inscription à un voyage" (date du voyage, prix, Etc....) et le formulaire associé.

J'aimerais à partir du formulaire "participant", un bouton qui :
-Ouvre le formulaire "inscription"
-remplisse le champs Part_ID avec le champ ID_Participant (primary key de la table "Participant".
-Ferme le formulaire "particpants".

J'ai procedé de la façon suivante :
Rajout d'un bouton "Open Form" dans le formulaire "participants".
Modification du code en VBA de celui-ci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Private Sub Command171_Click()
On Error GoTo Err_Command171_Click
 
    Dim stDocName As String
    Dim stLinkCriteria As String
 
    stDocName = "Inscription"
    DoCmd.OpenForm stDocName, , , [ID participant] = " & Me.[Part_Id]"
    DoCmd.Close acForm, "Partipants"
 
Exit_Command171_Click:
    Exit Sub
 
Err_Command171_Click:
    MsgBox Err.Description
    Resume Exit_Command171_Click
 
End Sub

Lorsque je clique sur le bouton j'ai le message d'erreur suivant :
"Microsoft Access can't find the field '|' referred in your expression"

-------------------------------------------------------------

Je pense avoir une grosse erreur de syntaxe de vba (que je ne connais pas) dans mon code.

Ca serait vraiment sympa de me décoincer !
Merci

Manu

**FreeAccess** · 09/02/2008, 17h32

Bonjour.....

Effectivement tu as une petite erreur de syntaxe dans la ligne de code suivante.:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DoCmd.OpenForm stDocName, , , [ID participant] = " & Me.[Part_Id]"

......à remplacer de cette façon..:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DoCmd.OpenForm stDocName, , , "[ID participant]=  " & Me.Part_Id

Dans la

...tu trouveras une explication plus détaillée concernant la syntaxe a adopter en fonction du type de ton champ (Texte, numérique.)

Comment inclure des champs d'un formulaire dans une requête ?
http://access.developpez.com/faq/?pa...riteres#txtQry

Bonne continuation....

**Gabout** · 09/02/2008, 17h32

Bonjour,

Transforme

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DoCmd.OpenForm stDocName, , , [ID participant] = " & Me.[Part_Id]"

en

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DoCmd.OpenForm stDocName, , , [ID participant] = " & Me.[Part_Id]

Si cela ne marche pas vérifie la nature de Me.[Part_Id]. Si c'est de l'alphanumérique, transforme ton code en

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DoCmd.OpenForm stDocName, , , [ID participant] = '" & Me.[Part_Id] & "'"

Courage

**Gabout** · 09/02/2008, 17h33

Bonjour FreeAccess,

Désolé, je n'avais pas vu ta réponse

**FreeAccess** · 09/02/2008, 17h35

Bonjour Gabout.....

....cela lui fera une confirmation.....

Par contre attention aux guillemets.......

**Superbretzel** · 09/02/2008, 17h47

Bonsoir !

Merci beaucoup pour vos réponses rapide.

En effet, plus de problème de syntaxe. Cependant le passage de paramètre ne marche pas : ID participant reste à 0

.
Il ne me semble pas qu'il y ait une erreur de conversion de type: Les deux sont des "numbers" (enfin [ID part] est un Auto number).

Le code actuel :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Private Sub Command171_Click()
On Error GoTo Err_Command171_Click
 
    Dim stDocName As String
    Dim stLinkCriteria As String
 
    stDocName = "Inscription"
    DoCmd.OpenForm "Inscription", , , , acFormAdd, , "[ID participant]=  " & Me.Part_Id
    DoCmd.Close acForm, "Partipants"
Exit_Command171_Click:
    Exit Sub
 
Err_Command171_Click:
    MsgBox Err.Description
    Resume Exit_Command171_Click
 
End Sub

Une idée ?

A+

**FreeAccess** · 09/02/2008, 17h59

Ok.....autant pour moi, je n'avais pas lu complétement ton explication.....

J'aimerais à partir du formulaire "participant", un bouton qui :
-Ouvre le formulaire "inscription"
-remplisse le champs ID_Participant avec le champ ID_Participant (primary key de la table "Participant".
-Ferme le formulaire "particpants".

...donc question, à quoi correspond ton champ Me.Part_Id...

**Superbretzel** · 09/02/2008, 18h07

Envoyé par FreeAccess

Ok.....autant pour moi, je n'avais pas lu complétement ton explication.....

...donc question, à quoi correspond ton champ Me.Part_Id...

Merci pour ta réponse.
En effet, je m'étais planté dans l'explication. C'est corrigé.

**Superbretzel** · 09/02/2008, 18h09

Voici ma base de donnée, si quelqu'un à 5 minutes pour regarder au cas ou ....

**FreeAccess** · 09/02/2008, 18h18

Sans regarder ta base.....si tu veux pouvoir passer une valeur d'un formulaire à l'autre, tu peux procéder ainsi....

Sur ton formulaire "participants" tu a ton champ [Part_Id] qui contient une valeur soit en saisie ou lié à une table...

Sur ce même formulaire, ton bouton de contrôle qui va ouvrir le formulaire "inscription" et passer en paramètres la valeur de ton champ [Part_Id]..:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub cmdOuvrir_Click()
DoCmd.OpenForm "inscription", , , , , , Me.Part_Id
End Sub

.....puis sur l'événement "Sur ouverture" du formulaire "inscription"....:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Form_Open(Cancel As Integer)
Me.Id_Participant.Value = OpenArgs
End Sub

..tu adapte aux noms de tous tes contrôles.....

Pour plus de précisions, regarde l'aide d'Access sur l'argument OpenArgs de OpenForm....

**Superbretzel** · 09/02/2008, 18h40

Re Re salut,
Merci pour tes réponses.

J'avais déjà essayé cette méthode. Il doit y avoir quelque chose que j'ai pas compris.

Dans le code du bouton j'ai mis :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Command171_Click()
DoCmd.OpenForm "inscription", , , , , , Me.Part_Id
End Sub

Dans le code de la page "inscrption" :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Form_Open(Cancel As Integer)
Me.ID_part.Value = OpenArgs
End Sub

Et j'obtiens le message d'erreur suivant :
" Compile Error :

Method or Data mumber not found"

**FreeAccess** · 09/02/2008, 19h00

.....

...je te l'avais dis....

..tu adapte aux noms de tous tes contrôles.....

....et je ne pense pas que tu possède un champ nommé "Part_Id" sur ton formulaire "participants"...

....mais plutôt "Text166".

Ensuite quand tu ouvre ton formulaire "inscription" tu dois te positionner sur un enregistrement vide....

**Superbretzel** · 09/02/2008, 20h22

Salut,
Logiquement j'ai bien un champ ""Part_Id" sur le formulaire "participant" (cela ne marche toujours pas avec "text166"

J'ai fait les modifications suivantes (je confondais valeur d'une champ et champ d'un formulaire) :

Dans le code du bouton j'ai mis :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Command171_Click()
DoCmd.OpenForm "inscription", , , , , , Me.Text166.Value 
End Sub

Dans le code de la page "inscription" :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Form_Open(Cancel As Integer)
Me.Text129.Value = OpenArgs
End Sub

Et j'ai le message d'erreur suivant :

You can't assign a value to this object.

Par contre qu'entends-tu par :

tu dois te positionner sur un enregistrement vide....

Je pense qu'il me manque de gros prérequis sur Access, j'essaye quand même de me débrouiller à l'aide des FAQ.
En tout cas , merci à vs !

**FreeAccess** · 09/02/2008, 21h03

...(je confondais valeur d'une champ et champ d'un formulaire)

....

....et oui, cela est courant...d'ou la necessité de correctement nommé tous ses contrôles de façon claire..

Maintenant, si j'ai bien compris ce que tu voulais faire avec ta base....
...lors de l'inscription d'une personne tu souhaite "récupérer" la valeur du champ [Part_Id] contenue dans ton contrôle (Text166).....et lors de l'ouverture du formulaire "inscription" recopier cette valeur dans le champ (Text123).

La première partie de ton code réalise cela correctement.:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DoCmd.OpenForm "inscription", , , , , , Me.Text166.Value

...ici OpenArgs contiendra la valeur de ton contrôle (Text166)

Puisque tu va créer une nouvelle inscription pour cette personne, place directement ton Formulaire "inscription" sur un enregistrement vide...:

Propriété "Entrée données" = oui
...et tu modifie le code sur l'événement "Sur ouverture"...:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Form_Open(Cancel As Integer)
Me.Text123.DefaultValue = OpenArgs
End Sub

...alors cela est-il mieux...

**Superbretzel** · 09/02/2008, 21h20

Arrrrrrrrrrrggggggggggg

Merci beaucoup pour tes réponses claires et rapides mais ....
J'ai modifié la proprieté "Entrée données" = oui .

Ensuite j'ai modifié le code "sur ouverture" de mon formulaire.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Private Sub Form_Open(Cancel As Integer)
DoCmd.GoToRecord , , acNewRec // Pour ajouter un nouvel enregistrement.
Me.Text123.DefaultValue = OpenArgs
End Sub