Discussion :

[dp33]

Bonjour!!
Voilà mon problème, je suis toujours et encore débutant sur Access et j'aimerai faire si possible la chose suivante!
J'ai une table "plainte" et une autre "action_history", dans chacune d'entre elles le champs "local reference" est en commun et donc une relation est créée à ce niveau!
Donc le truc c''est que j'ai aussi le formulaire "plainte" et dedans j'aimerai faire un bouton qui ouvre le formulaire "action_history", jusque là pas de souci!! Le truc ce que qaudn ça ouvre le formulaire "action_hystory" je voudrai que le champs "local reference" se remplisse tout seul et en fonction de la plainte "ouverte"


Concrètement :
j'ai la plainte B01 ouverte, je clique sur le bouton HISTORY qui ouvre le formulaire "action_history" et dans ce formulaire le champs local reference se remplit automatiquement avec le valeur B01!

Voilà j'espere avoir été clair!!
Merci!!

[LedZeppII]

Bonjour,

une possibilité:
Dans le code du bouton se trouvant dans le formulaire "plainte":

Code :

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

1
2
3
4
Dim strCrit As String
  strCrit = "[local reference]='" & Me.[local reference] & "'"
  DoCmd.OpenForm "action_hystory", , , strCrit   ' ouvre formulaire filtré sur local reference
  Forms!action_hystory![local reference].DefaultValue = Me.[local reference]

La meilleure solution serait, a mon avis, d'avoir un autre formulaire ayant pour source la table plainte et ayant pour sous-formulaire le formulaire action_hystory, les deux étant liés par le champ [local reference].
Ensuite ton bouton n'a plus qu'à ouvrir ce formulaire, filtré sur local reference.

bon courage

[snoopy69]

Une autre solution :

Admettons que ton champ dans le premier formulaire se nomme : champ_01

Sur l'évènement : Sur ouverture, ( du second formulaire )

tu ajoute le code :

Code :

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

1
2
3
4
5
Dim str_NomFormulaire as string
 
str_NomFormulaire = "LeNomDeTonFormulaireNumero1"
 
Me.NomDuChampDuFormulaireNumero2.value = Forms(str_NomFormulaire)![champ_01].value

attention si ton formulaire numéro 1 est fermé, cela ne fonctionnera pas ... il te faudra stocker la valeur dans une variable ou alors dans un champ invisible de ton formulaire numéro 2 ... ...

PS : Le code n'a pas été testé ...

[dp33]

Bonjour,

une possibilité:
Dans le code du bouton se trouvant dans le formulaire "plainte":

Code :

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

1
2
3
4
Dim strCrit As String
  strCrit = "[local reference]='" & Me.[local reference] & "'"
  DoCmd.OpenForm "action_hystory", , , strCrit   ' ouvre formulaire filtré sur local reference
  Forms!action_hystory![local reference].DefaultValue = Me.[local reference]

La meilleure solution serait, a mon avis, d'avoir un autre formulaire ayant pour source la table plainte et ayant pour sous-formulaire le formulaire action_hystory, les deux étant liés par le champ [local reference].
Ensuite ton bouton n'a plus qu'à ouvrir ce formulaire, filtré sur local reference.

bon courage

Ok j'ai copié ce code, mais comme je suis débutant je ne comprend pas trop!! Quand je test, j'avais avan déjà enregistré des données dans ma table action_history et quand j'ouvre la plainte, le bouton m'ouvre bien les donnée en fonction de la "local reference". Seulement, c'est que je veux créer une nouvelle "action" à la place de recopier ma "local reference" il me met "#Nom ?" d'ou ca vient!!
KESAKO???

[LedZeppII]

Bonsoir,

[Local Reference] doit être de type texte et Access cherchait une fonction ou un contrôle ayant le même nom.
Il faut ajouter des double quotes dans ce cas.

Code :

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

1
2
'  Forms!action_hystory![local reference].DefaultValue = Me.[local reference]
  Forms!action_hystory![local reference].DefaultValue = """" & Me.[local reference] & """"

Une fois le formulaire action_hystory ouvert si tu affiche les propriétés du contrôle [Local reference] tu dois voir "B01" (si je reprends ton exemple du début) dans "Valeur par défaut"

D'autre part dans l'évênement Sur Fermeture de action_hystory je remettrai "" ("""""" en vba) dans [local reference].DefaultValue pour être sûr de ne pas sauvegarder la valeur par défaut par mégarde.

Bonne continuation.

[dp33]

Sérieusement, je ne sais pas quoi te dire tellement c'est bon ce que tu m'as fait!!!
Sérieux merci pour tout!! Ca marche du feu de Dieu!!
Meric encore!!
==