[Toutes versions] PB ouverture formulaire sur critere [Résolu]

[Aladin_23]

bonjour le forum

J' ai un formulaire, dessus un bouton avec qui je fais apple a un autre forulaire
ayant pour critere le champ Matricule pour la saisie de donne pour un utilisateur Ce deuxieme formulaire est base sur une autre table.
J' ai deux pb, le premier c'est qu' il m' ouvre le formulaire avec des enregistrments pour le Matricule selectionne et je voudrais qu' il l' ouvre en mode Ajout de donnée
2) Si je le laisse avec l' affichage des donnée pour l' utilisateur, en passant en mode ajout, je perd l' utilisateur selectionné
Voici mon code

Code :

DoCmd.OpenForm "frmRecap", , , "[Matricule]=" & Me.Matricule

Merci d' avance pour votre aide
Aladin

[azertix]

Bonjour.
Est-ce que tu pourrais être plus précis dans la description de ton formulaire, de tes contrôles et de leur fonctionnement ou mettre une/des impression(s) d'écran ?

Merci

[Kloun]

Bonjour,

Passe par une variable globale :
- Avant l'ouverture du formulaire en mode ajout, tu alimentes cette variable.
- Tu ouvres le formulaire en mode ajout.
- Sur l'évènement Open, tu alimentes le champ qui va bien avec la variable globale.

[Aladin_23]

Bonjour Kloun, azertix et le forum
Merci d' avoir répondu
Avec ce code qui appelle le formulaire frmRecap

Code :

DoCmd.OpenForm "frmRecap", , , "[Matricule]=" & Me.Matricule

Il s' ouvre avec les infos pour le Matricule séléctionné c' est ok
Si l' on veut ajouté des enregistrement à partir du formulaire frmRecap on perd le matricule.
Peux t on modifier le code afin qu' il s' ouvre en mode ajout pour le matricule séléctionné ?
Ou l' ouvrir avec le code ci dessous mais en passant en mode ajout ne pas perdre le matricule séléctionné
Aladin

[Kloun]

Ma solution ne fonctionne pas ?

[Aladin_23]

Bonjour Kloun et le forum
J' ai bien vu ta solution, je ne l' ai pas encore executé et cela me prendra des jours car je suis un novice en vba. peux tu me donner un exemple. Merci
Aladin

[Kloun]

Dans un module, déclarer une variable globale du même type que ton Matricule. Au vu de ton code :

Code :

Public gLng_Matricule as Long

Dans ton formulaire, sur le Clic du bouton :

Code :

1
2
gLng_Matricule = nz(Matricule.value, -1)
DoCmd.OpenForm "frmRecap", , , ,acFormAdd

Sur l'évènement Open de frmRecap

Code :

1
2
3
if gLng_Matricule  <> -1 then
    Matricule.value = gLng_Matricule
end if

[Aladin_23]

Rebonjour Kloun
Merci pour le code
J' ai testé le code que tu m' a donné et j' ai une erreur d' execution du type
impossible d' attribuer une valeur à cet objet sur ce code

Code :

1
2
3
If gLng_Matricule <> -1 Then
    Matricule.Value = gLng_Matricule
End If

Aladin

[Kloun]

Sur le formulaire frmRecap, tu as un champ texte Matricule ?

[Aladin_23]

Bonsoir kloun et le forum

Nom le champ est de type numérique, le champ matricule est commun aux deux tables. sur lequel s' appuie les deux formulaires
Aladin

[Kloun]

Je me suis mal exprimé.
Est-ce que tu as un contrôle "Zone de texte" qui s'appelle Matricule sur le formulaire frmRecap ?

[Aladin_23]

Bonjour kloun et le forum
Effectivement j' ai une zone de texte qui s' appelle Matricule sur le formulaire recap, acr le matricule séléctionner sur le premier formulaire doit etre reporté pour etre renseigner dans la table du formulaire recap
Aladin

[Kloun]

Le problème est bien sur le

Code :

Matricule.value = gLng_Matricule

?

Tu pourrais mettre une copie d'écran du message d'erreur ?

La source de données de frmRecap, c'est une table ?

[Aladin_23]

Rebonjour kloun

la source de donnée du formulaire recap est une table et le bp vien bien

Code :

Matricule.value = gLng_Matricule

L' erreur est la suivante
erreur d' execution 2448
Impossible d' attribuer une valeur a cet objet
Aladin

[Kloun]

Je vois pas trop, là ...
Ton contrôle Matricule a-t-il une ControlSource ?

[Aladin_23]

Rebonjour Kloun
Effectivement il a aussi un controle source Matricule qui relie les deuxtables
Ce controle matricule est creé dans la meme table, ce qui amenerait a garder dans la variable le matricule d' ouverture et l' inserer dans la deuxieme table lors de l' ajout de nouveaux enregistrements pour ce controle
Aladin

[Kloun]

Fait sauter le ControlSource et refait un test.

[Alexandre Sahli]

Bonjour,

En lisant le début je pense que le plus simple serait de passer le matricule en openarg, Puis lors de l'ouverture du formulaire en mode ajout de mettre défaut value sur le champ désiré.

Dans le code du bouton:

Code :

DoCmd.OpenForm "monformulaire",,,,acFormEdit,, Me.Matricule

Dans le formulaire appelé:

Code :

1
2
3
Private Sub Form_Load()
 
 me.monchamp.DefaultValue = me.openargs

le formulaire doit s'ouvrir en mode ajout avec le champ rempli par défaut avec le bon matricule

[Aladin_23]

Bonsoir Alexandre, Kloun et le forum
Kloun je n' ai pas eu l' occasion de faire le test de ton dernier post, j' ai fais le test preconisé par Alexandre
Alexandre j' ai modifie le code

Code :

DoCmd.OpenForm "monformulaire",,,,acFormEdit,, Me.Matricule

par

Code :

DoCmd.OpenForm "monformulaire",,,,acFormAdd,, Me.Matricule

Tout fonctionne correctement
Merci à vous deux pour le temps que vous avez passé à m' aider à m' en sortir
Aladin